MVSFORUMS.com

vinothenator_1782 · Beginner Joined: 19 May 2006 Posts: 14 Topics: 4

Hi,

I have two input files

INFILE1
INKEY1 2 9 A

INFILE2
INKEY2 1 9 A
Job infile1(inkey1) infile2(inkey2)
OUTFILE FORMAT IS INFILE1(1,12) INFILE2(2,10) INFILE1(22 13) INFILE2(15,6)....
INFILE (1,12) = FROM 1 POSITION TO 12 BYTES

I will match the two input file through keys and want to write into output file for 5 fields ( 2 fields form infile1, 3 fields from outfile2).

For other requirement i will write 6fields in output file. the field position will varies some time from input file1 2 , and inputfile2 from 3.

For other requirement i will write 10fields in output file.

I want to pass through fields size ( from position, length of the field).. any no of fields, and need to write in output file. The fields will varies , some requirement the fields from file1 is 5 , fields from file2 is 6.

I want to pass fields position through parm. generically it can right into output file

Please advise is it possible.

vinothenator_1782 · Beginner Joined: 19 May 2006 Posts: 14 Topics: 4

Hi, I didn't get any response. Please advise whether my question is understandble or or not?

Sqlcode · Intermediate Joined: 15 Dec 2006 Posts: 157 Topics: 38

vinothenator_1782,

Please show some sample of data and expected output.

Thanks,

kolusu · Posted: Fri Mar 20, 2009 10:42 am Post subject:

Brian Wood · Posted: Fri Mar 20, 2009 3:10 pm Post subject:

- Thank you, Mr. Kolusu, for the helpful clarification that vinothenator_1782 is a SyncSort user, as this was not mentioned in his post -

vinothenator_1782: I do not understand enough of your description to provide you with an assessment as to whether what you are trying to accomplish is possible using SyncSort, but I will give it a try.

My understanding of the situation, so far, is as follows:

1) You have 2 input files. Some field in File1 contains a 'key' that will correspond to a similar field in File2 (it is unclear from your description where these 'key' fields are located in the respective input files).

2) You want to write the output from the following fields from File1 and File2 whenever the 'key' matches:

File1:
position 1 for a length of 12
position 22 for a length of 13

File2:
position 2 for a length of 10
position 15 for a length of 6

If this is correct, and (for purposes of this coding example) the field containing the common 'key' is located in each file at (for example) the end of each record immediately following the field(s) you have described, then you could use JOIN processing, as in the following example (assuming fixed-length data):

For the File1 'key' field I am assuming a two-byte field starting in position 35, and I am assuming Ascending order.

For the File2 'key field I am assuming a two-byte field starting in position 21, and I am assuming Ascending order.

kalatur · Posted: Fri Mar 20, 2009 7:09 pm Post subject:

kolusu · Posted: Fri Mar 20, 2009 8:07 pm Post subject:

vinothenator_1782 · Beginner Joined: 19 May 2006 Posts: 14 Topics: 4

hi,
I know i can do it SYNC SORT. Please below data and let me know.

INFILE1 KEY ( 2,9) , LRECL=600, RECFM=FB
INFILE2 KEY (1,9) , LRECL=120, RECFM= FB

OUTFILE = (F1:1,2,9,15,F2:2,9......) - My output format will varies depending on my requirement.

Below details i will give in my input file , and then it's has to generate SYNCSORT CONTROL CARD, AND JCL.

In my input file contains below data. for one request.

INFILE1 600
INFILE2 120
OUTFILE 600
(1,9,A)
(2,9,A)
F1,FIELDS=(1,9,A)
F2,FIELDS=(2,9,A)
(F1:1,12,F2:2,10,F1:22,13,F2:15,6)

For another request
INFILE1 200
INFILE2 500
OUTFILE 150
(35,2,A)
(21,2,A)
F1,FIELDS=(35,2,A)
F2,FIELDS=(21,2,A)
(F1:1,12,F2:2,10,F1:22,13,F2:15,6,F1:200,5,F2:20,2)

I will give only above these details. It should create JCL and has to submite. Please advise is there any tool to generate.

Kolosu , I want to generate as utility , i know we cand do it SYNCSORT or EASTRIEVE PROGRAM as manully. But i will give my details as above mentioned to dynamically, then it should generate JCL.

For above question if moderator having coding, please send me.

Previously do to some reason i asked delete my question in moderator. if moderator feels bad , i am sorry.

Thanks&Regards.

Brian Wood · Posted: Mon Mar 23, 2009 3:38 pm Post subject:

vinothenator:
I first ran a step that created the template for my basic control statements. Note the reference to INKEY1, INKEY2 and OUTFILE (I simply used the names you had mentioned):

vinothenator_1782 · Beginner Joined: 19 May 2006 Posts: 14 Topics: 4

Can we pass multiple keys for INFILE1 & INFIEL2 and we can do sortout. Please advise with coding

Brian Wood · Posted: Tue Mar 24, 2009 5:04 pm Post subject:

vinothenator:
By "pass multiple keys for INFILE1 & INFILE2", do you mean can JOIN processing have multiple key fields? The answer to that is yes. JOIN would require that there be common key field(s) that exist in both files, although they could be at different positions. The common key field can have multiple keys. Example: File1 could have what you refer to as "INKEY1" at position 2 for a length of 9, ascending, and another key at position 50 for a length of 2, descending. "INKEY2" could potentially be at 1 for a length of 9, ascending, and position 201 for a length of 2.
You can use the method I described to provide overrides for whatever values you want to use for the JOINKEYS statements or for the REFORMAT statement, since this is what was designed into the original "template".

Please understand, however, that the coding example I have provided is limited to bulding the control statements for your SYSIN. Have you thought about designing a PROC using symbolics to provide the values you want for your JCL (such as the SORTOUT RECFM)?
_________________
Brian Wood
SyncSort Mainframe Product Services
201-930-8260
zos_tech@syncsort.com