Sort help

[simo78]

Hello together,

my input file is a gds (ABC.ZTUIDR.CNO113.G001V00) and
I would like to get the following output XNO113_<DATE1>_<TIME1> for example
XNO113_140926_180629.
I tryed this

Code: Select all

//SORT   EXEC PGM=SORT                                                
//SORTIN   DD   *                                                       
ABC.ZTUIDR.CNO113.G0001V00                                              
//SORTOUT  DD   SYSOUT=*,LRECL=80                                       
//SYSOUT   DD   SYSOUT=*                                                
//SYSIN    DD   *                                                       
  OPTION COPY                                                           
  INREC IFTHEN=(WHEN=INIT,                                              
  PARSE=(%01=(ABSPOS=13,ENDBEFR=C'.G',FIXLEN=10)),                      
  BUILD=(%01))                                                          
  OUTREC OVERLAY=(90:DATE1,TIME1,60:C'_',92,6,C'_',98,6)                

but I get

Code: Select all

NO113                                                      _140926_180629

Any help is appreciated

[Attack1988]

@Simo
Are u sure of this. You have given Date1 and Time1 in 90 ..
It dint abend ?
I think yr variable (after position 13 and before '.G'
have length 10 (5 for NO1113 and 5 for spaces )
so u have to use
extra outfil outrec where u have to squeeze it
to appropraite length ,reformat it .
I cant give it in codes since dont have id to check .ok
Some one give it in codes . or suggest anather method . ^_^[/code]

[William Collins]

Attack1988, why do you think it would abend?

SQZ is certainly needed.

Also the PARSE needs extending, to set two dummy parsed field for the first two elements of the DSN.

[simo78]

@Attack1988
The JOB will not abend.

I tryed this,too

Code: Select all

//SORT   EXEC PGM=SORT                                          
//SORTIN   DD   *                                               
ABC.ZTUIDR.CNO113.G0001V00                                      
//SORTOUT  DD   SYSOUT=*,LRECL=80                               
//SYSOUT   DD   SYSOUT=*                                        
//SYSIN    DD   *                                               
  OPTION COPY                                                   
  INREC IFTHEN=(WHEN=INIT,                                      
  PARSE=(%01=(ABSPOS=13,ENDBEFR=C'.G',FIXLEN=10)),              
  BUILD=(1:C'X',%01))                                           
  OUTREC OVERLAY=(90:DATE1,TIME1,60:C'_',92,6,C'_',98,6)        
  OUTREC BUILD=(1:C'X',1,80,SQZ=(SHIFT=LEFT))    

but i don't understand why the SQZ doesn't work.

[William Collins]

You have two OUTREC statement. That shouldn't work.