sort sign numeric

//JS001   EXEC PGM=SORT                                 
//*                                                     
//SYSOUT   DD SYSOUT=*                                 
//*                                                     
//SORTIN   DD *                                         
-190000                                                 
    200                                                 
   -200                                                 
/*                                                     
//SORTOUT   DD DSN=TEMP.TLM.FTBDATE.OUT,               
//             DISP=(NEW,CATLG),                       
//             SPACE=(CYL,(1,1),RLSE),UNIT=TSTDA       
//*                                                     
//SYSIN    DD *                                         
  OPTION COPY                                           
  OUTREC OVERLAY=(15:1,7,FS,EDIT=(STTTTTTT),SIGNS=(+,-))

Read more: http://ibmmainframes.com/about50634.html#ixzz5Xx8ppiID

 

//S1    EXEC  PGM=ICEMAN                                 
//SYSOUT    DD  SYSOUT=*                                 
//SORTIN DD DSN=...  input file (FB)                     
//SORTOUT DD DSN=...  output file (FB)                                   
//SYSIN    DD    *                                       
  INREC OVERLAY=(139:139,8,UFF,TO=ZD,LENGTH=8)           
  SORT FIELDS=(01,9,CH,A)                               
  SUM FIELDS=(139,8,ZD)                                 
  OUTREC OVERLAY=(139:139,8,ZD,EDIT=(TTTTT.TT))

Read more: http://ibmmainframes.com/about33926.html#ixzz5XxBsibCw

posted @ 2018-11-26 17:52  kakaisgood  阅读(186)  评论(0编辑  收藏  举报