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

Add system date inside of a PS file at particular column


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
pramitdas

New User


Joined: 27 Aug 2016
Posts: 3
Location: India

PostPosted: Sun Aug 28, 2016 12:06 am
Reply with quote

I have the below requirement.
I have a PS file: ABC.BCD.XYZ with the 2 header records.

ABC.BCD.XYZ
_________________________________________
Details of Employee
Empno EMPid EMPName DEPTName
__________________________________________

I need to copy this header to another file: XYZ.XYZ.XYZ but I need to add current date ( Date format should be YYMMDD- for e.g. 160828 ) in the first header record at some particular position, Say column no : 60

So my output should look like :

XYZ.XYZ.XYZ
_____________________________________
Details of Employee 160828
Empno EMPid EMPName DEPTName
_____________________________________

Can you please help with this? A sort step or anything?

Please note that I need a simple step to achieve. COBOL/SAS/EZ will not be an option as agreed with Client.
Back to top
View user's profile Send private message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Sun Aug 28, 2016 1:30 pm
Reply with quote

Quote:
Can you please help with this? A sort step or anything?

Did you try anything?
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Sun Aug 28, 2016 4:06 pm
Reply with quote

Please use the code tags when presenting JCL, data, program code, control cards or anything else that you would see on your terminal.

Also, you do not have any files - you have data sets.
Back to top
View user's profile Send private message
RahulG31

Active User


Joined: 20 Dec 2014
Posts: 446
Location: USA

PostPosted: Mon Aug 29, 2016 8:04 pm
Reply with quote

Quote:
Please note that I need a simple step to achieve. COBOL/SAS/EZ will not be an option as agreed with Client.

So, you don't know how simple or difficult it could be. You don't know how to do it and it seems that you don't even want to try. But then, you go ahead and make false promises to your Client. Not good.

.
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Mon Aug 29, 2016 9:23 pm
Reply with quote

incase first header is unique and always will have "DETAILS" in 1,7 position, use the below code.

Code:

//STEP0200 EXEC PGM=SORT                                         
//SYSOUT   DD SYSOUT=*                                           
//SYMNOUT  DD SYSOUT=*                                           
//SYMNAMES DD *                                                 
HDATE,S'&LYR2.&LMON.&DAY'                                       
//SORTIN   DD DSN=UR INPUT FB/80                                                                                 
//SORTOUT  DD DSN=UR OUPUT FB/80                                           
//SYSIN    DD *                                                 
  OPTION COPY,STOPAFT=2                                         
  INREC IFTHEN=(WHEN=(1,7,CH,EQ,C'DETAILS'),OVERLAY=(60:HDATE)) 
//*                                                             


Incase header in not unique use below code, assuming LRECL=80
Code:

//STEP0200 EXEC PGM=SORT                                   
//SYSOUT   DD SYSOUT=*                                     
//SYMNOUT  DD SYSOUT=*                                     
//SYMNAMES DD *                                           
HDATE,S'&LYR2.&LMON.&DAY'                               
//SORTIN   DD DSN=UR INPUT FB/80                                                                                 
//SORTOUT  DD DSN=UR OUPUT FB/80                                   
//SYSIN    DD *                                           
  OPTION COPY,STOPAFT=2                                   
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),       
        IFTHEN=(WHEN=(81,8,ZD,EQ,1),OVERLAY=(60:HDATE)),   
        IFOUTLEN=80                                       
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3053
Location: NYC,USA

PostPosted: Mon Aug 29, 2016 9:36 pm
Reply with quote

Welcome!
You will need to do a research and try something yourself as told by RahulG31 and then someone can help further if you get into any problems.
Try this.
Code:
SORT FIELDS=COPY                                           
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),         
      IFTHEN=(WHEN=(81,8,ZD,EQ,+1),OVERLAY=(60:DATE1))     
OUTFIL INCLUDE=(81,8,ZD,EQ,+1,OR,81,8,ZD,EQ,+2),BUILD=(1,80)
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 -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Replacing 'YYMMDD' with date, varying... SYNCSORT 3
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
Search our Forums:

Back to Top