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=*