Where,
Col 1-3 --> Prog Sol Code
Col 4-5 --> Sub Prog Sol Code (parent) which can be transferred to sub prog sol code (child) represented by col 6-7, 8-9, 10-11 and so on (can occurs up to 100 times)
Now I have to determine for a sub prog sol codes (child), what could be the sub prog sol code (Parent) from which it can be transferred?
Like if we refer the above mentioned data:
Sub prog sol ZG (child) can be transferred from ZE, ZF, ZI, EH
& Sub prog sol ZF (child) can be transferred from ZE, ZG, EH
So I want my output as below
Code:
KODZG ZE,ZF,ZI,EH
KODZF ZE,ZG,EH
I am new to mainframe system. Could it be done in dfsort/icetool or in Cobol? Please help me out.
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
Posted: Wed Jun 22, 2016 10:53 am Post subject:
Upendra,
The first rule of mvsforums is: You do not post the same question in multiple forums. The second rule of mvsforums: You do not post the same question in multiple forums.
Upendra wrote:
Now I have to determine for a sub prog sol codes (child), what could be the sub prog sol code (Parent) from which it can be transferred?
How do you determine the parent? Is that the first record in the input? ie. Does the child record come after the parent? _________________ Kolusu
www.linkedin.com/in/kolusu
I apologies for posting this question in multiple forum. I posted for the first time in this forum, so inadvertently committed this mistake.
Sorry for creating confusion by naming parent and child.
My question was:
In the input file, column 4-5 represent Sub Prog Sol Code (ZE for the first record) which can be transferred to NI, ZG, ZQ and so on (represented by col 6-7, 8-9, 10-11 and so on respectively
Similarly in 2nd record Sub Prog Sol Code ZF can be transferred to NI, ZE, ZG and so on (can be transferred to 100 sub prod sol code for some record)?
Now I want to identify what all sub prod sol code (represented from col 6-7 on wards) can be transferred from sub prod sol code (represented by column 4-5) e.g if we look all the records:
'NI' Can be transferred from ZE, ZF, ZG, ZI, ZN, EH & XR
'ZG' Can be transferred from ZE, ZF, ZI & EH
'ZF' Can be transferred from ZE, ZG & EH
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
Posted: Wed Jun 22, 2016 4:06 pm Post subject:
Upendra,
Here is a JCL that would give you the desired results. I am just showing how to manage 20 codes right now. You can expand the same to 100 codes. The changes you have to make are in CTL2CNTL for OUTREC and OUTFIL. I assumed your input lrecl file to be RECFM=FB and LRECL=205. This job will NOT if your input file is a VB file.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum