Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums 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: 34
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: 7314

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: 34
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: 7314

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 Process Last Key of a record based on... naveen katkuri DFSORT/ICETOOL 5 Mon Nov 12, 2018 9:54 am
No new posts S9(11)V9(02) to S9(9)V9(2) COMP-3 sprikitik SYNCSORT 2 Tue Oct 23, 2018 6:19 pm
This topic is locked: you cannot edit posts or make replies. Get value from 2nd record and PUSH it... ashokakash JCL & VSAM 1 Wed Oct 17, 2018 11:41 am
No new posts Merge data from record pairs ashokakash DFSORT/ICETOOL 5 Wed Oct 17, 2018 11:38 am
No new posts Process only last key record in a fil... Naveen.katkuri24 DFSORT/ICETOOL 8 Tue Oct 09, 2018 9:39 am

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