Using CA OLQ Efficiently › Controlling Data Retrieval › OLQ DML User Exit › Assembly and Link Edit (z/OS)

Assembly and Link Edit (z/OS)

//*----------------------------------------------------------------
//*            ASSEMBLER IEV90 JOB STREAM
//*----------------------------------------------------------------
//ASMSTEP EXEC PGM=IEV90,
//        PARM='ALIGN,XREF,PUNCH,NODECK',
//        REGION=2048K
//SYSLIB       DD  DSN=yourHLQ.CAGJMAC,DISP=SHR
//             DD  DSN=yourHLQ.CAGJSRC,DISP=SHR
//             DD  DSN=os390.maclib,DISP=SHR
//SYSUT1       DD  DSN=&.&SYSUT1.,UNIT=VIO,SPACE=(1700,(600,100))
//SYSUT2       DD  DSN=&.&SYSUT2.,UNIT=VIO,SPACE=(1700,(600,100))
//SYSUT3       DD  DSN=&.&SYSUT3.,UNIT=VIO,SPACE=(1700,(600,100))
//SYSPRINT     DD  SYSOUT=*
//SYSPUNCH     DD  DSN=&.&OBJECT.,
                   DISP=(NEW,PASS),
                   UNIT=SYSDA,
                   SPACE=(80,(500,1000))
//SYSIN        DD  *
OLQ DML Exit program
//*----------------------------------------------------------------
//*            LINK IEWL
//*----------------------------------------------------------------
//LINK    EXEC PGM=IEWL,
//        PARM='LET,LIST,XREF,RENT',
//        REGION=128K,
//        COND=(8,LT,ASMSTEP)
//SYSLMOD      DD  DSN=idms.loadlib,DISP=SHR
//SYSPRINT     DD  SYSOUT=*
//SYSUT1       DD  DSN=&.&SYSUT1.,
//             UNIT=SYSDA,
//             SPACE=(6400,(80)),
//             DISP=(NEW,PASS)
//IN1          DD  DSN=yourHLQ.CAGJLOAD,DISP=SHR
//IN2          DD  DSN=&.&OBJECT.,DISP=(OLD,DELETE)
//SYSLIN       DD  DDNAME=SYSIN
//SYSIN        DD  *
 INCLUDE IN1(OLQSDMLE)
 INCLUDE IN2
 INCLUDE IN1(IDMSBALI)
 ENTRY ENTRY
 MODE AMODE(31),RMODE(ANY)
 NAME OLQSDMLE(R)