21 lines
688 B
Text
21 lines
688 B
Text
C *--> FROM CMS(UDSATX)
|
|
C DATASET ATTRIBUTE COMMON BLOCK
|
|
COMMON /UDSATX/
|
|
* IDEVTP,ISDSCB,IDSSIO,IDSCTL,IDSRLS,IDSCTG,
|
|
* DSDDN,DSDSN,DSMEMB,
|
|
* DSUNIT,DSDISP,
|
|
* DSRCFM,NDRECL,NDBLK,
|
|
* NDSCRT,
|
|
* NDTRK,NDTRKU,NDTRKE,NDDIR,NDDIRU,NDDIRE,
|
|
* NDSTK1,NDSEXT,NDSSEC,
|
|
* NDSTSQ,
|
|
* DSALLC,DSDORG,DSVOL,DSCVOL,DSLABL,DSOPCD,DSINOT,DSEROP
|
|
CHARACTER*1 DSOPCD
|
|
CHARACTER*2 DSDORG
|
|
CHARACTER*3 DSLABL,DSINOT,DSEROP
|
|
CHARACTER*4 DSRCFM,DSALLC,DSUNIT,DSDISP
|
|
CHARACTER*6 DSVOL,DSCVOL
|
|
CHARACTER*8 DSDDN,DSMEMB
|
|
CHARACTER*44 DSDSN
|
|
CCC INCLUDE($UDSATX)
|
|
C
|