//MANIMA JOB (020406),'MANIM/941-2',
// MSGLEVEL=1,MSGCLASS=O,NOTIFY=MANIM,
// CLASS=A
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
HI MANI
//SORTOUT DD DSN=MANIM.TEST.DATE,DISP=(MOD,CATLG),
// SPACE=(TRK,(2,2)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSIN DD *
SORT FIELDS=(1,6,CH,A),FORMAT=CH
OUTREC FIELDS=(1:DATE1(-),12:TIME1(:),20:1,18)
/*
Output will be like this,
2007-04-25 03:37:44 HI MANI
Wednesday, April 25, 2007
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment