Here is the JCL I used to generate the IPL card deck for the ABSTEST2 macro test program.<\/p>\n
First we execute our ABSLOAD program to generate the cards for the Absolute Loader.\u00a0 Next we run the assembler to assemble ABSTEST2 and punch out the object deck immediately following the Absolute Loader.\u00a0 Finally we can use IEBGENER to copy some card images to follow the object deck so our program has something to read.<\/p>\n
\/\/TXXABST2 JOB 5222,'ALDR TST',CLASS=A,MSGCLASS=A,\r\n\/\/ MSGLEVEL=(1,1)\r\n\/*JOBPARM K=0\r\n\/\/TXXOSRUN EXEC PGM=ABSLOAD\r\n\/\/STEPLIB DD DISP=SHR,DSN=TXXOS.CARD.LOAD\r\n\/\/SYSUDUMP DD SYSOUT=A\r\n\/\/PUNCH DD UNIT=00D\r\n\/\/*\r\n\/\/*\r\n\/\/*\r\n\/\/*\r\n\/\/ASM EXEC PGM=IFOX00,REGION=1024K,\r\n\/\/ PARM='LINECOUNT(44)'\r\n\/\/SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB\r\n\/\/ DD DISP=SHR,DSN=SYS1.AMODGEN\r\n\/\/ DD DISP=SHR,DSN=TXXOS.CARD.ASM\r\n\/\/SYSUT1 DD DSN=&&SYSUT1,UNIT=VIO,SPACE=(1700,(600,100))\r\n\/\/SYSUT2 DD DSN=&&SYSUT2,UNIT=VIO,SPACE=(1700,(300,50))\r\n\/\/SYSUT3 DD DSN=&&SYSUT3,UNIT=VIO,SPACE=(1700,(300,50))\r\n\/\/SYSPRINT DD SYSOUT=*\r\n\/\/SYSPUNCH DD UNIT=00D\r\n\/\/SYSIN DD DISP=SHR,DSN=TXXOS.CARD.ASM(ABSTEST2)\r\n\/\/*\r\n\/\/*\r\n\/\/GENR EXEC PGM=IEBGENER\r\n\/\/SYSPRINT DD SYSOUT=*\r\n\/\/SYSIN DD DUMMY\r\n\/\/SYSUT2 DD UNIT=00D,DCB=BLKSIZE=80\r\n\/\/SYSUT1 DD *\r\nTHIS IS A TEST CARD IN THE INPUT READER\r\nNOW WE HAVE THE SECOND CARD IN READER\r\nTHE THIRD CARD IN THE CARD READER\r\nFOURTH CARD IN OUR CARD READER\r\n\/* LAST DATA RECORD...<\/pre>\n[Next – ABSTEST2 Printer Output<\/a>]<\/p>\n","protected":false},"excerpt":{"rendered":"
Here is the JCL I used to generate the IPL card deck for the ABSTEST2 macro test program. First we execute our ABSLOAD program to generate the cards for the Absolute Loader.\u00a0 Next we run the assembler to assemble ABSTEST2 … Continue reading