*DECK PGMDEBUG
*CALL LABEL 
*CALL CONST 
*CALL CONSTUSR
*CALL TYPE
*CALL TYPEUSER
*CALL VAR 
*CALL VARUSER 
*CALL VALUE 
*CALL VALUSER 
*CALL FORWARD 
*CALL FORWDUSER 
*CALL PGMDBGCDK 
BEGIN END.
