//RXSDO JOB (----------,-----,-----), // MSGCLASS=T, // MSGLEVEL=(1,1),TIME=10, // NOTIFY=&SYSUID,REGION=7M //* COMPILE RXSDO: //CRXSDO EXEC PGM=IGYCRCTL, // PARM='DATA(31),SSRANGE' //STEPLIB DD DISP=SHR,DSN=SYS2.ADCYCLE.COBOL370.SIGYCOMP //SYSIN DD DISP=SHR,DSN=OURQUAL.COBOL(RXSDO) * COBOL SOURCE * //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSUT1 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT2 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT3 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT4 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT5 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT6 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT7 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSLIN DD DSN=&COMPOU1,DISP=(MOD,PASS),UNIT=VIO, // SPACE=(CYL,(2,2)),DCB=(BLKSIZE=3120) //* COMPILE RXSGEM: //CRXSGEM EXEC PGM=IGYCRCTL, // PARM='DATA(31),SSRANGE' //STEPLIB DD DISP=SHR,DSN=SYS2.ADCYCLE.COBOL370.SIGYCOMP //SYSIN DD DISP=SHR,DSN=OURQUAL.COBOL(RXSGEM) * COBOL SOURCE * //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSUT1 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT2 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT3 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT4 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT5 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT6 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSUT7 DD UNIT=VIO,SPACE=(CYL,(1,2)) //SYSLIN DD DSN=&COMPOU2,DISP=(MOD,PASS),UNIT=VIO, // SPACE=(CYL,(2,2)),DCB=(BLKSIZE=3120) //* //* LINKING //LKED EXEC PGM=IEWL,PARM='XREF,LIST,MAP,AMODE(31),RMODE(ANY)' //SYSPRINT DD SYSOUT=* //SYSLIB DD DISP=SHR,DSN=SYS2.ADCYCLE.LE370.SCEELKED //MQ DD DISP=SHR,DSN=SYS1.MQM.MQC.SCSQLOAD //SYSLMOD DD DISP=SHR,DSN=OURQUAL.LOAD(RXSDO) /* OUTPUT LOAD LIBRARY */ //SYSLIN DD DISP=OLD,DSN=&COMPOU1 // DD DISP=OLD,DSN=&COMPOU2 // DD * INCLUDE MQ(CSQBSTUB) SINGLEPHASE COMMIT PROVIDED BY MQ/390 ORDER RXSDO ENTRY RXSDO NAME RXSDO(R) //