IBM Mainframe Forum

[tvssv]

Hi,

I've a sample input file and output files are as below.

My input file is

Select all

..........PICC20090327234954JES22UTO                 
09IN02884219003000300326046340840031FLC      000102880
09IN02884219003000300326072480460031FLC      000102880
09IN02884219003000300326072492950031FLC      000102880
14NJ50461973948999093397394899909331FLCAEA   000150460
14NJ50462973948999857597394899985751FLCVMA   000150460
..........PICC20090327234954JES22UTO00001049658

OUPUT File after excluding 14NJ and having only 09IN in output file after reformating should be as below

Select all

..........PICC20090327234954JES22UTO                           
780821900300032604634084003            02880288Y260463420090327
780821900300032607248046003            02880288Y260724420090327
780821900300032607249295003            02880288Y260724420090327
..........PICC20090327234954JES22UTO00001049658

In output last 8 characters are from header date.
The complete requirement is as below for above example.
I've a input file. From this file I need to include only records having ‘09IN’ in first 4 characters in file and reformat the file as below.

The format of the output file is as below.

POS 1-4 IN REFORMATTED FILE SHOULD BE Pos 1-2 AND Pos 3-4 OF INPUT FILE AND Value should always be set to 7808

Pos 5-14 IN REFORMATTED FILE SHOULD BE Pos 10-12 ,Pos 13-15 and
Pos 16-19 of input file

Pos 15-24 IN REFORMATTED FILE SHOULD BE Pos 23-25,Pos 26-28 and
Pos 29-32 of input file

Pos 25-29 IN REFORMATTED FILE SHOULD B Pos 20-22 of input file

Pos 30-39 in reformatted file should be Reserved (Populate w/ spaces)

Pos 40-43 in reformatted file should be Pos 5-8 of input file

Pos 44-47 in reformatted file should be Pos 50-53 of input file

Pos 48 in reformatted file should be Populate ‘Y’

Pos 49-54 in reformatted file should be Pos 23-25 and Pos 26-28 of input file

Pos 55 in reformatted file should be Pos 9 of input file

Pos 56-63 in reformatted file should be Pos 15-22 in input header record (which is date)

Pos 64-70 in reformatted file should be Populate spaces

Please suggest me the sort code to do this.
In input dataset Header is starting with low values(hex 0000) and Trailer with high values(hex FFFF). I need to include this header and trailer along with detail records, but detail records should be only '09IN'
"Pos 56-63 in reformatted file should be Pos 15-22 in input trailer record "

Please suggest me the sort code.

Thanks & Regards
Tvssv

[Alissa Margulies]

This can be accomplished in SyncSort for z/OS 1.3 using IFTHEN WHEN=GROUP. What release of SyncSort are you running?

[tvssv]

Hi,
My organization uses SyncSort for z/os 1.3.1. Please suggest the sort steps without using GROUP function. I've only one day with me to complete this. Please, it would be a great help.
Thanks & REgards
Tvssv

[Alissa Margulies]

WHEN=GROUP was included in 1.3.2. You site does not have the current maintenance. I will see if I have time to work on an alternative.

[tvssv]

Thankyou Alissa Margulies so much.

Thanks & Regards
Tvssv

[dick scherrer]

Hello,

If this is due in 1 day, you have hopefully written the bit of code required to do this. This should have taken a couple of hours at most. . .

It really makes very little sense to bring a requirement to the forum looking for some immediate solution. Suggest you do not let this become a habit - there may be substantial penalties if the work doesn't get done on time because of waiting on a forum answer.

[dick scherrer]

Hello,

It does not matter that you are in a hurry. . .

Do NOT double post a question.

The duplicate has been deleted.

[Alissa Margulies]

Pos 56-63 in reformatted file should be Pos 15-22 in input header record (which is date)...
"Pos 56-63 in reformatted file should be Pos 15-22 in input trailer record "

This is conflicting information. Which is it?

[Alissa Margulies]

Assuming the date is coming from the header record, try this untested job:

Select all

