Previous Topic Next topic Print topic


INREC

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

                      +--------,-------+
                      V                |
>---INREC--.-FIELDS=-(.-item-statement-.)----.---<<
           |                                 |
           |          +--------,----------+  |
           |          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---+                       |
                               |                                           |     
                               +-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------------------------------------+  
 
Note: For options p,m,Y2x(c), the (c) is only parsed and ignored in this COBOL system

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------------------------------------+ 
Note: For options p,m,Y2x(c), the (c) is only parsed and ignored in this COBOL system

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), DIVIDE, LITERALS, MULTIPLY, SEPERATOR CHARS, SEQNUM, SUBTRACT.

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.

Previous Topic Next topic Print topic