G'day, Can't remember why I ever needed to do this! But this will work ...
//MAURICE JOB (4484),JOBNAME,CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID //***************************************************************** //STEP010 EXEC PGM=IKJEFT01 //SYSPROC DD DISP=SHR,DSN=CLARKM.EXEC //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * %JOBNUM1 /* /* REXX - Display some field from the JSAB control block */ numeric digits 12 if jsab() = "00000000" then do say "the jsab control block was not found" exit 8 end say "Some information from the JSAB:" say "> JOBID---------"STORAGE(XADD(JSAB(),'14'),8) say "> JOBNAME-------"STORAGE(XADD(JSAB(),'1C'),8) say "> XCF GROUP-----"STORAGE(XADD(JSAB(),'5C'),8) exit 0 psa: procedure; return '00' ascb: procedure; return c2x( storage( xadd( psa(),'224') ,4) ) assb: procedure; return c2x( storage( xadd( ascb(),'150') ,4) ) jsab: procedure; return c2x( storage( xadd( assb(),'a8') ,4) ) xadd: procedure; return d2x( x2d(arg(1)) + x2d(arg(2)) ) Cheers, Maurice. Maurice Clark Storage Specialist AP Enterprise Solution Centre Tel: 61-3-8877-4838 Hewlett-Packard Australia Limited 351 Burwood Highway Forest Hill, 3131 Victoria Australia ---------------------------------------------------------------------- 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