//S1     EXEC PGM=SORT                           
//SYSOUT   DD SYSOUT=*                           
//SORTIN   DD DSN=INPUT.FILE,DISP=SHR             
//SORTOF01 DD DSN=&&TEMP1,DISP=(NEW,PASS)         
//SORTOF02 DD DSN=&&TEMP2,DISP=(NEW,PASS)         
//SYSIN    DD *                                   
  OUTFIL FILES=01,                               
    INCLUDE=(1,4,CH,EQ,L(C'09IN',X'0000',X'FFFF')),
    IFTHEN=(WHEN=(1,4,CH,EQ,C'09IN'),             
    BUILD=(1:C'7808',                             
           5:10,10,                               
          15:23,10,                               
          25:20,03,                               
          30:10X,                                 
          40:05,04,                               
          44:50,04,                               
          48:C'Y',                               
          49:23,06,                               
          55:09,01,                               
          64:7X,                                 
          71:C'1')),                             
    IFTHEN=(WHEN=NONE,OVERLAY=(71:C'0')           
  OUTFIL FILES=02,INCLUDE=(1,4,CH,EQ,X'0000'),   
    BUILD=(1:15,8,9:C'1')                         
/*                                             
//S2     EXEC PGM=SORT                         
//SORTJNF1 DD DSN=&&TEMP1,DISP=SHR             
//SORTJNF2 DD DSN=&&TEMP2,DISP=SHR             
//SORTOUT  DD DSN=OUTPUT.FILE,...             
//SYSOUT   DD SYSOUT=*                         
//SYSIN    DD *                               
  JOINKEYS FILES=F1,FIELDS=(71,1,A)           
  JOINKEYS FILES=F2,FIELDS=(9,1,A)             
  JOIN UNPAIRED,F1                             
  REFORMAT FIELDS=(F1:1,70,F2:1,8),FILL=(X'FF')
  SORT FIELDS=(1,4,CH,A)                       
  OUTREC IFTHEN=(WHEN=(71,8,CH,NE,X'FF'),     
  BUILD=(1,55,71,8,64,7)),                     
  IFTHEN=(WHEN=NONE,BUILD=(1,70))             
/*                                             

[tvssv]

Thank you very much Alissa.

I have tested the code with below changes.

Select all

//SYSIN     DD *                                                     
  SORT FIELDS=COPY           -Added this statement because it was giving sort missing error                                               
  OUTFIL FILES=01,                                                   
      INCLUDE=(1,4,CH,EQ,L(C'09IN',X'00000000',X'FFFFFFFF')), 
- Modified this values since it was not writing trailer Record if I keep X'0000' and X'FFFF'

      IFTHEN=(WHEN=(1,4,CH,EQ,C'09IN'),                               
      BUILD=(1:C'7808',                                               
             5:10,10,                                                 
            15:23,10,                                                 
            25:20,03,                                                 
            30:10X,                                                   
            40:05,04,                                                 
            44:50,04,                                                 
            48:C'Y',                                                 
            49:23,06,                                                 
            55:09,01,                                                 
            64:7X,                                                   
            71:C'1')),                                               
      IFTHEN=(WHEN=NONE,OVERLAY=(71:C'0'))                           
      OUTFIL FILES=02,INCLUDE=(1,4,CH,EQ,X'00000000'),    - Modified this value
          BUILD=(1:15,8,9:C'1')                           
/*                                                       


//SYSIN     DD *                               
  JOINKEYS FILES=F1,FIELDS=(71,1,A)             
  JOINKEYS FILES=F2,FIELDS=(9,1,A)             
  JOIN UNPAIRED,F1                             
  REFORMAT FIELDS=(F1:1,70,F2:1,8),FILL=(X'40')    
- changed to X'40' since it was writing high values in header and trailer
  SORT FIELDS=(1,4,CH,A)                       
  OUTREC IFTHEN=(WHEN=(71,8,CH,NE,X'FF'),       
  BUILD=(1,55,71,8,64,7)),                     
  IFTHEN=(WHEN=NONE,BUILD=(1,70))               
/*

Can you please explain what is the use of
INCLUDE=(1,4,CH,EQ,L(C'09IN',X'00000000',X'FFFFFFFF')),statment.

Thank you once again.

Thanks & Regards
Tvssv