View previous topic :: View next topic
Author
Message
radhakrishnan82 Active User Joined: 31 Mar 2005Posts: 435 Location: chennai, India
My requirement is to subtract 10 days from DATE timestamp. will it be possible in DFSORT.
datetimestamp x(26).
Position 34 to 59 .
LRECL 80 FB.
Value: 2011-02-18-11.01.54.972002
Back to top
radhakrishnan82 Active User Joined: 31 Mar 2005Posts: 435 Location: chennai, India
My requirement is to subtract 10 days from DATE timestamp. will it be possible in DFSORT.
datetimestamp x(26).
Position 34 to 59 .
LRECL 80 FB.
Value: 2011-02-18-11.01.54.972002
_________________
regds,
radhakrishnan v
"Doubt your doubts and believe your belief
And don?t doubt your belief and believe in your doubts"
Back to top
radhakrishnan82 Active User Joined: 31 Mar 2005Posts: 435 Location: chennai, India
Code:
OUTREC IFTHEN=(WHEN=INIT,BUILD=(1,33,34,10,UFF,TO=ZD,LENGTH=8,
44,2,46,35))
*
Results to 20110218 -11.01.54.972002
Then if i try to subtract days,
Code:
OVERLAY=(234:234,8,Y4T,SUBDAYS,+10,TOGREG=Y4T(-))
I am not able to get the correct syntax for rebuilding. Pls help.
Back to top
expat Global Moderator Joined: 14 Mar 2007Posts: 8797 Location: Welsh Wales
What is the error that you are getting.
Saying that it doesn't work is not really much help at all.
Please post the output from the run with all of the error messages AND codes.
Back to top
radhakrishnan82 Active User Joined: 31 Mar 2005Posts: 435 Location: chennai, India
SUBDAYS is not accepted in my shop.
can you please give me some other option to fix this.
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
Please run the following job and show the messages you receive in //SYSOUT so we can see what level you're at:
Code:
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
RECORD
//SORTOUT DD DUMMY
//SYSIN DD *
OPTION COPY
/*
Back to top
radhakrishnan82 Active User Joined: 31 Mar 2005Posts: 435 Location: chennai, India
I ran the job and sysout resulted below.
Code:
1ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 03:16 ON WED F
0 OPTION COPY
ICE201I G RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K51707 C6-K51707 C7-K54603 C8-K51707 E9-K51707 C9-BASE E5-K55337
ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
ICE088I 0 VCGPVALD.S1 . , INPUT LRECL = 80, BLKSIZE = 80, TYPE = F
ICE093I 0 MAIN STORAGE = (MAX,4194304,4181086)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (4063966,4063966)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y
ICE128I 0 OPTIONS: SIZE=4194304,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=N,OUTREL=Y,CKPT
ICE131I 0 OPTIONS: TMAXLIM=4194304,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=N,CFW
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=Y,TEXIT=N,LISTX=N,EFS=NONE ,EXIT
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=0 ,ODMAXBF=0,SOLRF=N,VLLONG=N,VSAM
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTOUT
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTIN
ICE751I 1 EF-K49535 F0-K62421 E8-K51707
ICE090I 0 OUTPUT LRECL = 80, BLKSIZE = 80, TYPE = F
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 1, OUT: 1
ICE052I 0 END OF DFSORT
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
You asked the same question on another board and received an answer.
Please don't post the same question on more than one board.
Back to top
Please enable JavaScript!