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: 7223

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: 7223

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 IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts -913/-911 Deadlock during UPDATE stat... NoSleep319 DB2 5 Fri Nov 18, 2016 12:37 am
No new posts TOT & DATE parameter in ICEMAN hemanthj642 DFSORT/ICETOOL 4 Mon Nov 14, 2016 5:19 am
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm


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