*
*        DYNAMIC DATA AREA FOR GENERALIZED TERMINAL HANDLER
*
         DEF      GTH0
GTH0     CSECT    0
*
*        PROCEDURES
*
BND      CNAME    0                 PSEUDO 'BOUND' PROC
D        CNAME    1                 PSEUDO 'DATA' PROC
G        CNAME    2                 PSEUDO 'GEN' PROC
R        CNAME    3                 PSEUDO 'RES' PROC
*
         OPEN     I,#2
*
         PROC
LF       RES      0
         GOTO,NAME  #1,#2,#3
#0       BOUND    1                 BOUND
         BOUND    AF
         GOTO     PEND
#1       BOUND    1                 DATA
         DATA     AF
         GOTO     PEND
#2       SET                        GEN
I        DO       NUM(CF)-1
#2(I)       SET   CF(I+1)
         FIN
         GEN,#2   AF
         GOTO     PEND
#3       BOUND    1                 RES
         RES      AF
PEND     PEND
*
         SYSTEM   GTHDATA           GENERATE DYNAMIC DATA AREA
*
         END
