*COMDECK DSMJPDCLS
DB$DS01             ;  # ADVANCE DISPLAYED PAGE                        #
DB$DS02             ;  # BACK UP ONE DISPLAYED PAGE                    #
DB$DS03             ;  # CONFIRMATION RESPONSE *NO*                    #
DB$DS04             ;  # CONFIRMATION RESPONSE *YES*                   #
DB$DS05             ;  # CYCLE TO NEXT COMMAND/OPTION LIST             #
DB$DS06             ;  # DOWN THE OBJECT                               #
DB$DS07             ;  # IDLE THE OBJECT                               #
DB$DS08             ;  # DB$YES IF IN *SUSPEND* MODE                   #
DB$DS09             ;  # COMMAND INITIALIZATION                        #
DB$DS10             ;  # FLAG *ALL* OPTION. DB$NO IF ALREADY SET       #
DB$DS11             ;  # FLAG *AR* OPTION. DB$NO IF ALREADY SET        #
DB$DS12             ;  # FLAG *CDCS* OPTION. DB$NO IF ALREADY SET      #
DB$DS13             ;  # FLAG *JOBS* OPTION. DB$NO IF ALREADY SET      #
DB$DS14             ;  # FLAG *SC* OPTION. DB$NO IF ALREADY SET        #
DB$DS15             ;  # SAVE AREA ID/NAME                             #
DB$DS16             ;  # SAVE SCHEMA ID/NAME                           #
DB$DS17             ;  # SAVE AN ID VALUE                              #
DB$DS18             ;  # SAVE A NAME VALUE                             #
DB$DS19             ;  # DB$YES IF VALID SC, AR PARAMETERS             #
DB$DS20             ;  # UP THE OBJECT                                 #
DB$DS21             ;  # DB$YES IF NEXT TOKEN IS *=*                   #
DB$DS22             ;  # DB$YES IF VALID/EXISTING JOB NAME             #
DB$DS24             ;  # DB$YES IF NEXT TOKEN IS A NAME-STYLE KEYWORD  #
DB$DS26             ;  # LIST STATUS FOR A JOB                         #
DB$DS27             ;  # LIST STATUS LINES FOR SCHEMAS, AREAS, ETC.    #
DB$DS28             ;  # EXECUTION OF *TERM*. DB$YES IF CDCS WAS UP.   #
DB$DS29             ;  # DB$YES IF A COMMAND VERB, ELSE DB$NO          #
DB$DS30             ;  # RETAIN AN OBJECT                              #
DB$DS31             ;  # RETURN AN OBJECT                              #
DB$DS32             ;  # SAVE SUBSCHEMA NAME                           #
DB$DS33             ;  # DB$YES IF *SC* SPECIFIED                      #
DB$DS34             ;  # DUMP FIELD LENGTH--CONFIRM IF PREVIOUS DUMPS  #
DB$DS35             ;  # FLAG *VN* OPTION.  DB$NO IF ALREADY SET       #
DB$DS36             ;  # VALIDATE CURRENT TOKEN AS 7 CHARACTERS "A - 9"#
DB$DS37             ;  # SAVE VERSION NAME                             #
DB$DS38             ;  # SET -ROLLABLE- TRUE                           #
DB$DS39             ;  # SET -ROLLABLE- FALSE                          #
DB$STDR             ;  # RETURN TO CALLER OF DB$STD                    #
