How to add date(MM/DD/YY) and time(HH:MM) using DFSORT?

Redrose · New User Joined: 06 Mar 2006 Posts: 19

Dear all

,

I have a dataset with 41 records, from which i need to select the following record and add present date & time in the below format. Please help me..

sridevi2005 · New User Joined: 15 Sep 2005 Posts: 42

Hi,

Can u check this code.

SORT FIELDS=(1,15,CH,A)
OUTFIL TRAILER1=(05:'DATE LAST RUN ON : ',DATE=(MDY/),
37:'AT : ',
TIME=(24.),X,1,20),NODETAIL

Thanks,
Sridevi

Redrose · New User Joined: 06 Mar 2006 Posts: 19

Hi Sridevi,

Thanks for your response,

I got the following result with the text included 'To receive the file'. Can we eliminate this?

********************************* TOP OF DATA **********************************
DATE LAST RUN ON : 10/23/06 AT : 00.29.47 To receive the file
******************************** BOTTOM OF DATA ********************************

But i need all the data(HTML codes) in the dataset as it is.
i.e all data in the input dataset with the insertion of date & time as below.

sridevi2005 · New User Joined: 15 Sep 2005 Posts: 42

Hi,

Check the following code.
I did not find any Time format other than this.

//SORTREP JOB (2000),'SORT THE DATA',MSGCLASS=X,CLASS=B,
// NOTIFY=&SYSUID,REGION=4096K
//*COUNT THE NUMBER OF RECORDS USING SORT
//* ASSIGNING SEQUENCE NUMBERS BY USING SORT
//STEP01 EXEC PGM=ICEMAN
//SORTWK01 DD UNIT=TSRT,SPACE=(CYL,(20,20))
//SORTWK02 DD UNIT=TSRT,SPACE=(CYL,(20,20))
//SORTWK03 DD UNIT=TSRT,SPACE=(CYL,(20,20))
//SORTWK04 DD UNIT=TSRT,SPACE=(CYL,(20,20))
//SORTIN DD DISP=SHR,DSN=TA678RT.TEST.HTML
//SORTOUT DD DSN=TA678RT.TX.TEST1
// DISP=(NEW,CATLG,DELETE),
// UNIT=TARC,
// SPACE=(CYL,(30,20),RLSE),
// DCB=*.SORTIN
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL TRAILER1=(01:'<TR><TD>',09:'DATE LAST RUN ON',
26:'</TD><TD>:</TD><TD>',DATE=(MDY/),
54:'AT : ',TIME=(24:),67:'</TD></TR>'),NODETAIL

/*
//STEP02 EXEC PGM=ICEMAN
//SORTWK01 DD UNIT=TSRT,SPACE=(CYL,(20,20))
//SORTWK02 DD UNIT=TSRT,SPACE=(CYL,(20,20))
//SORTWK03 DD UNIT=TSRT,SPACE=(CYL,(20,20))
//SORTWK04 DD UNIT=TSRT,SPACE=(CYL,(20,20))
//SORTIN DD DISP=SHR,DSN=TA678RT.TEST.HTML
//DD2 DD DSN=TA678RT.TX.TEST2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TARC,
// SPACE=(CYL,(30,20),RLSE),
// DCB=(DSCB,RECFM=FB,LRECL=80,BLKSIZE=0)
//DD4 DD DSN=TA678RT.TX.TEST3,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TARC,
// SPACE=(CYL,(30,20),RLSE),
// DCB=(DSCB,RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL INCLUDE=(2,1,SS,EQ,C'ABCDEFGHIJKLMNOPQRSTUVWXYZ'),FNAMES=DD2
OUTFIL SAVE,FNAMES=DD4
/*
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TA678RT.TX.TEST1,DISP=SHR
//SORTOUT DD DSN=TA678RT.TX.TEST4,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(20,20),RLSE),
// UNIT=(TARC,30),
// DCB=(DSCB,RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(2,80)
/*
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TA678RT.TX.TEST2,DISP=SHR
// DD DSN=TA678RT.TX.TEST4,DISP=SHR
// DD DSN=TA678RT.TX.TEST3,DISP=SHR
//SORTOUT DD DSN=TA678RT.TX.TEST5,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(20,20),RLSE),
// UNIT=(TARC,30),
// DCB=(DSCB,RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1,80)
/*

Thanks,
Sridevi

Frank Yaeger · Posted: Tue Oct 24, 2006 5:07 am

Ramanan R,

Here's a DFSORT job that will do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but you can change the job appropriately for other attributes.

Redrose · New User Joined: 06 Mar 2006 Posts: 19

Sridevi

,

Thank you very much for your help, but it only list out the impact record with date & time.

Frank

,

Thanks for your reply, Your assumptions are correct. I tried with your code but it gives the following error message. Please advice

Frank Yaeger · Posted: Tue Oct 24, 2006 8:21 pm

The messages indicate you do not have DFSORT R14 PTF UQ95213 installed. This PTF has been available since Dec, 2004 so your site is quite a bit behind on DFSORT service. Ask your System Programmer to install DFSORT R14 PTF UK90006 (April, 2006). That will get you all of the latest DFSORT functions.