Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
To update system date in COMP-3 format in the header record.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
dharmaraok

New User


Joined: 10 Mar 2011
Posts: 39
Location: india

PostPosted: Wed Jul 09, 2014 7:24 am    Post subject: To update system date in COMP-3 format in the header record.
Reply with quote

I am having the below file:

----+----1----+----2----+----3----+
°É|
00000000000000000000008740000030000
000000000000000000000001F00000F0000

I want to update the current system date from 24-27 in comp-3 form.

The ouput should be in the below way.
°É|
00000000000000000000009740000030000
000000000000000000000001F00000F0000
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7312

PostPosted: Wed Jul 09, 2014 12:10 pm    Post subject: Reply to: To update system date in COMP-3 format in the head
Reply with quote

Please use the Code tags to preserve spacing.

In INREC, use IFTHEN=(WHEN=(logical expression to identify the header and make the change. Have no clue where you're going to source your date from, a file I hope, but likely you'll just bang in the system date.
Back to top
View user's profile Send private message
dharmaraok

New User


Joined: 10 Mar 2011
Posts: 39
Location: india

PostPosted: Thu Jul 10, 2014 10:00 am    Post subject:
Reply with quote

I have tried with the below code:
IFTHEN=(WHEN=(1,2,HEX,EQ,X'0000'),
FINDREP=(IN=X'0080714F',OUT=X'0%%OD.%%F')

X'0%%OD.%% = it will capture the system date.

But I am getting below syntax error:

INREC IFTHEN=(WHEN=(22,4,BI,EQ,X'0080714F'),
OVERLAY=(22:4,X'0%%OD.%%F'))
*
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7312

PostPosted: Thu Jul 10, 2014 11:26 am    Post subject: Reply to: To update system date in COMP-3 format in the head
Reply with quote

I have no idea what that replacement value is, but since %. O and . are not hexadecimal characters, you can't suggest to SyncSort that they are.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Create Header Dtae as MMDDYYYY thesumitk DFSORT/ICETOOL 8 Tue Feb 25, 2020 4:56 pm
No new posts IDMS record copybook Susanta IDMS/ADSO 2 Mon Feb 24, 2020 8:55 pm
No new posts Compare input date as YYMMDD with the... Khurshid_Khan SYNCSORT 5 Fri Feb 21, 2020 10:28 pm
No new posts doubt when executing a file when logg... Renato Zangerolami TSO/ISPF 2 Fri Feb 07, 2020 6:07 pm
No new posts Listing EVERY Dataset on a system DaveV All Other Mainframe Topics 4 Thu Jan 09, 2020 7:48 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us