23 lines
1 KiB
Text
23 lines
1 KiB
Text
C *--> FROM CMS(UINCLX)
|
|
C INCLUDES FROM DATASET COMMON BLOCK
|
|
COMMON /UINCLX/ MINCL,MPINCL,ICINCL,NINCL,
|
|
* PATHINCL(99),NRINCL(99),DIRINCL
|
|
CHARACTER*132 PATHINCL
|
|
CHARACTER*120 DIRINCL
|
|
C
|
|
C DESCRIPTION OF VARIABLES:
|
|
C VARIABLE TYPE I/O DIM CONTENTS
|
|
C -------- ---- --- --- --------
|
|
C MINCL I*4 I 1 MAXIMUM LEVELS OF NESTED INCLUDES
|
|
C ALLOWED
|
|
C MPINCL I*4 I 1 MAXIMUM LEVELS OF NESTED INCLUDES
|
|
C TO BE PROCESSED
|
|
C ICINCL I*4 I 1 INDICATOR IF INCLUDED RECORDS TO
|
|
C CHECKED FOR COMMENTS
|
|
C 0=NO
|
|
C 1=YES
|
|
C NINCL I*4 O 1 CURRENT LEVELS OF NESTED INCLUDES
|
|
C PATHINCL A132 O 99 PATH NAME
|
|
C NRINCL I*4 O 99 NUMBER OF RECORDS INCLUDED
|
|
C DIRINCL A132 O 1 DIRECTORY NAME
|
|
C
|