home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / rfc / 1 / rfc0390.txt < prev    next >
Encoding:
Text File  |  2003-06-11  |  6.0 KB  |  219 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Network Working Group                                  Robert T. Braden
  8. Request for Comments: 390                              UCLA/CCM
  9. NIC: 11582                                             September 12, 1972
  10.  
  11.                               TSO SCENARIO
  12.                BATCH COMPILATION AND FOREGROUND EXECUTION
  13.  
  14. logon uid                                              (Use your user-id)
  15. LOGON UID                       (TSO repeats line for reasons of its own)
  16. ENTER PASSWORD                                    (TSO asks for password)
  17. xyz
  18. UID LOGON IN PROGRESS AT 09:59:18 ON AUGUST 28, 1972
  19. LOGON PROCEEDING                         (It may take a minute or longer)
  20. WELCOME TO TSO.  GOOD LUCK.
  21.  
  22. = CCN NEWS =
  23.  
  24. THE DEFAULT LOGON PROCEDURE NO LONGER PRE-ALLOCATES FILES -
  25.   SYSUT1, SYSUT2, AND SYSUT3.
  26.  
  27. READY                               (call EDIT to create source data set)
  28. edit sample new fortg
  29. INPUT          (for "new" data set, EDIT enters INPUT mode automatically)
  30. 00010 // exec fortgcl                                     (in INPUT mode,
  31. 00020 c  a sample fortran program            EDIT types out line numbers,
  32. 00030 c                                               user enters lines.)
  33. 00040 1     format(' enter a')
  34. 00050 2     format(' the square root of',f10.3,' is',f10.3)
  35. 00060 3     format(f10.3)
  36. 00070 100   write(6,1)                            (Specifying "fortg" in
  37. 00080       read(5,3) a                   edit command sets logical tabs
  38. 00090       b=sqrt(a)                             correctly for Fortran)
  39. 00100       write(6,2) a, b
  40. 00110       go to 100
  41. 00120       end
  42. 00130 /*
  43. 00140 //lked.syslmod dd disp=new,dsn=abc132.uid.load(root)
  44. 00150                                      (Null line leaves INPUT mode)
  45. verify                    ("verify" causes changed line to be displayed)
  46. change 140 /new/old/
  47. 00140 //LKED.SYSLMOD DD DISP=OLD,DSN=ABC123.UID.LOAD(ROOT)
  48. list
  49. 00010 // EXEC FORTGCL
  50. 00020 C A SAMPLE FORTRAN PROGRAM
  51. 00030 C
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.                                                                 [Page 1]
  59.  
  60. 00040 1     FORMAT(' ENTER A')
  61. 00050 2     FORMAT(' THE SQUARE ROOT OF',F10.3,' IS',F10.3)
  62. 00060 3     FORMAT(F10.3)
  63. 00070 100   WRITE(6,1)
  64. 00080       READ(5,3) A
  65. 00090       B=SQRT(A)
  66. 00100       WRITE(6,2) A, B
  67. 00110       GO TO 100
  68. 00120       END
  69. 00130 /*
  70. 00140 //LKED.SYSLMOD DD DISP=OLD,DSN=ABC132.UID.LOAD(ROOT)
  71. END OF DATA
  72. save                          (Make permanent copy of source file)
  73. SAVED
  74. end                           (Leave EDIT)
  75. READY                         (Create new load module library data set)
  76. allocate da(load) new space(5,5) block(7294) dir(1)
  77. READY
  78. free da(load)                 (Free library data set from TSO so batch
  79. READY                         job can linkedit into it)
  80. submit sample                 (Submit source file to batch)
  81. ENTER JOBNAME CHARACTER-
  82. p
  83. JOB ABC123P SUBMITTED         (User "UID" has charge number "ABC123")
  84. READY
  85. status
  86.  ABC123P  WAITING FOR READER
  87. IEF404I ABC123P  ENDED        (Spontaneous message when job finishes)
  88. READY
  89. status
  90.  ABC123P  FINISHED WAITING FOR WRITER
  91. READY
  92. keepout abc123p               (Save output in permanent data set)
  93. SYSOUT DATA SET FOR JOB ABC123P ADDED TO PRINT DATA SET WITH UNLIKE ATTRIBUTES+
  94. SYSOUT DATA SET FOR JOB ABC123P ADDED TO PRINT DATA SET WITH UNLIKE ATTRIBUTES+
  95. NO CLASS OUTPUT FOR JOB ABC123P
  96. EDIT OUTPUT.LIST  ("Keepout" leaves you in EDIT to examine output list)
  97. find /return code/
  98. CCN011I STEP RETURN CODE =     0
  99. list
  100. //ABC123P   JOB  'ABC123.UID,B=0672',
  101. //             UID,
  102. //             NOTIFY=UID,
  103. //             MSGLEVEL=(1,1)
  104. // EXEC FORTGCL                                                0000001
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.                                                                 [Page 2]
  112.  
  113. XXFORTGCL PROC TC=1439,TL=1439,PC=150,PL=10,RL=154K,RC=100K,LEVEL=1
  114. XXFORT   EXEC  PGM=IEYFORT,REGION=&RC,TIME=&TC                 0000002
  115. IEF653I SUBSTITUTION JCL - PGM=IEYFORT,REGION=100K,TIME=1439
  116. XXSTEPLIB DD DISP=(SHR,PASS),DSN=&&FORTRAN&LEVEL               0000003
  117. IEF653I SUBSTITUTION JCL - DISP=(SHR,PASS),DSN=&&FORTRAN1
  118. XXSYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,          0000004
  119. XX SPACE=(3200,(8,4),RLSE),DCB=BLKSIZE=3200                    0000005
  120. XXSYSPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=120,BLKSIZE=3480), 0000006
  121. XX SPACE=(TRK,&PC,RLSE)                                        0000007
  122. IEF653I SUBSTITUTION JCL - SPACE=(TRK,150,RLSE)
  123. //SYSIN DD * GENERATED STATEMENT
  124. IEF236I ALLOC. FOR ABC123P  FORT
  125. IEF237I 342   ALLOCATED TO STEPLIB
  126. IEF237I 450   ALLOCATED TO SYSLIN
  127. IEF237I 630   ALLOCATED TO SYSPRINT
  128. IEF237I 230   ALLOCATED TO SYSIN
  129. 1  FORTRAN IV G LEVEL  20                MAIN          DATE=72241
  130.  
  131. 0               C  A SAMPLE FORTRAN PROGRAM
  132.                 C
  133.     0001        1     FORMAT(' ENTER A')
  134.     0002        2     FORMAT(' THE SQUARE ROOT OF',F10.3,' IS',F10.3)
  135.     0003        3     FORMAT(F10.3)
  136.     0004        100   WRITE(6,1)
  137.     0005              READ(5,3) A
  138.     0006              B=SQRT(A)
  139.     0007              WRITE(6,2) A, B
  140.     0008              GO TO 100
  141.     0009              END
  142. 1 FORTRAN IV G LEVEL   20                MAIN          DATE=72241
  143. 0
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.                                                                 [Page 3]
  165.  
  166. SUBPROGRAMS CALLED
  167. EDIT
  168. end                           (Leave EDIT)
  169. READY
  170. print output.list             (Ask to have output printed at CCN)
  171. DATASET OUTPUT.LIST HAS BEEN ENQUEUED FOR PRINTING IN CLASS C
  172. READY                         (Now execute load module in foreground)
  173. allocate file(ft05f001) da(*)
  174. READY              (Allocate Fortran input and output files to terminal)
  175. allocate file(ft06f001) da(*)
  176. READY
  177. call load(root)               (Call load module)
  178. ENTER A
  179. 3.141
  180. THE SQUARE ROOT OF      3.141 IS    1.772
  181. ENTER A
  182. 4096.
  183. THE SQUARE ROOT OF   4096.000 IS   64.000
  184. ENTER A
  185. READY
  186. logoff
  187. UID LOGGED OFF TSO AT 10:40:18 ON AUGUST 28,  1972+
  188.  
  189.  
  190.        [ This RFC was put into machine readable form for entry ]
  191.         [ into the online RFC archives by Marcus Meissner 1/98 ]
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215.  
  216.  
  217.                                                                 [Page 4]
  218.  
  219.