9 lines
299 B
Text
9 lines
299 B
Text
C *--> FROM DACOMMON.DAUSRS
|
|
C ASAP USER ATTRIBUTES COMMON BLOCK
|
|
COMMON /DAUSRS/ MXUSRS,NMUSRS,
|
|
* ISHPRN(15),ISHPST(15),ISHPSE(15),
|
|
* IXFSMR(15),IXFNPR(15),
|
|
* USRID(15),USRDS(15)
|
|
CHARACTER*4 USRID
|
|
CHARACTER*30 USRDS
|
|
C
|