8e80217e59
Former-commit-id:a02aeb236c[formerly9f19e3f712] [formerly06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]] Former-commit-id:06a8b51d6dFormer-commit-id:3360eb6c5f
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
|