vikrant85
New User
Joined: 05 Dec 2008 Posts: 8 Location: pune
|
|
|
|
Code: |
//CTL3CNTL DD *
OUTFIL FNAMES=FILEC,INCLUDE=(236,1,CH,EQ,C'A'),
HEADER2=(2:'DATE ',DATE,100:'report title',
213:'REPORT OPXXXX',228:' PAGE ',PAGE=(M11,LENGTH=4),/,
2:'TIME ',93:'report subtitle',
139:'PRODUCTS',223:'PROGRAM FB14500',/,
/,
4:'CARD NUMBER',20:'PREFERRED POSTAL NAME',55:'PREFERRED LETTER',
72:'ADDRESSING',102:'ADDRESS LINE 1',143:'POST CODE + CITY NAME',
199:'COUNTRY'),
BUILD=(1,235,239:X) |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
vikrant85,
Check this job. You can choose between 24 hr/12 hr format.
Code: |
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
DUMMY RECORD
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL NODETAIL,HEADER2=('CURRENT TIME1 : ',&TIME=(24:),/,
'CURRENT TIME2 : ',&TIME=(12:)) |
SORTOUT
Code: |
CURRENT TIME1 : 01:49:07
CURRENT TIME2 : 01:49:07 am |
|
|