Gary McDowell
Active User
Joined: 15 Oct 2012 Posts: 139 Location: USA
|
|
|
|
The following SORT JCL will create a one 80-byte record with the System time in the following format:
CTIME,'HH:MM:SS'
Maybe you/someone can create a Parm value based on Hour (column 8-9);
Something like...
Set Parm to 'A'
If Hour > 11, Parm is 'B'
Code: |
//*-----------------------------------------------------------------
//*-- LIB: 'TEST.USER123.JCL'
//*-- MEMBER: SORTTIME
//*-- PURPOSE: CREATE SPECIFIC TIME OR SYSTEM TIME IN FOLLOWING FORM
//*-- COL...----+----1----+----2
//*-- CTIME,'HH:MM:SS'
//*-- NOTES: - USE OUTPUT FILE, FOR EXAMPLE, IN SORT INCLUDE
//*-- INCLUDE COND=(49,8,CH,EQ,CTIME,OR,59,8,CH,EQ,CTIME)
//*-- - XXX
//*-----------------------------------------------------------------
//*
//SORTTIME EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD *
12:23:56
/*
//* ----+----1----+----2
//* IE. CTIME,'17:52:56'
//SORTOUT DD DSN=TEST.USER123.SORTTIME,
// DISP=(NEW,CATLG,DELETE), T/STEP???
// UNIT=(TEST,1),
// SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//* ----+----1----+---- SPECIFIC TIME EXAMPLE RUN AT 17:52:56
//* CTIME,'12:34:56'
//*
//* ----+----1----+---- SYSTEM TIME EXAMPLE RUN AT 17:52:56
//* CTIME,'17:52:56'
//*
//*
//*--- FOR SPECIFIC TIME, RUN USING THE FOLLOWING SETUP:
//*--- USE "HH:MM:SS" FORMAT IN THE DD-SORTIN TIME BELOW.
//* ----+----1----+----2
//* //SYSIN DD *
//* OPTION COPY
//* INREC IFTHEN=(WHEN=(1,5,CH,NE,C'CTIME'),
//* BUILD=(C'CTIME,''',1,8,C'''',80:X))
//* OUTFIL ENDREC=1
//*
//*--- FOR SYSTEM CURRENT TIME, RUN USING THE FOLLOWING SETUP:
//*--- IGNORES THE DD-SORTIN TIME.
//* ----+----1----+----2
//* //SYSIN DD *
//* OPTION COPY
//* OUTREC BUILD=(C'CTIME,''',&TIME,C'''',80:X)
//* OUTFIL ENDREC=1
//SYSIN DD *
OPTION COPY
OUTREC BUILD=(C'CTIME,''',&TIME,C'''',80:X)
OUTFIL ENDREC=1
/*
// |
|
|