IBM Mainframe Forum

[rjambu]

Hi,
Could any one give me a solution for the below .
I am trying to Eliminate records with specific value in its field 1 to 9 columns and store it in another file using JCL.

File formate of both input and output files are FB

Source File:

DSN=TEST.SRC.FILE1
LRECL=1200
RECFM=FB

i/p:

Select all

454450617|b10|Connecticut|...
111111111|A10|San joes|...
111111111|T89|columbus|...
908770617|S50|New york|...

Need to eliminate the records with 111111111 which is in the field 1 to 9 and store the o/p records to dataset TEST.TGT.FILE2
Expected o/p:

Select all

454450617|b10|Connecticut|...
908770617|S50|New york|...

Thanks,
JRS

[dick scherrer]

Hello,

Look in this forum for examples of OMIT.

All you need to do is COPY the data and OMIT the value(s) you do not want in the output.

[rjambu]

Thanks Got the code from the previous post, works fine

question: Is it possible to get the eliminated records in a DataSet ?

Thanks,
JRS

[Frank Yaeger]

Is it possible to get the eliminated records in a DataSet ?

You can use a DFSORT job like the following:

Select all

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
454450617|B10|CONNECTICUT|...
111111111|A10|SAN JOES|...
111111111|T89|COLUMBUS|...
908770617|S50|NEW YORK|...
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//SYSIN DD *
  OPTION COPY
  OUTFIL FNAMES=OUT1,OMIT=(1,9,CH,EQ,C'111111111')
  OUTFIL FNAMES=OUT2,SAVE
/*

[rjambu]

Hi,
I tried the code with the the file struct below getting S1 - ABEND=S000 U0222

TEST.SRC.FILE

Select all

454450617NB10CONNECTICUT...
111111111YA10SAN JOES...   
111111111YT89COLUMBUS...   
908770617YS50NEW YORK...   

i am eliminating the records in the 10 th field having value 'N'
JCL looks like this

Select all

//S1 EXEC PGM=SORT                               
//SYSOUT DD SYSOUT=*                             
//OUT1   DD  DSN=TEST.TGT.FILE,             --  target dataset 
//           UNIT=DISK,SPACE=(TRK,(1,2),RLSE),   
//           DCB=(LRECL=1200,BLKSIZE=0,RECFM=FB),
//           DISP=(NEW,CATLG,DELETE)             
//OUT2   DD  DSN=TEST.TGT.FILE2,               --  target where the eliminated records is saved
//           UNIT=DISK,SPACE=(TRK,(1,2),RLSE),   
//           DCB=(LRECL=1200,BLKSIZE=0,RECFM=FB),
//           DISP=(NEW,CATLG,DELETE)             
//SORTIN DD TEST.SRC.FILE                     -- Source file
//OUT1 DD SYSOUT=*                               
//OUT2 DD SYSOUT=*                               
//SYSIN DD *                                     
  OPTION COPY                                     
  OUTFIL FNAMES=OUT1,OMIT=(10,1,CH,EQ,C'X')
  OUTFIL FNAMES=OUT2,SAVE                         
/*                                               
//

Please let me know if anything needs to be added ot removed?

Thanks,
JS

[dick scherrer]

Hello,

You need to post the diagnostic information generated by the run. Include the message ids.

[Akatsukami]

Hi,
I tried the code with the the file struct below getting S1 - ABEND=S000 U0222

How very unfortunate! If only it were the case that

•If ABEND or ABSTP is in effect and DFSORT terminates with an error message, you receive a user abend. With installation option ABCODE=MSG (the supplied default), the user abend code is equal to the error message (for example, U0046 for message ICE046A). With installation option ABCODE=n, the user abend code is equal to n (for example, U0010 with ABCODE=10 for any error message). For user abend codes that are error message numbers (ABCODE=MSG), you can refer to the explanation for the corresponding message (for example, the ICE046A Explanation for U0046).

Then you could read the fine manual and discover:

ICE222A

n BYTE FIXED RECORD LENGTH IS NOT EQUAL TO m BYTE LRECL FOR ddname

Explanation:
Critical. The LRECL specified or retrieved for the fixed-length OUTFIL data set was not equal to the computed length of the output records for that data set. You cannot use the LRECL value to pad the OUTFIL records or to truncate the records produced by BUILD, OUTREC, OVERLAY, FINDREP, IFTHEN BUILD, IFTHEN OVERLAY, IFTHEN FINDREP or IFTHEN PUSH operand processing. The values shown in the message are as follows:

• n is the computed length of the output records for the OUTFIL group
• m is the specified or retrieved LRECL of the OUTFIL data set
• ddname indicates the OUTFIL data set for which padding or truncation was required

System action:
The program terminates.

Programmer response:
Take one of these actions as appropriate:

• Do not set the LRECL explicitly. Instead, let DFSORT set the LRECL to the computed record length.
• If you are using IFTHEN operands, specify IFOUTLEN=m. (Remember to allow an extra byte for OUTFIL report data sets for the ANSI carriage control character unless you specify the REMOVECC operand.)
• If you are not using IFTHEN operands, ensure that the computed length for the BUILD, OVERLAY, or FINDREP operand, or the specified MAXLEN length for the FINDREP operand, is equal to m. (Remember to allow an extra byte for OUTFIL report data sets for the ANSI carriage control character unless you specify the REMOVECC operand.)

[Frank Yaeger]

Source File:

DSN=TEST.SRC.FILE1
LRECL=1200
RECFM=FB

If the SORTIN data set has RECFM=FB and LRECL=1200 as you say in your first post, then the job would work fine and you'd get DFSORT messages like this:

Select all

...
ICE088I 0 JRS3    .S1      .        , INPUT LRECL = 1200, BLKSIZE = 27600, TYPE = FB
...
ICE210I 0 OUT1     : EXCP USED, LRECL = 1200, BLKSIZE = 27600, TYPE = FB   (SDB)
ICE210I 0 OUT2     : EXCP USED, LRECL = 1200, BLKSIZE = 27600, TYPE = FB   (SDB)
...
ICE054I 0 RECORDS - IN: 4, OUT: 4                                   
ICE227I 0 OUT1     : DELETED = 0, REPORT = 0, DATA = 4               
ICE228I 0 OUT1     : TOTAL IN = 4, TOTAL OUT = 4                     
ICE227I 0 OUT2     : DELETED = 4, REPORT = 0, DATA = 0               
ICE228I 0 OUT2     : TOTAL IN = 4, TOTAL OUT = 0                     

For your example input, all of the records would go to OUT1 since none of them have X in position 10.

Since you received the ICE222A message, it appears that you gave some bad information in your first post. You received a message like this:

ICE222A 0 1100 BYTE FIXED RECORD LENGTH IS NOT EQUAL TO 1200 BYTE LRECL FOR OUT1

The first value would be the LRECL of your input file and it does NOT match the 1200 byte LRECL for your output file.

Please give the correct RECFM and LRECL of your input file and expected output files.

Please show the complete JES log for your run.

Note that you have duplicate //OUT1 DDs - DFSORT will use the first one it finds. Same with your duplicate //OUT2 DDs.