7 lines
251 B
Text
7 lines
251 B
Text
C *--> FROM CMS(UFLDCX)
|
|
C DATASET ATTRIBUTE INFORMATION COMMON BLOCK
|
|
COMMON /UFLDCX/ IFLDCX,NFILE,FILEX(99),LRECLX(99),LBLKX(99),
|
|
* DUNITX
|
|
CHARACTER*4 DUNITX
|
|
CHARACTER*8 FILEX
|
|
C
|