Need to split single line into two lines and replace string

sonali L tambade · New User Joined: 04 Nov 2020 Posts: 3 Location: India

I have a dynamically created input file which has transmission job details, I need to replace the node with my node and also the folder path with my path, I am able to achieve the replacement of node with IFTHEN/OVERLAY option but while doing same for folder path but it is going beyond 70 as the folder path is long , I tried splitting the line or replacing the path its not working. file is LRECL 70 FB.
Starting position is 3. Please help.

My input file has below records

Rohit Umarjikar · Posted: Thu Nov 05, 2020 2:00 am

Welcome !!
Please make a use of Code tags. You can post what you tried instead of saying it. Second, confirm if this is what you want -
Find &DSN2= and push the current value to next line and add the one that you have hardcoded? It doesn't match in your example above as /fffffff/ is added after /eeeeeeeee/ in expected results.

You can think of using INREC IFTHEN=(WHEN=Condition, PUSH whatever is after &DSN2=)
in OUTREC you can BUILD using '/' operator to get the push'd value on to second line eliminating blank records.

Or
I believe, You can achieve using JOINKEYS too:)

Joerg.Findeisen · Posted: Thu Nov 05, 2020 11:04 am

Rohit Umarjikar · Posted: Thu Nov 05, 2020 6:14 pm

That’s right OUTFIL, it’s one of those auto spells🙂. Thanks Joerg.

sonali L tambade · New User Joined: 04 Nov 2020 Posts: 3 Location: India

Thanks for your replies, I was able to achieve the split of line with below and get it into output file-

INPUT - &DSN2='testflder/TEST_D20201101_S01431_C_P1_D' -

OUTPUT -
&DSN2='testflder/
TEST_D20201101_S01431_C_P1_D' -

SORT FIELDS=COPY
OUTFIL IFTHEN=(WHEN(10,10,CH,EQ,C'gcdudaily/'),
BUILD=(1,19,70:X,/,20,47))

Now I want to reformat below input

INPUT -

&DSN2='testflder/
TEST_D20201101_S01431_C_P1_D' -

Expected output -

&DSN2=\'/data/test/cd/DEV/testfolder/upload/\ || -
\TEST_D20201101_S01431_C_P1_D'\ -

I used below sort card but its not working, also I am not sure how to apen slash at the start and end of TEST_D20201101_S01431_C_P1_D
Please give some idea

//CTL1CNTL DD *
OPTION COPY
INREC IFOUTLEN=70,
IFTHEN=(WHEN(10,9,CH,EQ,C'testfolder'),
OVERLAY=(10:C'\'/data/test/cd/DEV/testfolder/upload/\ || -'))
/*

Thanks in advance for helping out

Joerg.Findeisen · Posted: Thu Nov 05, 2020 7:51 pm

Use code tags when presenting code and data!

sonali L tambade · New User Joined: 04 Nov 2020 Posts: 3 Location: India

Thanks a Ton! Joerg. It worked! got the expected output

sergeyken · Senior Member Joined: 29 Apr 2008 Posts: 1140

The same story, again, and again: any advice given to new-coming “experts” is 100% ignored. They are waiting ONLY for a ready to copy-and-paste solution presented to them after all. Next step: “Thank you, Mr. Expert, it worked fine!” And after a short period of time the next question is posted here, to help with his new job assignment, and rather to do his job for him, free of charge...