7 lines
239 B
Text
7 lines
239 B
Text
C *--> FROM DSCOMMON.DSDSTX
|
|
C SASM DESTINATION CODE AND UNIT NUMBERS COMMON BLOCK
|
|
COMMON /DSDSTX/ IDSFIL,MDSCDE,NDSCDE,
|
|
* DSDEST(15),NDSPRL(15),NDSPUL(15)
|
|
CHARACTER*8 DSDEST
|
|
C
|
|
|