IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Datetimestamp subtraction


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 435
Location: chennai, India

PostPosted: Sat Feb 19, 2011 1:53 pm
Reply with quote

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
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 435
Location: chennai, India

PostPosted: Sat Feb 19, 2011 1:53 pm
Reply with quote

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
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 435
Location: chennai, India

PostPosted: Sat Feb 19, 2011 2:10 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Sat Feb 19, 2011 3:13 pm
Reply with quote

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
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 435
Location: chennai, India

PostPosted: Sat Feb 19, 2011 4:31 pm
Reply with quote

SUBDAYS is not accepted in my shop.
can you please give me some other option to fix this.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Mon Feb 21, 2011 11:55 pm
Reply with quote

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
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 435
Location: chennai, India

PostPosted: Wed Feb 23, 2011 1:47 pm
Reply with quote

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
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Wed Feb 23, 2011 11:55 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Build record according subtraction re... SYNCSORT 5
No new posts Subtraction through DFSORT DFSORT/ICETOOL 17
No new posts Addition and subtraction of dates in ... COBOL Programming 8
No new posts Syncsort - Subtraction using SORT JCL & VSAM 7
No new posts Way to get the absolute value of subt... DB2 1
Search our Forums:

Back to Top