Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 30
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: 7313

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: 30
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: 7313

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 LISTIDR compiled date/time jerryte IBM Tools 3 Thu Apr 20, 2017 7:37 pm
No new posts Validating file with multiple header/... mohitsaini DFSORT/ICETOOL 6 Thu Apr 13, 2017 1:53 am
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm
No new posts SUBSTR for Date functions Shaheen Shaik DB2 4 Thu Apr 06, 2017 2:14 pm
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us