CBT Tape - File 183 STRING CSECT

Freeware Page
//STRINGCJ JOB (ACCT#),STRING_CSECT, // NOTIFY=&SYSUID, // CLASS=A,MSGCLASS=X,COND=(0,NE) //* //* Generate a complete @STRING Load-Module, link-edited //* with programs which contain STRING (GENERATE,NO_CSECT) //* //HLASM EXEC PGM=ASMA90,PARM=(OBJECT,NODECK,NOESD,NORLD,NOXREF) STRING GENERATE END //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=CBTTAPE.FILE183.PDS,DISP=SHR STRING // DD DSN=SYS1.MACLIB,DISP=SHR TIME //SYSUT1 DD UNIT=VIO,SPACE=(CYL,2) //SYSLIN DD UNIT=VIO,SPACE=(TRK,1),DISP=(,PASS),BLKSIZE=3200 //* //LKED EXEC PGM=HEWLKED,PARM=(RENT,REFR) //SYSLIN DD DSN=*.HLASM.SYSLIN,DISP=(OLD,DELETE) //SYSLMOD DD DSN=CBTTAPE.FILE183.LOAD(@STRING),DISP=SHR //SYSPRINT DD SYSOUT=*