Start of change

Return GDGORDER specification – Key = 'C02E'

Code DINRGDGO to request the return of the order in which the individual generation data sets (GDSs) are concatenated.

When you code DINRGDGO, # must be 1, LEN must be 1, and upon return, the PARM value will contain one of the following values:
X'80'
USECATLG – The GDS concatenation is ordered as specified in the GDG data set catalog entry.
X'40'
LIFO – The GDS concatenation is ordered with the newest GDS defined first and the oldest GDS last.
X'20'
FIFO – The GDS concatenation is ordered with the oldest GDS defined first and the newest GDS last.

Example: To request the return of the specification of GDGORDER on a batch or dynamically allocated DD which specified GDGORDER=FIFO on the request, code:

Input:
     KEY    #       LEN   PARM    
     C02E   0001    0001  00
    
Output:
     KEY    #       LEN   PARM     
     C02E   0001    0001  20 
      
Note: For this text unit, the information specified by the user in JCL or via dynamic allocation text units is retrieved via the Scheduler JCL Facility (SJF). If the information was not available, no information is returned. Also, this key does not return the value of the GDG order setting in the catalog entry for the GDG.
End of change