RFC 390 (rfc390) - Page 2 of 4

TSO Scenario

00040 1     FORMAT(' ENTER A')
00050 2     FORMAT(' THE SQUARE ROOT OF',F10.3,' IS',F10.3)
00060 3     FORMAT(F10.3)
00070 100   WRITE(6,1)
00080       READ(5,3) A
00090       B=SQRT(A)
00100       WRITE(6,2) A, B
00110       GO TO 100
00120       END
00130 /*
00140 //LKED.SYSLMOD DD DISP=OLD,DSN=ABC132.UID.LOAD(ROOT)
END OF DATA
save                          (Make permanent copy of source file)
SAVED
end                           (Leave EDIT)
READY                         (Create new load module library data set)
allocate da(load) new space(5,5) block(7294) dir(1)
READY
free da(load)                 (Free library data set from TSO so batch
READY                         job can linkedit into it)
submit sample                 (Submit source file to batch)
ENTER JOBNAME CHARACTER-
p
JOB ABC123P SUBMITTED         (User "UID" has charge number "ABC123")
READY
status
 ABC123P  WAITING FOR READER
IEF404I ABC123P  ENDED        (Spontaneous message when job finishes)
READY
status
 ABC123P  FINISHED WAITING FOR WRITER
READY
keepout abc123p               (Save output in permanent data set)
SYSOUT DATA SET FOR JOB ABC123P ADDED TO PRINT DATA SET WITH UNLIKE ATTRIBUTES+
SYSOUT DATA SET FOR JOB ABC123P ADDED TO PRINT DATA SET WITH UNLIKE ATTRIBUTES+
NO CLASS OUTPUT FOR JOB ABC123P
EDIT OUTPUT.LIST  ("Keepout" leaves you in EDIT to examine output list)
find /return code/
CCN011I STEP RETURN CODE =     0
list
//ABC123P   JOB  'ABC123.UID,B=0672',
//             UID,
//             NOTIFY=UID,
//             MSGLEVEL=(1,1)
// EXEC FORTGCL                                                0000001