Movatterモバイル変換

Network Working Group                                  Robert T. BradenRequest for Comments: 390                              UCLA/CCMNIC: 11582                                             September 12, 1972TSO SCENARIOBATCH COMPILATION AND FOREGROUND EXECUTIONlogon uid                                              (Use your user-id)LOGON UID                       (TSO repeats line for reasons of its own)ENTER PASSWORD                                    (TSO asks for password)xyzUID LOGON IN PROGRESS AT 09:59:18 ON AUGUST 28, 1972LOGON PROCEEDING                         (It may take a minute or longer)WELCOME TO TSO.  GOOD LUCK.= CCN NEWS =THE DEFAULT LOGON PROCEDURE NO LONGER PRE-ALLOCATES FILES -  SYSUT1, SYSUT2, AND SYSUT3.READY                               (call EDIT to create source data set)edit sample new fortgINPUT          (for "new" data set, EDIT enters INPUT mode automatically)00010 // exec fortgcl                                   (in INPUT mode,00020 ca sample fortran program            EDIT types out line numbers,00030 c                                             user enters lines.)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)                            (Specifying "fortg" in00080       read(5,3) a                 edit command sets logical tabs00090       b=sqrt(a)                           correctly for Fortran)00100       write(6,2) a, b00110       go to 10000120       end00130 /*00140 //lked.syslmod dd disp=new,dsn=abc132.uid.load(root)00150                                      (Null line leaves INPUT mode)verify                    ("verify" causes changed line to be displayed)change 140 /new/old/00140 //LKED.SYSLMOD DD DISP=OLD,DSN=ABC123.UID.LOAD(ROOT)list00010 // EXEC FORTGCL00020 C A SAMPLE FORTRAN PROGRAM00030 C                                                                [Page 1]

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) A00090       B=SQRT(A)00100       WRITE(6,2) A, B00110       GO TO 10000120       END00130 /*00140 //LKED.SYSLMOD DD DISP=OLD,DSN=ABC132.UID.LOAD(ROOT)END OF DATAsave                          (Make permanent copy of source file)SAVEDend                           (Leave EDIT)READY                         (Create new load module library data set)allocate da(load) new space(5,5) block(7294) dir(1)READYfree da(load)                 (Free library data set from TSO so batchREADY                         job can linkedit into it)submit sample                 (Submit source file to batch)ENTER JOBNAME CHARACTER-pJOB ABC123P SUBMITTED         (User "UID" has charge number "ABC123")READYstatus ABC123P  WAITING FOR READERIEF404I ABC123P  ENDED        (Spontaneous message when job finishes)READYstatus ABC123P  FINISHED WAITING FOR WRITERREADYkeepout 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 ABC123PEDIT OUTPUT.LIST  ("Keepout" leaves you in EDIT to examine output list)find /return code/CCN011I STEP RETURN CODE =     0list//ABC123P   JOB  'ABC123.UID,B=0672',//             UID,//             NOTIFY=UID,//             MSGLEVEL=(1,1)// EXEC FORTGCL                                                0000001                                                                [Page 2]

XXFORTGCL PROC TC=1439,TL=1439,PC=150,PL=10,RL=154K,RC=100K,LEVEL=1XXFORT   EXEC  PGM=IEYFORT,REGION=&RC,TIME=&TC                 0000002IEF653I SUBSTITUTION JCL - PGM=IEYFORT,REGION=100K,TIME=1439XXSTEPLIB DD DISP=(SHR,PASS),DSN=&&FORTRAN&LEVEL               0000003IEF653I SUBSTITUTION JCL - DISP=(SHR,PASS),DSN=&&FORTRAN1XXSYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,          0000004XX SPACE=(3200,(8,4),RLSE),DCB=BLKSIZE=3200                    0000005XXSYSPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=120,BLKSIZE=3480), 0000006XX SPACE=(TRK,&PC,RLSE)                                        0000007IEF653I SUBSTITUTION JCL - SPACE=(TRK,150,RLSE)//SYSIN DD * GENERATED STATEMENTIEF236I ALLOC. FOR ABC123P  FORTIEF237I 342   ALLOCATED TO STEPLIBIEF237I 450   ALLOCATED TO SYSLINIEF237I 630   ALLOCATED TO SYSPRINTIEF237I 230   ALLOCATED TO SYSIN1  FORTRAN IV G LEVEL20                MAIN          DATE=722410               CA SAMPLE FORTRAN PROGRAM                C    0001        1     FORMAT(' ENTER A')    0002        2     FORMAT(' THE SQUARE ROOT OF',F10.3,' IS',F10.3)    0003        3     FORMAT(F10.3)    0004        100   WRITE(6,1)    0005              READ(5,3) A    0006              B=SQRT(A)    0007              WRITE(6,2) A, B    0008              GO TO 100    0009              END1 FORTRAN IV G LEVEL 20                MAIN          DATE=722410                                                                [Page 3]

SUBPROGRAMS CALLEDEDITend                           (Leave EDIT)READYprint output.list             (Ask to have output printed at CCN)DATASET OUTPUT.LIST HAS BEEN ENQUEUED FOR PRINTING IN CLASS CREADY                         (Now execute load module in foreground)allocate file(ft05f001) da(*)READY              (Allocate Fortran input and output files to terminal)allocate file(ft06f001) da(*)READYcall load(root)               (Call load module)ENTER A3.141THE SQUARE ROOT OF      3.141 IS    1.772ENTER A4096.THE SQUARE ROOT OF   4096.000 IS   64.000ENTER AREADYlogoffUID LOGGED OFF TSO AT 10:40:18 ON AUGUST 28,  1972+       [ This RFC was put into machine readable form for entry ]        [ into the online RFC archives by Marcus Meissner 1/98 ]                                                                [Page 4]