OUTREC

The following parameters of this DFSORT control statement are supported in MFSORT and MFJSORT:

                          +--------,-------+
                          V                |
>--OUTREC--.-.-FIELDS-.=-(.-item-statement-.)----.---<<
           | +-BUILD--+                          |
           |              +--------,----------+  |
           |              V                   |  |
           +-OVERLAY--=--(.-overlay-statement-.)-+

The following options for the item-statement field are supported:

                     +-------------,-----------------------------------------+
                     V                                                       |
>--item-statement=--(.--.----.-.-s-----------------------------------------.-.-)--<<
                        +-c:-+ |                                           |
                               +-p-----------------------------------------+
                               |                                           |       
                               +-p,m.----.---------------------------------+     
                               |    +-,a-+                                 |
                               |                                           |      
                               +-p,m,format.-,edit-.--.--------.-----------+     
                               |           +-,to---+  +-length-+           |
                               |                                           |     
                               +-p,HEX-------------------------------------+  
                               |                                           |
                               +-p,m,HEX-----------------------------------+      
                               |                                           |
                               +-p,m,TRAN=LTOU-----------------------------+
                               |                                           |  
                               +-p,m,TRAN=UTOL-----------------------------+
                               |                                           |  
                               +-p,m,TRAN=ALTSEQ---------------------------+
                               |                                           |  
                               +-p,m,Y2x(c)--------------------------------+
                               |                                           |  
                               +-p,m,Y2xP----------------------------------+
                               |                                           |  
                               +-p,m,CHANGE=(v,(find-set)+,[NOMATCH=(set)]-+
                               |                                           |
                               +-p,m,date-format,DATEDIFF,p,m,date-format--+
                               |                                           |  
                               +-seqnum------------------------------------+  
 
Notes:
  • For options p,m,Y2x(c), the (c) is only parsed and ignored in this COBOL system.
  • For seqnum processing support, see the diagram below.

The following options for the overlay-statement field are supported:

                +-------------,-----------------------------------------+
                V                                                       |
>--OVERLAY--=--(.--.----.-.-s-----------------------------------------.-.-)--<<
                   +-c:-+ |                                           | 
                          +-p,m---------------------------------------+
                          |                                           |       
                          +-p,m.----.---------------------------------+     
                          |    +-,a-+                                 |
                          |                                           |      
                          +-p,m,format.-,edit-.-----------------------+     
                          |           +-,to---+                       |
                          |                                           |     
                          +-p,m,HEX-----------------------------------+      
                          |                                           |
                          +-p,m,TRAN=LTOU-----------------------------+
                          |                                           |  
                          +-p,m,TRAN=UTOL-----------------------------+
                          |                                           |  
                          +-p,m,TRAN=ALTSEQ---------------------------+
                          |                                           |  
                          +-p,m,Y2x(c)--------------------------------+
                          |                                           |  
                          +-p,m,Y2xP----------------------------------+
                          |                                           |  
                          +-p,m,CHANGE=(v,(find-set)+,[NOMATCH=(set)]-+
                          |                                           |
                          +-p,m,date-format,DATEDIFF,p,m,date-format--+
                          |                                           |
                          +-seqnum------------------------------------+
Notes:
  • For options p,m,Y2x(c), the (c) is only parsed and ignored in this COBOL system.
  • For seqnum processing support, see the diagram below.

The following field values are supported, where applicable:

Field Values
a (alignment) D (doubleword aligned), F (fullword aligned), H (halfword aligned).
s (separation) ADD, DATE, &DATE, DATE=(abcd), &DATE=(abcd), DATE1, &DATE1, DATE1P, &DATE1P, DATE2, &DATE2, DATE2P &DATE2P, DATE3, &DATE3, DATE3P, &DATE3P, DATEn, &DATEn, DATEn+r, &DATEn+r, DATEn-r, &DATEn-r, DATEn(c), &DATEn(c), DATEn(c)+r, &DATEn(c)+r, DATEn(c)-r, &DATEn(c)-r, DATEnP, DATEnP+r, &DATEnP+r, DATEnP-r, &DATEnP-r, DATENS, &DATENS, DATENS=(abc), &DATENS=(abc), DIV, LITERALS, MUL, SEPERATOR CHARS, SEQNUM, SUB.

DATEDIFF limitations:

The valid length(m) and format(Y2x) combinations for each type of date field that can be used with DATEDIFF:

  • m,Y2X
  • 5,Y2T
  • 6,Y2T
  • 5,Y2W
  • 6,Y2W
  • 3,Y2U
  • 4,Y2V
  • 3,Y2X
  • 4,Y2Y

The maximum number of DATEDIFF operands permitted is 300.

The following options of SEQNUM processing are supported:

>--SEQNUM,n,fs--.----------.--.---------.--.----------------.-------<<
                +-,START=j-+  +-,INCR=i-+  +-,RESTART=(p,m)-+