e2ecdcfe33
Former-commit-id:a02aeb236c[formerly9f19e3f712] [formerlya02aeb236c[formerly9f19e3f712] [formerly06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]]] Former-commit-id:06a8b51d6dFormer-commit-id:8e80217e59[formerly3360eb6c5f] Former-commit-id:377dcd10b9
24 lines
478 B
Text
24 lines
478 B
Text
C MEMBER UDTYPB
|
|
C-----------------------------------------------------------------------
|
|
C
|
|
C @PROCESS LVL(77)
|
|
C
|
|
C INITIALIZE COMMON BLOCK UDTYPB
|
|
C
|
|
BLOCK DATA UDTYPB
|
|
C
|
|
INCLUDE 'udtypx'
|
|
C
|
|
C
|
|
DATA IDTFIL/0/,MDTYPE/110/,NDTYPE/0/
|
|
DATA DTCODE/110*' '/
|
|
DATA DTDIMN/110*' '/
|
|
DATA DTUNIT/110*' '/
|
|
DATA IDTMIS/110*-999/
|
|
DATA NDTVAL/110*-999/
|
|
DATA DTTIME/110*' '/
|
|
DATA NDTADD/110*-999/
|
|
DATA IDTWRT/110*-999/
|
|
C
|
|
C
|
|
END
|