Include Statement andf sorting from more than one segment

[tdanielxyz]

I would liker to see how we can use INCLUDE COND to get data extracted from three segments in a file.
Fields 1 and 2 that I am interested in the file are in a segment named CZ0 which starts in position 1 for a length of 3 in the file.
Fields 3 that I need is in another segment named CA0 in the same file which also starts in position 1 for a length of 3.
Fields 4 that I am looking for is in another segment in the file AX0 which also starts in position one for a length of 3.

Field 1 is for a length of 3 bytes and it starts in position 63 in the file.
Field 2 is for a length of 7 bytes starting in position 55
Field 3 is for a length of 15 bytes starting in position 190
Field 4 is for a length of 10 bytes starting in position 350.

How can I create the output with the four fields that I am interested in? Since the fields are not in the same segment, I have difficulty in getting the output correctly. Any help will be appreciated.

[NicC]

What have you got so far?

[tdanielxyz]

//STEP002 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=input file1
// DD DSN=Input file 2
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,3,CH,EQ,C'CZ0'),AND,
(1,3,SS,EQ,C'CA0'),OR
(1,3,SS,EQ,C'AX0'))

when I run the job, it creates out from field 4 only, ignoring fields 1 thru 3.
OUTRECFIELDS=(63,3,x,55,7,X,190,15,X,350,10,X)
/*

[sergeyken]

I would liker to see how we can use INCLUDE COND to get data extracted from three segments in a file.
Fields 1 and 2 that I am interested in the file are in a segment named CZ0 which starts in position 1 for a length of 3 in the file.
Fields 3 that I need is in another segment named CA0 in the same file which also starts in position 1 for a length of 3.
Fields 4 that I am looking for is in another segment in the file AX0 which also starts in position one for a length of 3.

Field 1 is for a length of 3 bytes and it starts in position 63 in the file.
Field 2 is for a length of 7 bytes starting in position 55
Field 3 is for a length of 15 bytes starting in position 190
Field 4 is for a length of 10 bytes starting in position 350.

How can I create the output with the four fields that I am interested in? Since the fields are not in the same segment, I have difficulty in getting the output correctly. Any help will be appreciated.

A senseless bunch of words...

Please, re-explain for clarity, and give some examples of input and output records

So far, it sounds like a sort of bullshit.

[dneufarth]

Basic info needed: sample of input and sample of desired output.

[enrico-sorichetti]

Since the fields are not in the same segment

what in &hell is a segment ?

[tdanielxyz]

The input has CA0 and CZ0 and AX0 as the first three bytes as you can see below in row 4,5 and 14 below. I need to do the sort to get fields from input at positions 55 for 7 bytes, position 63 for 3 byes position 190 for 15 bytes and 350 for 10 bytes. The output file I want should have data as below. I have not displayed full records in the file below intentionally.

MNOX0070230X137192205464799X 1000273500

MNO from position 63-65, 0070230 from 55-61, 137192205464799 from 190 thru 205 and 1000273500 from 350 for 359. When I run the sort job shown, I am getting the data in split
in 3 lines. CA0 ,CZ0 and AX0 are in fact three segments in the file for a single claim and are related information and it repeats in the file for different claims.

Input file 1 has below data
000004 CA0 016-007108 OGARRO A BILLY
000005 CZ0 016-007108 RLSHK00000000000000ZPNA5014436230070230 MNO
000006 DA001016-007108 PF 87726
000007 DA201016-007108 NA
000008 EA0 016-007108
000009 EK0 016-007108 ABCD CLAIM
000010 FA001016-007108 201907312019073199018888
000011 HA001016-007108 PAT OWN FRAME-HIDE A BEVEL
000012 FA002016-007108 2019073120190731990199999
000013 HA002016-007108 PROG NATURAL PLY
000014 AX0 016-007108 020202020002010
000015 YA0000000000 MNOP0001 000000000 0000002000001400000
000016 BA0470917428 MNOP0001 470917428 E
000017 BA1470917428 MNOP0001 1415 N BROADWAY
000018 CA0 0000112382 NEWBORN ALISHA K 1952082
000019 CZ0020000112382 IC22 00000000000000 9282749740070926 MNO

[NicC]

Please use the code tags to present code and data - look at the difference below
You -
000004 CA0 016-007108 OGARRO A BILLY
000005 CZ0 016-007108 RLSHK00000000000000ZPNA5014436230070230 MNO
000006 DA001016-007108 PF 87726
000007 DA201016-007108 NA
000008 EA0 016-007108
000009 EK0 016-007108 ABCD CLAIM
000010 FA001016-007108 201907312019073199018888
000011 HA001016-007108 PAT OWN FRAME-HIDE A BEVEL
000012 FA002016-007108 2019073120190731990199999
000013 HA002016-007108 PROG NATURAL PLY
000014 AX0 016-007108 020202020002010
000015 YA0000000000 MNOP0001 000000000 0000002000001400000
000016 BA0470917428 MNOP0001 470917428 E
000017 BA1470917428 MNOP0001 1415 N BROADWAY
000018 CA0 0000112382 NEWBORN ALISHA K 1952082
000019 CZ0020000112382 IC22 00000000000000 9282749740070926 MNO

Me -

Code: Select all

000004 CA0  016-007108       OGARRO A             BILLY                
000005 CZ0  016-007108       RLSHK00000000000000ZPNA5014436230070230 MNO
000006 DA001016-007108       PF  87726                                  
000007 DA201016-007108       NA                                        
000008 EA0  016-007108                                                  
000009 EK0  016-007108       ABCD CLAIM                              
000010 FA001016-007108                        201907312019073199018888
000011 HA001016-007108                        PAT OWN FRAME-HIDE A BEVEL
000012 FA002016-007108                        2019073120190731990199999
000013 HA002016-007108                        PROG NATURAL PLY    
000014 AX0  016-007108       020202020002010                            
000015 YA0000000000      MNOP0001      000000000      0000002000001400000
000016 BA0470917428      MNOP0001      470917428      E                  
000017 BA1470917428      MNOP0001         1415 N BROADWAY                
000018 CA0  0000112382       NEWBORN             ALISHA      K   1952082
000019 CZ0020000112382       IC22 00000000000000    9282749740070926 MNO

Also - do not post the line numbers unless you are referencing them.