home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ibmtsonih / tsnalp.jcl next >
Text File  |  2020-01-01  |  36KB  |  871 lines
  1. //MWCALPRC  JOB  (ZZXZ,504,A),'ALP PROCS'
  2. /*RERUN
  3. //*  EXEC  PDSALLOC,NAME='ZZXZMWC.ALP.PROCS.TESTLIB',DISK=TMP003,SIZE=5
  4. //  EXEC  PGM=IEBUPDTE,PARM=NEW
  5. //SYSPRINT DD SYSOUT=A
  6. //*SYSUT2  DD  DSN=ZZXZMWC.ALP.PROCS.TESTLIB,UNIT=FILE,VOL=SER=TMP003,
  7. //*            DISP=OLD,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
  8. //SYSUT2   DD DSN=NIH.VPROCLIB,DISP=SHR
  9. //SYSIN    DD DATA
  10. /*UNNUMBERED
  11. ./       ADD   LIST=ALL,NAME=ALPHCOMF
  12. //*
  13. //*      ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
  14. //*      PRODUCE ASSEMBLER LISTING ON MICROFICHE
  15. //*
  16. //*      SYS - 01/12/87
  17. //*
  18. // PROC  OPTIONS=,                     ASSEMBLER PARMS
  19. //       ALPOPTS=,                     ALP OPTIONS
  20. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  21. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  22. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  23. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  24. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  25. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  26. //       MFID='ALP',             (REQ) UNIQUE IDENTIFIER
  27. //       MFNAME='NIH.ALPFICHE',        NAME OF PTFORM CTL DS
  28. //       MFSTOR=FILE,                  UNIT NAME FOR PTFORM CTL DS
  29. //       MFDISK=,                      VOL SERIAL FOR PTFORM CTL DS
  30. //       CORE=1500K                     REGION SIZE
  31. //*
  32. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  33. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  34. //*
  35. //SYSTERM  DD  SYSOUT=A
  36. //ASMPRINT DD  DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
  37. //             SPACE=(CYL,(10,5)),
  38. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  39. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  40. //PLIDUMP  DD  SYSOUT=A
  41. //POSTERR  DD  SYSOUT=A
  42. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  43. //             VOL=SER=&LIBDISK,DISP=SHR,
  44. //             DCB=BLKSIZE=11440
  45. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  46. //             VOL=SER=&ALTDISK,DISP=SHR
  47. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  48. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  49. //         DD  DSN=NIH.MACLIB,DISP=SHR
  50. //SYSLIN   DD  DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
  51. //             SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  52. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  53. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  54. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  55. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  56. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  57. //SYSUDUMP DD  SYSOUT=A
  58. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  59. //*
  60. //SPTID  EXEC  PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
  61. //*
  62. //*      PLACE SPOUT CONTROL RECORDS ON TAPE
  63. //*
  64. //HEADER   DD  DSN=MICRO105.&MFID,
  65. //             UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
  66. //             DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
  67. //SYSUDUMP DD  SYSOUT=A
  68. //*
  69. //PTFORM   EXEC  PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
  70. //*
  71. //*      CONVERT LISTING DATA SET TO MICROFICHE FORMAT
  72. //*
  73. //EZFOUTPT DD  DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
  74. //EZFPARMS DD  DSN=&MFNAME,UNIT=&MFSTOR,
  75. //             VOL=SER=&MFDISK,DISP=SHR
  76. //EZFSTATS DD  SYSOUT=A,DCB=BLKSIZE=133
  77. //PTFINPUT DD  DSN=&&ASMLIST,DISP=(OLD,DELETE)
  78. //SYSUDUMP DD  SYSOUT=A
  79. ./       ADD   LIST=ALL,NAME=ALPHCOMP
  80. //*
  81. //*      ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
  82. //*
  83. //*      SYS - 01/12/87
  84. //*
  85. // PROC  OPTIONS=,                     ASSEMBLER PARMS
  86. //       ASMLIST='DUMMY,',             NULLIFY TO GET ASM LISTING
  87. //       ALPOPTS=,                     ALP OPTIONS
  88. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  89. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  90. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  91. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  92. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  93. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  94. //       CORE=1500K                     REGION SIZE
  95. //*
  96. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  97. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  98. //*
  99. //SYSTERM  DD  SYSOUT=A
  100. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  101. //ALTPRINT DD  &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
  102. //ASMPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  103. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  104. //PLIDUMP  DD  SYSOUT=A
  105. //POSTERR  DD  SYSOUT=A
  106. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  107. //             VOL=SER=&LIBDISK,DISP=SHR,
  108. //             DCB=BLKSIZE=11440
  109. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  110. //             VOL=SER=&ALTDISK,DISP=SHR
  111. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  112. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  113. //         DD  DSN=NIH.MACLIB,DISP=SHR
  114. //SYSLIN   DD  DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
  115. //             SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  116. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  117. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  118. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  119. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  120. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  121. //SYSUDUMP DD  SYSOUT=A
  122. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  123. ./       ADD   LIST=ALL,NAME=ALPHOBJ
  124. //*
  125. //*      ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
  126. //*
  127. //*      SYS - 01/12/87
  128. //*
  129. // PROC  NAME=,                  (REQ) DSNAME OF OBJ MOD
  130. //       STORAGE=FILE,                 UNIT FOR OBJ MOD
  131. //       DISK=,                  (REQ) VOL FOR OBJ MOD
  132. //       STATUS=NEW,                   DISP OF OBJ MOD DATA SET
  133. //       UNITS=80,                     SPACE ALLOC UNITS FOR OBJ MOD
  134. //       SIZE=500,                     PRIMARY SPACE ALLOC FOR OBJ MOD
  135. //       OPTIONS=,                     ASSEMBLER PARMS
  136. //       ALPOPTS=,                     ALP OPTIONS
  137. //       ASMLIST='DUMMY,',             NULLIFY TO GET ASM LISTING
  138. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  139. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  140. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  141. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  142. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  143. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  144. //       CORE=1500K                     REGION SIZE
  145. //*
  146. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  147. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  148. //*
  149. //SYSTERM  DD  SYSOUT=A
  150. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  151. //ALTPRINT DD  &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
  152. //ASMPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  153. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  154. //PLIDUMP  DD  SYSOUT=A
  155. //POSTERR  DD  SYSOUT=A
  156. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  157. //             VOL=SER=&LIBDISK,DISP=SHR,
  158. //             DCB=BLKSIZE=11440
  159. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  160. //             VOL=SER=&ALTDISK,DISP=SHR
  161. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  162. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  163. //         DD  DSN=NIH.MACLIB,DISP=SHR
  164. //SYSLIN   DD  DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
  165. //             DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
  166. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  167. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  168. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  169. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  170. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  171. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  172. //SYSUDUMP DD  SYSOUT=A
  173. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  174. ./       ADD   LIST=ALL,NAME=ALPHOBJF
  175. //*
  176. //*      ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
  177. //*      PRODUCE ASSEMBLER LISTING ON MICROFICHE
  178. //*
  179. //*      SYS - 01/12/87
  180. //*
  181. // PROC  NAME=,                  (REQ) DSNAME OF OBJ MOD
  182. //       STORAGE=FILE,                 UNIT FOR OBJ MOD
  183. //       DISK=,                  (REQ) VOL FOR OBJ MOD
  184. //       STATUS=NEW,                   DISP OF OBJ MOD DATA SET
  185. //       UNITS=80,                     SPACE ALLOC UNITS FOR OBJ MOD
  186. //       SIZE=500,                     PRIMARY SPACE ALLOC FOR OBJ MOD
  187. //       OPTIONS=,                     ASSEMBLER PARMS
  188. //       ALPOPTS=,                     ALP OPTIONS
  189. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  190. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  191. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  192. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  193. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  194. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  195. //       MFID='ALP',             (REQ) UNIQUE IDENTIFIER
  196. //       MFNAME='NIH.ALPFICHE',        NAME OF PTFORM CTL DS
  197. //       MFSTOR=FILE,                  UNIT NAME FOR PTFORM CTL DS
  198. //       MFDISK=,                      VOL SERIAL FOR PTFORM CTL DS
  199. //       CORE=1500K                     REGION SIZE
  200. //*
  201. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  202. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  203. //*
  204. //SYSTERM  DD  SYSOUT=A
  205. //ASMPRINT DD  DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
  206. //             SPACE=(CYL,(10,5)),
  207. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  208. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  209. //PLIDUMP  DD  SYSOUT=A
  210. //POSTERR  DD  SYSOUT=A
  211. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  212. //             VOL=SER=&LIBDISK,DISP=SHR,
  213. //             DCB=BLKSIZE=11440
  214. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  215. //             VOL=SER=&ALTDISK,DISP=SHR
  216. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  217. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  218. //         DD  DSN=NIH.MACLIB,DISP=SHR
  219. //SYSLIN   DD  DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
  220. //             DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
  221. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  222. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  223. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  224. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  225. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  226. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  227. //SYSUDUMP DD  SYSOUT=A
  228. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  229. //*
  230. //SPTID  EXEC  PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
  231. //*
  232. //*      PLACE SPOUT CONTROL RECORDS ON TAPE
  233. //*
  234. //HEADER   DD  DSN=MICRO105.&MFID,
  235. //             UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
  236. //             DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
  237. //SYSUDUMP DD  SYSOUT=A
  238. //*
  239. //PTFORM   EXEC  PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
  240. //*
  241. //*      CONVERT LISTING DATA SET TO MICROFICHE FORMAT
  242. //*
  243. //EZFOUTPT DD  DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
  244. //EZFPARMS DD  DSN=&MFNAME,UNIT=&MFSTOR,
  245. //             VOL=SER=&MFDISK,DISP=SHR
  246. //EZFSTATS DD  SYSOUT=A,DCB=BLKSIZE=133
  247. //PTFINPUT DD  DSN=&&ASMLIST,DISP=(OLD,DELETE)
  248. //SYSUDUMP DD  SYSOUT=A
  249. ./       ADD   LIST=ALL,NAME=ALPHPRE
  250. //*
  251. //*      ALP PREPROCESSING ONLY
  252. //*
  253. //*      SYS - 01/12/87
  254. //*
  255. // PROC  ASMLIST='DUMMY,',             NULLIFY TO GET ASM LISTING
  256. //       ALPOPTS=                      ALP OPTIONS
  257. //*
  258. //COMP   EXEC  PGM=MWCALP,REGION=1500K,
  259. //             PARM='&ALPOPTS/'
  260. //*
  261. //SYSTERM  DD  SYSOUT=A
  262. //PLIDUMP  DD  SYSOUT=A
  263. //SYSPRINT DD  SYSOUT=A
  264. //SYSOUT   DD  &ASMLIST.SYSOUT=A,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  265. //SYSUDUMP DD  SYSOUT=A
  266. ./       ADD   LIST=ALL,NAME=ALPSCOMF
  267. //*
  268. //*      ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
  269. //*      PRODUCE ASSEMBLER LISTING ON MICROFICHE
  270. //*
  271. //*      SYS - 01/12/87
  272. //*
  273. // PROC  OPTIONS=,                     ASSEMBLER PARMS
  274. //       ALPOPTS=,                     ALP OPTIONS
  275. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  276. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  277. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  278. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  279. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  280. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  281. //       MFID='ALP',             (REQ) UNIQUE IDENTIFIER
  282. //       MFNAME='NIH.ALPFICHE',        NAME OF PTFORM CTL DS
  283. //       MFSTOR=FILE,                  UNIT NAME FOR PTFORM CTL DS
  284. //       MFDISK=,                      VOL SERIAL FOR PTFORM CTL DS
  285. //       CORE=1500K                     REGION SIZE
  286. //*
  287. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  288. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  289. //*
  290. //SYSTERM  DD  SYSOUT=A
  291. //ASMPRINT DD  DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
  292. //             SPACE=(CYL,(10,5)),
  293. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  294. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  295. //PLIDUMP  DD  SYSOUT=A
  296. //POSTERR  DD  SYSOUT=A
  297. //STEPLIB  DD  DSN=NIH.ASMH29,DISP=SHR
  298. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  299. //             VOL=SER=&LIBDISK,DISP=SHR,
  300. //             DCB=BLKSIZE=11440
  301. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  302. //             VOL=SER=&ALTDISK,DISP=SHR
  303. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  304. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  305. //         DD  DSN=NIH.MACLIB,DISP=SHR
  306. //SYSLIN   DD  DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
  307. //             SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  308. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  309. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  310. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  311. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  312. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  313. //SYSUDUMP DD  SYSOUT=A
  314. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  315. //*
  316. //SPTID  EXEC  PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
  317. //*
  318. //*      PLACE SPOUT CONTROL RECORDS ON TAPE
  319. //*
  320. //HEADER   DD  DSN=MICRO105.&MFID,
  321. //             UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
  322. //             DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
  323. //SYSUDUMP DD  SYSOUT=A
  324. //*
  325. //PTFORM   EXEC  PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
  326. //*
  327. //*      CONVERT LISTING DATA SET TO MICROFICHE FORMAT
  328. //*
  329. //EZFOUTPT DD  DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
  330. //EZFPARMS DD  DSN=&MFNAME,UNIT=&MFSTOR,
  331. //             VOL=SER=&MFDISK,DISP=SHR
  332. //EZFSTATS DD  SYSOUT=A,DCB=BLKSIZE=133
  333. //PTFINPUT DD  DSN=&&ASMLIST,DISP=(OLD,DELETE)
  334. //SYSUDUMP DD  SYSOUT=A
  335. ./       ADD   LIST=ALL,NAME=ALPSCOMP
  336. //*
  337. //*      ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
  338. //*
  339. //*      SYS - 01/12/87
  340. //*
  341. // PROC  OPTIONS=,                     ASSEMBLER PARMS
  342. //       ASMLIST='DUMMY,',             NULLIFY TO GET ASM LISTING
  343. //       ALPOPTS=,                     ALP OPTIONS
  344. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  345. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  346. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  347. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  348. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  349. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  350. //       CORE=1500K                     REGION SIZE
  351. //*
  352. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  353. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  354. //*
  355. //SYSTERM  DD  SYSOUT=A
  356. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  357. //ALTPRINT DD  &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
  358. //ASMPRINT DD  DSN=&&ASMLIST,UNIT=SYSDA,SPACE=(CYL,(10,5)),
  359. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  360. //PLIDUMP  DD  SYSOUT=A
  361. //POSTERR  DD  SYSOUT=A
  362. //STEPLIB  DD  DSN=NIH.ASMH29,DISP=SHR
  363. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  364. //             VOL=SER=&LIBDISK,DISP=SHR,
  365. //             DCB=BLKSIZE=11440
  366. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  367. //             VOL=SER=&ALTDISK,DISP=SHR
  368. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  369. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  370. //         DD  DSN=NIH.MACLIB,DISP=SHR
  371. //SYSLIN   DD  DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
  372. //             SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  373. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  374. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  375. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  376. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  377. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  378. //SYSUDUMP DD  SYSOUT=A
  379. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  380. ./       ADD   LIST=ALL,NAME=ALPSOBJ
  381. //*
  382. //*      ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
  383. //*
  384. //*      SYS - 01/12/87
  385. //*
  386. // PROC  NAME=,                  (REQ) DSNAME OF OBJ MOD
  387. //       STORAGE=FILE,                 UNIT FOR OBJ MOD
  388. //       DISK=,                  (REQ) VOL FOR OBJ MOD
  389. //       STATUS=NEW,                   DISP OF OBJ MOD DATA SET
  390. //       UNITS=80,                     SPACE ALLOC UNITS FOR OBJ MOD
  391. //       SIZE=500,                     PRIMARY SPACE ALLOC FOR OBJ MOD
  392. //       OPTIONS=,                     ASSEMBLER PARMS
  393. //       ALPOPTS=,                     ALP OPTIONS
  394. //       ASMLIST='DUMMY,',             NULLIFY TO GET ASM LISTING
  395. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  396. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  397. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  398. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  399. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  400. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  401. //       CORE=1500K                     REGION SIZE
  402. //*
  403. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  404. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  405. //*
  406. //SYSTERM  DD  SYSOUT=A
  407. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  408. //ALTPRINT DD  &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
  409. //ASMPRINT DD  DSN=&&ASMLIST,UNIT=SYSDA,SPACE=(CYL,(10,5)),
  410. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  411. //PLIDUMP  DD  SYSOUT=A
  412. //POSTERR  DD  SYSOUT=A
  413. //STEPLIB  DD  DSN=NIH.ASMH29,DISP=SHR
  414. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  415. //             VOL=SER=&LIBDISK,DISP=SHR,
  416. //             DCB=BLKSIZE=11440
  417. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  418. //             VOL=SER=&ALTDISK,DISP=SHR
  419. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  420. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  421. //         DD  DSN=NIH.MACLIB,DISP=SHR
  422. //SYSLIN   DD  DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
  423. //             DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
  424. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  425. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  426. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  427. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  428. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  429. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  430. //SYSUDUMP DD  SYSOUT=A
  431. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  432. ./       ADD   LIST=ALL,NAME=ALPSOBJF
  433. //*
  434. //*      ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
  435. //*      PRODUCE ASSEMBLER LISTING ON MICROFICHE
  436. //*
  437. //*      SYS - 01/12/87
  438. //*
  439. // PROC  NAME=,                  (REQ) DSNAME OF OBJ MOD
  440. //       STORAGE=FILE,                 UNIT FOR OBJ MOD
  441. //       DISK=,                  (REQ) VOL FOR OBJ MOD
  442. //       STATUS=NEW,                   DISP OF OBJ MOD DATA SET
  443. //       UNITS=80,                     SPACE ALLOC UNITS FOR OBJ MOD
  444. //       SIZE=500,                     PRIMARY SPACE ALLOC FOR OBJ MOD
  445. //       OPTIONS=,                     ASSEMBLER PARMS
  446. //       ALPOPTS=,                     ALP OPTIONS
  447. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  448. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  449. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  450. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  451. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  452. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  453. //       MFID='ALP',             (REQ) UNIQUE IDENTIFIER
  454. //       MFNAME='NIH.ALPFICHE',        NAME OF PTFORM CTL DS
  455. //       MFSTOR=FILE,                  UNIT NAME FOR PTFORM CTL DS
  456. //       MFDISK=,                      VOL SERIAL FOR PTFORM CTL DS
  457. //       CORE=1500K                     REGION SIZE
  458. //*
  459. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  460. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  461. //*
  462. //SYSTERM  DD  SYSOUT=A
  463. //ASMPRINT DD  DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
  464. //             SPACE=(CYL,(10,5)),
  465. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  466. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  467. //PLIDUMP  DD  SYSOUT=A
  468. //POSTERR  DD  SYSOUT=A
  469. //STEPLIB  DD  DSN=NIH.ASMH29,DISP=SHR
  470. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  471. //             VOL=SER=&LIBDISK,DISP=SHR,
  472. //             DCB=BLKSIZE=11440
  473. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  474. //             VOL=SER=&ALTDISK,DISP=SHR
  475. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  476. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  477. //         DD  DSN=NIH.MACLIB,DISP=SHR
  478. //SYSLIN   DD  DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
  479. //             DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
  480. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  481. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  482. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  483. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  484. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  485. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  486. //SYSUDUMP DD  SYSOUT=A
  487. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  488. //*
  489. //SPTID  EXEC  PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
  490. //*
  491. //*      PLACE SPOUT CONTROL RECORDS ON TAPE
  492. //*
  493. //HEADER   DD  DSN=MICRO105.&MFID,
  494. //             UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
  495. //             DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
  496. //SYSUDUMP DD  SYSOUT=A
  497. //*
  498. //PTFORM   EXEC  PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
  499. //*
  500. //*      CONVERT LISTING DATA SET TO MICROFICHE FORMAT
  501. //*
  502. //EZFOUTPT DD  DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
  503. //EZFPARMS DD  DSN=&MFNAME,UNIT=&MFSTOR,
  504. //             VOL=SER=&MFDISK,DISP=SHR
  505. //EZFSTATS DD  SYSOUT=A,DCB=BLKSIZE=133
  506. //PTFINPUT DD  DSN=&&ASMLIST,DISP=(OLD,DELETE)
  507. //SYSUDUMP DD  SYSOUT=A
  508. ./       ADD   LIST=ALL,NAME=ALPSPRE
  509. //*
  510. //*      ALP PREPROCESSING ONLY
  511. //*
  512. //*      SYS - 01/12/87
  513. //*
  514. // PROC  ASMLIST='DUMMY,',             NULLIFY TO GET ASM LISTING
  515. //       ALPOPTS=                      ALP OPTIONS
  516. //*
  517. //COMP   EXEC  PGM=MWCALP,REGION=1500K,
  518. //             PARM='&ALPOPTS/'
  519. //*
  520. //SYSTERM  DD  SYSOUT=A
  521. //PLIDUMP  DD  SYSOUT=A
  522. //SYSPRINT DD  SYSOUT=A
  523. //SYSOUT   DD  &ASMLIST.SYSOUT=A,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  524. //SYSUDUMP DD  SYSOUT=A
  525. ./       ADD   LIST=ALL,NAME=ALPXCOMF
  526. //*
  527. //*      ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
  528. //*      USES MVS/XA MACRO LIBRARIES
  529. //*      PRODUCE ASSEMBLER LISTING ON MICROFICHE
  530. //*
  531. //*      SYS - 01/12/87
  532. //*
  533. // PROC  OPTIONS=,                     ASSEMBLER PARMS
  534. //       ALPOPTS=,                     ALP OPTIONS
  535. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  536. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  537. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  538. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  539. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  540. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  541. //       MFID='ALP',             (REQ) UNIQUE IDENTIFIER
  542. //       MFNAME='NIH.ALPFICHE',        NAME OF PTFORM CTL DS
  543. //       MFSTOR=FILE,                  UNIT NAME FOR PTFORM CTL DS
  544. //       MFDISK=,                      VOL SERIAL FOR PTFORM CTL DS
  545. //       CORE=1500K                     REGION SIZE
  546. //*
  547. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  548. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  549. //*
  550. //SYSTERM  DD  SYSOUT=A
  551. //ASMPRINT DD  DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
  552. //             SPACE=(CYL,(10,5)),
  553. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  554. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  555. //PLIDUMP  DD  SYSOUT=A
  556. //POSTERR  DD  SYSOUT=A
  557. //STEPLIB  DD  DSN=NIH.ASMH29,DISP=SHR
  558. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  559. //             VOL=SER=&LIBDISK,DISP=SHR,
  560. //             DCB=BLKSIZE=11440
  561. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  562. //             VOL=SER=&ALTDISK,DISP=SHR
  563. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  564. //         DD  DSN=SYS1.SMPMTS,DISP=SHR
  565. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  566. //         DD  DSN=SYS1.AMODGEN,DISP=SHR
  567. //         DD  DSN=SYS1.ATSOMAC,DISP=SHR
  568. //         DD  DSN=SYS1.ATCAMMAC,DISP=SHR
  569. //         DD  DSN=SYS1.APVTMACS,DISP=SHR
  570. //         DD  DSN=NIH.MACLIB,DISP=SHR
  571. //SYSLIN   DD  DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
  572. //             SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  573. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  574. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  575. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  576. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  577. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  578. //SYSUDUMP DD  SYSOUT=A
  579. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  580. //*
  581. //SPTID  EXEC  PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
  582. //*
  583. //*      PLACE SPOUT CONTROL RECORDS ON TAPE
  584. //*
  585. //HEADER   DD  DSN=MICRO105.&MFID,
  586. //             UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
  587. //             DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
  588. //SYSUDUMP DD  SYSOUT=A
  589. //*
  590. //PTFORM   EXEC  PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
  591. //*
  592. //*      CONVERT LISTING DATA SET TO MICROFICHE FORMAT
  593. //*
  594. //EZFOUTPT DD  DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
  595. //EZFPARMS DD  DSN=&MFNAME,UNIT=&MFSTOR,
  596. //             VOL=SER=&MFDISK,DISP=SHR
  597. //EZFSTATS DD  SYSOUT=A,DCB=BLKSIZE=133
  598. //PTFINPUT DD  DSN=&&ASMLIST,DISP=(OLD,DELETE)
  599. //SYSUDUMP DD  SYSOUT=A
  600. ./       ADD   LIST=ALL,NAME=ALPXCOMP
  601. //*
  602. //*      ALP, ASSEMBLE (H) A PROGRAM AND CREATE TEMPORARY OBJECT MODULE
  603. //*      USES MVS/XA MACRO LIBRARIES
  604. //*
  605. //*      SYS - 01/12/87
  606. //*
  607. // PROC  OPTIONS=,                     ASSEMBLER PARMS
  608. //       ASMLIST='DUMMY,',             NULLIFY TO GET ASM LISTING
  609. //       ALPOPTS=,                     ALP OPTIONS
  610. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  611. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  612. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  613. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  614. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  615. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  616. //       CORE=1500K                     REGION SIZE
  617. //*
  618. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  619. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  620. //*
  621. //SYSTERM  DD  SYSOUT=A
  622. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  623. //ALTPRINT DD  &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
  624. //ASMPRINT DD  DSN=&&ASMLIST,UNIT=SYSDA,SPACE=(CYL,(10,5)),
  625. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  626. //PLIDUMP  DD  SYSOUT=A
  627. //POSTERR  DD  SYSOUT=A
  628. //STEPLIB  DD  DSN=NIH.ASMH29,DISP=SHR
  629. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  630. //             VOL=SER=&LIBDISK,DISP=SHR,
  631. //             DCB=BLKSIZE=11440
  632. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  633. //             VOL=SER=&ALTDISK,DISP=SHR
  634. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  635. //         DD  DSN=SYS1.SMPMTS,DISP=SHR
  636. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  637. //         DD  DSN=SYS1.AMODGEN,DISP=SHR
  638. //         DD  DSN=SYS1.ATSOMAC,DISP=SHR
  639. //         DD  DSN=SYS1.ATCAMMAC,DISP=SHR
  640. //         DD  DSN=SYS1.APVTMACS,DISP=SHR
  641. //         DD  DSN=NIH.MACLIB,DISP=SHR
  642. //SYSLIN   DD  DSN=&&LIN,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
  643. //             SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  644. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  645. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  646. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  647. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  648. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  649. //SYSUDUMP DD  SYSOUT=A
  650. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  651. ./       ADD   LIST=ALL,NAME=ALPXOBJ
  652. //*
  653. //*      ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
  654. //*      USES MVS/XA MACRO LIBRARIES
  655. //*
  656. //*      SYS - 01/12/87
  657. //*
  658. // PROC  NAME=,                  (REQ) DSNAME OF OBJ MOD
  659. //       STORAGE=FILE,                 UNIT FOR OBJ MOD
  660. //       DISK=,                  (REQ) VOL FOR OBJ MOD
  661. //       STATUS=NEW,                   DISP OF OBJ MOD DATA SET
  662. //       UNITS=80,                     SPACE ALLOC UNITS FOR OBJ MOD
  663. //       SIZE=500,                     PRIMARY SPACE ALLOC FOR OBJ MOD
  664. //       OPTIONS=,                     ASSEMBLER PARMS
  665. //       ALPOPTS=,                     ALP OPTIONS
  666. //       ASMLIST='DUMMY,',             NULLIFY TO GET ASM LISTING
  667. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  668. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  669. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  670. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  671. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  672. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  673. //       CORE=1500K                     REGION SIZE
  674. //*
  675. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  676. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  677. //*
  678. //SYSTERM  DD  SYSOUT=A
  679. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  680. //ALTPRINT DD  &ASMLIST.SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=121)
  681. //ASMPRINT DD  DSN=&&ASMLIST,UNIT=SYSDA,SPACE=(CYL,(10,5)),
  682. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  683. //PLIDUMP  DD  SYSOUT=A
  684. //POSTERR  DD  SYSOUT=A
  685. //STEPLIB  DD  DSN=NIH.ASMH29,DISP=SHR
  686. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  687. //             VOL=SER=&LIBDISK,DISP=SHR,
  688. //             DCB=BLKSIZE=11440
  689. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  690. //             VOL=SER=&ALTDISK,DISP=SHR
  691. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  692. //         DD  DSN=SYS1.SMPMTS,DISP=SHR
  693. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  694. //         DD  DSN=SYS1.AMODGEN,DISP=SHR
  695. //         DD  DSN=SYS1.ATSOMAC,DISP=SHR
  696. //         DD  DSN=SYS1.ATCAMMAC,DISP=SHR
  697. //         DD  DSN=SYS1.APVTMACS,DISP=SHR
  698. //         DD  DSN=NIH.MACLIB,DISP=SHR
  699. //SYSLIN   DD  DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
  700. //             DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
  701. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  702. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  703. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  704. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  705. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  706. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  707. //SYSUDUMP DD  SYSOUT=A
  708. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  709. ./       ADD   LIST=ALL,NAME=ALPXOBJF
  710. //*
  711. //*      ALP, ASSEMBLE (LEVEL H) AND SAVE RESULTANT OBJECT MODULE
  712. //*      USES MVS/XA MACRO LIBRARIES
  713. //*      PRODUCE ASSEMBLER LISTING ON MICROFICHE
  714. //*
  715. //*      SYS - 01/12/87
  716. //*
  717. // PROC  NAME=,                  (REQ) DSNAME OF OBJ MOD
  718. //       STORAGE=FILE,                 UNIT FOR OBJ MOD
  719. //       DISK=,                  (REQ) VOL FOR OBJ MOD
  720. //       STATUS=NEW,                   DISP OF OBJ MOD DATA SET
  721. //       UNITS=80,                     SPACE ALLOC UNITS FOR OBJ MOD
  722. //       SIZE=500,                     PRIMARY SPACE ALLOC FOR OBJ MOD
  723. //       OPTIONS=,                     ASSEMBLER PARMS
  724. //       ALPOPTS=,                     ALP OPTIONS
  725. //       LIBNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  726. //       LIBSTOR=FILE,                 MACRO LIBRARY UNIT
  727. //       LIBDISK=,                     MACRO LIBRARY VOLUME
  728. //       ALTNAME='NIH.MACEMPTY',           MACRO LIBRARY DSNAME
  729. //       ALTSTOR=FILE,                 MACRO LIBRARY UNIT
  730. //       ALTDISK=,                     MACRO LIBRARY VOLUME
  731. //       MFID='ALP',             (REQ) UNIQUE IDENTIFIER
  732. //       MFNAME='NIH.ALPFICHE',        NAME OF PTFORM CTL DS
  733. //       MFSTOR=FILE,                  UNIT NAME FOR PTFORM CTL DS
  734. //       MFDISK=,                      VOL SERIAL FOR PTFORM CTL DS
  735. //       CORE=1500K                     REGION SIZE
  736. //*
  737. //COMP   EXEC  PGM=MWCALPCH,REGION=&CORE,
  738. //             PARM='&ALPOPTS/NODECK,OBJECT,TERM,NOTEST,&OPTIONS'
  739. //*
  740. //SYSTERM  DD  SYSOUT=A
  741. //ASMPRINT DD  DSN=&&ASMLIST,UNIT=SYSDA,DISP=(NEW,PASS),
  742. //             SPACE=(CYL,(10,5)),
  743. //             DCB=(RECFM=FBM,LRECL=121,BLKSIZE=11374)
  744. //NEWPRINT DD  SYSOUT=A,DCB=(RECFM=FBA,LRECL=140,BLKSIZE=140)
  745. //PLIDUMP  DD  SYSOUT=A
  746. //POSTERR  DD  SYSOUT=A
  747. //STEPLIB  DD  DSN=NIH.ASMH29,DISP=SHR
  748. //SYSLIB   DD  DSN=&LIBNAME,UNIT=&LIBSTOR,
  749. //             VOL=SER=&LIBDISK,DISP=SHR,
  750. //             DCB=BLKSIZE=11440
  751. //         DD  DSN=&ALTNAME,UNIT=&ALTSTOR,
  752. //             VOL=SER=&ALTDISK,DISP=SHR
  753. //         DD  DSN=NIH.ALPLIB,DISP=SHR
  754. //         DD  DSN=SYS1.SMPMTS,DISP=SHR
  755. //         DD  DSN=SYS1.MACLIB,DISP=SHR
  756. //         DD  DSN=SYS1.AMODGEN,DISP=SHR
  757. //         DD  DSN=SYS1.ATSOMAC,DISP=SHR
  758. //         DD  DSN=SYS1.ATCAMMAC,DISP=SHR
  759. //         DD  DSN=SYS1.APVTMACS,DISP=SHR
  760. //         DD  DSN=NIH.MACLIB,DISP=SHR
  761. //SYSLIN   DD  DSN=&NAME,UNIT=&STORAGE,VOL=SER=&DISK,
  762. //             DISP=(&STATUS,KEEP),SPACE=(&UNITS,(&SIZE,20),RLSE),
  763. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680)
  764. //SYSOUT   DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  765. //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=11440)
  766. //SYSPRINT DD  UNIT=SYSDA,SPACE=(CYL,(10,5)),
  767. //             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=11438)
  768. //SYSPUNCH DD  SYSOUT=B,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  769. //SYSUDUMP DD  SYSOUT=A
  770. //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
  771. //*
  772. //SPTID  EXEC  PGM=RHB195,REGION=500K,COND=(24,LE,COMP),PARM='M4500'
  773. //*
  774. //*      PLACE SPOUT CONTROL RECORDS ON TAPE
  775. //*
  776. //HEADER   DD  DSN=MICRO105.&MFID,
  777. //             UNIT=FICHE,VOL=PRIVATE,DISP=(NEW,PASS),
  778. //             DCB=(RECFM=FB,LRECL=135,BLKSIZE=3915,DEN=3)
  779. //SYSUDUMP DD  SYSOUT=A
  780. //*
  781. //PTFORM   EXEC  PGM=PTFORM,REGION=500K,COND=(24,LE,COMP)
  782. //*
  783. //*      CONVERT LISTING DATA SET TO MICROFICHE FORMAT
  784. //*
  785. //EZFOUTPT DD  DSN=MICRO105.&MFID,DISP=(MOD,KEEP,DELETE)
  786. //EZFPARMS DD  DSN=&MFNAME,UNIT=&MFSTOR,
  787. //             VOL=SER=&MFDISK,DISP=SHR
  788. //EZFSTATS DD  SYSOUT=A,DCB=BLKSIZE=133
  789. //PTFINPUT DD  DSN=&&ASMLIST,DISP=(OLD,DELETE)
  790. //SYSUDUMP DD  SYSOUT=A
  791. ./       ADD   LIST=ALL,NAME=ALPXPRE
  792. //*
  793. //*      ALP PREPROCESSING ONLY
  794. //*
  795. //*      SYS - 01/12/87
  796. //*
  797. // PROC  ASMLIST='DUMMY,',             NULLIFY TO GET ASM LISTING
  798. //       ALPOPTS=                      ALP OPTIONS
  799. //*
  800. //COMP   EXEC  PGM=MWCALP,REGION=1500K,
  801. //             PARM='&ALPOPTS/'
  802. //*
  803. //SYSTERM  DD  SYSOUT=A
  804. //PLIDUMP  DD  SYSOUT=A
  805. //SYSPRINT DD  SYSOUT=A
  806. //SYSOUT   DD  &ASMLIST.SYSOUT=A,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
  807. //SYSUDUMP DD  SYSOUT=A
  808. /*
  809. /*NUMBERED
  810. //  EXEC  PGM=IEBUPDTE
  811. //SYSPRINT DD SYSOUT=A
  812. //SYSUT1   DD DSN=NIH.VPROCLIB,DISP=SHR
  813. //SYSUT2   DD DSN=NIH.VPROCLIB,DISP=SHR
  814. //SYSIN    DD *
  815. ./       REPRO  NAME=ASMHCALL
  816. ./       ALIAS  NAME=ALPHCALL
  817. ./       ALIAS  NAME=ALPSCALL
  818. ./       ALIAS  NAME=ALPXCALL
  819. ./       REPRO  NAME=ASMHLDGO
  820. ./       ALIAS  NAME=ALPHLDGO
  821. ./       ALIAS  NAME=ALPSLDGO
  822. ./       ALIAS  NAME=ALPXLDGO
  823. ./       REPRO  NAME=ASMHLKGO
  824. ./       ALIAS  NAME=ALPHLKGO
  825. ./       ALIAS  NAME=ALPSLKGO
  826. ./       ALIAS  NAME=ALPXLKGO
  827. ./       REPRO  NAME=ASMHLKMM
  828. ./       ALIAS  NAME=ALPHLKMM
  829. ./       ALIAS  NAME=ALPSLKMM
  830. ./       ALIAS  NAME=ALPXLKMM
  831. ./       REPRO  NAME=ASMHLKSM
  832. ./       ALIAS  NAME=ALPHLKSM
  833. ./       ALIAS  NAME=ALPSLKSM
  834. ./       ALIAS  NAME=ALPXLKSM
  835. ./       REPRO  NAME=ASMHPPE
  836. ./       ALIAS  NAME=ALPHPPE
  837. ./       ALIAS  NAME=ALPSPPE
  838. ./       ALIAS  NAME=ALPXPPE
  839. //  EXEC  CATDS
  840. //NIHLB4 DD UNIT=FILE,VOL=SER=NIHLB4,DISP=OLD
  841. //SYSIN DD *
  842.  UNCATLG DSNAME=NIH.ALPFICHE
  843.  SCRATCH DSNAME=NIH.ALPFICHE,VOL=FILE=NIHLB4
  844. //  EXEC  PGM=IEBUPDTE,PARM=NEW
  845. //SYSPRINT DD SYSOUT=A
  846. //SYSUT2 DD DSN=NIH.ALPFICHE,UNIT=FILE,VOL=SER=NIHLB4,DISP=(,CATLG),
  847. //          SPACE=(TRK,(1,1),RLSE),
  848. //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=6320)
  849. //SYSIN DD *
  850. ./  ADD  LIST=ALL
  851. /*UNNUMBERED
  852. $REPORT-1  SETUP  INCC=MACH,RMSCAN=ALL,DEVICE=4500,LNPERPG=61,
  853.                   FORMAT=(FICHE,42X),INDXPG=(61,2,62,2,'L'),
  854.                   INDXHDR=(('GRID  LOC     STMT SEQUENCE  TITLE
  855.                   '                        ',2)),
  856.                   LOGOINIT=EZFLOGO,VOLSWTCH=0
  857.         MAJORBRK  GRID=(64,60)
  858.           RDATA1  LINE=(1,1),POSITION=(2,9),MASK='A'
  859.            INDEX  (LINE=6,POSITION=(2,7),MASK='ZZZZZZ',CONNECT=' '),
  860.                   (LINE=6,POSITION=(36,40),CONNECT=' ',
  861.                    MASK=('BBBB9','BBB99','BB999','B9999','99999')),
  862.                   (LINE=6,POSITION=(114,121),MASK='XXX9XXXX',
  863.                    CONNECT=' '),
  864.                   (LINE=(1,1),POSITION=(11,47),MASK='N',CONNECT='  ')
  865.            TITLE  SEGMENT=(1,1),LOGO=(EZFLOGO,1,1),
  866.                   SEGMENT=(6,54,'   ALP ASSEMBLY LISTING'),
  867.                   DATA=(DATE,2,31),DATA=(TIME,2,43),
  868.                   SEGMENT=(2,10),DATA=(RDATA1,3),
  869.                   SEGMENT=(2,2),DATA=((FSEQNO,1),4,2)
  870. $END
  871.