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

To update system date in COMP-3 format in the header record.


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
dharmaraok

New User


Joined: 10 Mar 2011
Posts: 45
Location: india

PostPosted: Wed Jul 09, 2014 7:24 am
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

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7310
Location: Inside the Matrix

PostPosted: Wed Jul 09, 2014 12:10 pm
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: 45
Location: india

PostPosted: Thu Jul 10, 2014 10:00 am
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

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7310
Location: Inside the Matrix

PostPosted: Thu Jul 10, 2014 11:26 am
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts How to add 2 digits to COMP-3 file? DFSORT/ICETOOL 11
This topic is locked: you cannot edit posts or make replies. A Rexx who changes date into a JCL?Po... CLIST & REXX 9
No new posts fetch the record number from FMNMAIN ... CLIST & REXX 10
This topic is locked: you cannot edit posts or make replies. how to extract a portion (e.g. fields... SYNCSORT 8
No new posts Printing a dataset in DUMP format wit... ABENDS & Debugging 2
Search our Forums:

Back to Top