19 lines
359 B
Text
19 lines
359 B
Text
C MODULE UPVRSB
|
|
C-----------------------------------------------------------------------
|
|
C
|
|
C INITIALIZE COMMON BLOCK UPVRSX
|
|
C
|
|
BLOCK DATA UPVRSB
|
|
C
|
|
INCLUDE 'upvrsx'
|
|
C
|
|
C
|
|
DATA PGMCMP/'????'/
|
|
DATA PGMSYS/'????'/
|
|
DATA PGMNAM/'????????'/
|
|
DATA PGMVRN/'??????????'/
|
|
DATA PGMVRD/'????????'/
|
|
DATA MPGMRG/0/
|
|
C
|
|
C
|
|
END
|