Here try something like this: //SY32927P JOB (ACCTNUM,EXP),'CICS/TS31 TABLEASM', // NOTIFY=&SYSUID, // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1) //* //PROCLIB JCLLIB ORDER=SYS1.CICSTS31.PROCLIB //* // EXEC DFHAUPLE,INDEX2='CICSTS31.CICS',NAME='SDFHAUTH' //* //ASSEM.SYSUT1 DD DISP=SHR, // DSN=CICSTS31.CICSORDT.TABLE.SRCELIB(DFHSITDF) <= input
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
