INREC

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

                         +--------,-------+
                         V                |
>---INREC--.-.-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 formats are supported, where applicable:

Field	Supported formats
`Binary-operator`	EQ, GE, GT, LE, LT, NE.
`Bit-operator`	ALL, BM, BNM, BNO, BNZ, BO, BZ, NONE, NOTALL, NOTNONE, NOTSOME, SOME.
`Date-format`	Y2B, Y2C, Y2D, Y2P, Y2S, Y2T, Y2U, Y2V, Y2W, Y2X, Y2Y, Y2Z, Y2TP, Y2UP, Y2VP, Y2WP, Y2XP, Y2YP.
`Format`	AQ, BI, CH, CLO, CSF, CSL, CST, CTO, FI, FL, FS, LS, OL, OT, PD, PD0, SB, SS, TS, ZD.

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.

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)-+