5 lines
199 B
Text
5 lines
199 B
Text
C *--> FROM URCOMMON.URPDDT
|
|
C REORDER PROGRAM PREPROCESSOR DATA BASE DAILY DATA TYPE DIRECTORY
|
|
COMMON /URPDDT/ JDDTDR(24,30)
|
|
INTEGER*2 JDDTDR
|
|
C
|