REXX PROGRAM TO DETERMINE IF A JOB IS ACTIVE

-
/* REXX */
/* REXX PROGRAM TO DETERMINE IF A JOB IS ACTIVE. */
/* PARAMETERS: JOB NAME */
/* JOB NUMBER */
/* USER */
/* RETURNS: "1" ACTIVE , "0" NOT ACTIVE */
/*********************************************************************/
PARSE ARG JOB_NAME USER JOB_NUMBER
BUFFER = 0
'ADDREXBUF BUFFER(&BUFFER)'
/* CREATE ACTIVE JOB LISTING. */
'WRKACTJOB OUTPUT(*PRINT)'
/* CREATE TEMPORARY WORK FILE TO STORE SPOOLED FILE OUTPUT  */
'CHKOBJ QTEMP/ACTJOBLST *FILE'
IF RC ¬= '0' THEN
'CRTPF QTEMP/ACTJOBLST RCDLEN(132)'
/*COPY THE LAST SPOOLED FILE FROM WRKACTJOB TO THE TEMPORARY WORK
FILE.*/
'CPYSPLF FILE(SCMDH71) TOFILE(QTEMP/ACTJOBLST) SPLNBR(*LAST)'
/*COPY THE WRKACTJOB OUTPUT FROM QTEMP TO THE REXX QUEUE.*/
'CPYFTOREXQ FROMFILE(QTEMP/ACTJOBLST) MBR(ACTJOBLST)'
 DO QUEUED()
 PARSE PULL ACT_JOB_NAME ACT_USER ACT_JOB_NUMBER REST
 /* IF ACTIVE JOB IS SAME AS ARGUMENT, THEN RETURN 1.*/
 IF JOB_NAME = ACT_JOB_NAME & JOB_NUMBER = ACT_JOB_NUMBER & ,
 USER = ACT_USER THEN DO
 /* REMOVE BUFFER FROM THE REXX DATA QUEUE.*/
 'RMVREXBUF BUFFER(&BUFFER)'
 EXIT(1)
 END
 END
/* REMOVE BUFFER FROM THE REXX DATA QUEUE.*/
'RMVREXBUF BUFFER(&BUFFER)'
/* NO ACTIVE JOB FOUND ON QUEUE.*/
EXIT(0)

Comments

Post a Comment

Popular posts from this blog

Date/time constants in JCL

-
You can use DATE, DATE=(abcd), DATENS=(abc), YDDD=(abc) and YDDDNS=(ab) to generate CH/ZD constants for the current data (that is, today's date) as follows: DATE creates a constant in the form C'mm/dd/yy' which on March 15, 2005 would be C'03/15/04'. DATE=(abcd) creates a constant in the form C'adbdc' where a, b and c can be M for mm, D for dd, Y for yy or 4 for yyyy, and d is the separator character. For example, DATE=(DM4.) creates C'dd. mm.yyyy’ which on March 15, 2005 would be C'15. 03.2005’. DATENS=(abc) creates a constant in the form C'abc' where a, b and c can be M for mm, D for dd, Y for yy or 4 for yyyy. For example, DATE=(DMY) creates C'ddmmyy' which on March 15, 2005 would be C'150304'. YDDD=(abc) creates a constant in the form C'acb' where a and b can be D for ddd, Y for yy or 4 for yyyy, and c is the separator character. For example, YDDD=(...
Read more

JCL ABeND --

-
   The below job produces the dump . //HWINS01A JOB (HW213AB99T,PGRN,1,1,0),'KEN CALDWELL',NOTIFY=&SYSUID,                                               //*                                                           //JOBLIB  DD DSN=&SYSUID..JCLADV.LOAD,DISP=SHR                   //*                                                                    //STEP1   EXEC PGM=PGMABEND                        ...
Read more

IEBGENER usage examples

-
• Copy datasets //STEPCOPY EXEC PGM=IEBGENER //SYSUT1   DD DSN=G1SG00AT.OLDFILE1,DISP=SHR //SYSUT2   DD DSN=G1SG00AT.NEWFILE, //         DISP=(NEW,CATLG,DELETE), //         UNIT=SYSDA, //         SPACE=(CYL(2,2),RLSE), //         DCB=(LRECL=80,BLKSIZE=0,RECFM=FB,DSORG=PS), //         MGMTCLAS=TSONORM //SYSPRINT DD SYSOUT=* //SYSOUT   DD SYSOUT=* //SYSIN    DD DUMMY Index • Concatenate datasets //STEPCONC EXEC PGM=IEBGENER //SYSUT1   DD DSN=G1SG00AT.OLDFILE1,DISP=SHR //         DD DSN=G1SG00AT.OLDFILE2,DISP=SHR //         DD DSN=G1SG00AT.OLDFILE3,DISP=SHR //SYSUT2   DD DSN=G1SG00AT.NEWFILE, //         DISP=(NEW,CATLG,DELETE), //         UNIT=SYSDA, //         SPACE=(CYL(2,2),RLSE), //         DCB=(LRECL=80,BL...
Read more