IDENTIFICATION DIVISION. PROGRAM-ID. PRTMENU. AUTHOR. LaNeta M. Counts / Dale Miller. INSTALLATION. University of Arkansas at Little Rock. DATE-WRITTEN. March 1987. DATE-COMPILED. ******** ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. VAX-11. OBJECT-COMPUTER. VAX-11. ******** DATA DIVISION. ******** WORKING-STORAGE SECTION. 01 DISPLAY-ID PIC 9(9) COMP EXTERNAL. 01 SECURITY-LEVEL PIC S9(9) COMP EXTERNAL. 01 HOLD-SECURITY PIC S9(9) COMP. 01 QUI-RELATED-VARIABLES. 05 I PIC S9(9) COMP. 05 J PIC S9(9) COMP. 05 K PIC S9(9) COMP. 05 L PIC S9(9) COMP. 05 ONE PIC S9(9) COMP VALUE 1. 05 QUI-SEARCH-NAME PIC X(12). 05 QUI-SEARCH-FLAGS PIC S9(9) COMP. 05 QUI-ENTRY-NUMBER PIC S9(9) COMP. 05 QUI-ENTRY-FLAG PIC 9. 88 ENTRY-FOUND VALUE 1. 05 QUI-QUEUE-STATUS PIC S9(9) COMP. 05 QUI-PRIORITY PIC S9(9) COMP. 05 QUI-PRIORITY-DISPLAY PIC ZZZZ9. 05 QUI-FILE-COPIES PIC S9(9) COMP. 05 QUI-AFTER-TIME PIC S9(18) COMP. 05 QUI-AFTER-TIME-DISPLAY PIC X(23). 05 QUI-QUEUE-NAME-L PIC S9(9) COMP. 05 QUI-JOB-STATUS PIC S9(9) COMP. 05 TEST-VALUE PIC S9(9) COMP. 88 STATUS-FOUND VALUE 1. 05 QUI-FORM-NAME PIC X(31). 05 QUI-JOB-SIZE PIC S9(9) COMP. 05 QUI-COMPLETED-BLOCKS PIC S9(9) COMP. 05 QUI-JOB-SIZE-MAXIMUM PIC S9(9) COMP. 05 QUI-JOB-SIZE-MAX-DISPLAY PIC ZZZZ9. 05 QUI-DISPLAY-FLAG PIC 9. 88 QUI-DISPLAY VALUE 1. 88 QUI-TABLE VALUE 2. 05 SJC-FROM-QUEUE PIC X(6). 05 ALT-STRING PIC X(31). 05 ALT-STRING-REDEF REDEFINES ALT-STRING PIC S9(9) COMP. 05 ALT-STRING-REDEF-2 REDEFINES ALT-STRING PIC S9(18) COMP. 05 ALT-LENGTH-LONG PIC S9(9) COMP. 05 HOLD-BACKSPACE-FIELD PIC S9(4) COMP. 05 HOLD-MODIFY-FLAGS PIC S9(4) COMP. 01 TITLE-LINE-1. 05 FILLER PIC X(5) VALUE "Entry". 05 FILLER PIC XX VALUE SPACES. 05 FILLER PIC X(6) VALUE "Queue". 05 FILLER PIC XX VALUE SPACES. 05 FILLER PIC X(12) VALUE "Username". 05 FILLER PIC XX VALUE SPACES. 05 FILLER PIC X(12) VALUE "Job Name". 05 FILLER PIC XX VALUE SPACES. 05 FILLER PIC X(4) VALUE "Size". 05 FILLER PIC XX VALUE SPACES. 05 FILLER PIC X(4) VALUE "Curr". 05 FILLER PIC XX VALUE SPACES. 05 FILLER PIC X(12) VALUE "Status". 01 QUI-JOB-DISPLAY-RECORD. 05 QUI-ENTRY-NUMBER-DISPLAY PIC ZZZZ9. 05 FILLER PIC XX VALUE SPACES. 05 QUI-QUEUE-NAME PIC X(6). 05 FILLER PIC XX VALUE SPACES. 05 QUI-USERNAME PIC X(12). 05 FILLER PIC XX VALUE SPACES. 05 QUI-JOB-NAME PIC X(12). 05 FILLER PIC XX VALUE SPACES. 05 QUI-JOB-SIZE-DISPLAY PIC ZZZ9. 05 FILLER PIC XX VALUE SPACES. 05 QUI-COMPLETED-BLOCKS-DISPLAY PIC ZZZ9. 05 FILLER PIC XX VALUE SPACES. 05 QUI-JOB-STATUS-DECODED PIC X(12). 01 QUI-QUEUE-DISPLAY-RECORD. 05 FILLER PIC X(7) VALUE "---->". 05 QUI-QUEUE-NAME-AGAIN PIC X(6). 05 FILLER PIC X(42) VALUE SPACES. 05 QUI-QUEUE-STATUS-DECODED PIC X(20). 01 QUI-QUEUE-LIST. * 1 05 QUI-SEARCH-LEN PIC S9(4) COMP. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_SEARCH_NAME. 05 FILLER POINTER VALUE REFERENCE QUI-SEARCH-NAME. 05 FILLER PIC S9(9) COMP VALUE 0. * 2 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_SEARCH_FLAGS. 05 FILLER POINTER VALUE REFERENCE QUI-SEARCH-FLAGS. 05 FILLER PIC S9(9) COMP VALUE 0. * 3 05 FILLER PIC S9(4) COMP VALUE 6. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_QUEUE_NAME. 05 FILLER POINTER VALUE REFERENCE QUI-QUEUE-NAME. 05 FILLER POINTER VALUE REFERENCE QUI-QUEUE-NAME-L. * 4 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_QUEUE_STATUS. 05 FILLER POINTER VALUE REFERENCE QUI-QUEUE-STATUS. 05 FILLER PIC S9(9) COMP VALUE 0. * 5 (final) 05 FILLER PIC S9(4) COMP VALUE 0. 05 FILLER PIC S9(4) COMP VALUE 0. 05 FILLER PIC S9(9) COMP VALUE 0. 05 FILLER PIC S9(9) COMP VALUE 0. 01 QUI-VERIFY-QUEUE-LIST. * 1 05 FILLER PIC S9(4) COMP VALUE 6. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_SEARCH_NAME. 05 FILLER POINTER VALUE REFERENCE QUI-QUEUE-NAME. 05 FILLER PIC S9(9) COMP VALUE 0. * 2 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_SEARCH_FLAGS. 05 FILLER POINTER VALUE REFERENCE QUI-SEARCH-FLAGS. 05 FILLER PIC S9(9) COMP VALUE 0. * 3 05 FILLER PIC S9(4) COMP VALUE 31. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_FORM_NAME. 05 FILLER POINTER VALUE REFERENCE QUI-FORM-NAME. 05 FILLER PIC S9(9) COMP VALUE 0. * 4 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_JOB_SIZE_MAXIMUM. 05 FILLER POINTER VALUE REFERENCE QUI-JOB-SIZE-MAXIMUM. 05 FILLER PIC S9(9) COMP VALUE 0. * 5 (final) 05 FILLER PIC S9(4) COMP VALUE 0. 05 FILLER PIC S9(4) COMP VALUE 0. 05 FILLER PIC S9(9) COMP VALUE 0. 05 FILLER PIC S9(9) COMP VALUE 0. C Initialize item list for the display job operation 01 QUI-JOB-LIST. * 1 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_SEARCH_FLAGS. 05 FILLER POINTER VALUE REFERENCE QUI-SEARCH-FLAGS. 05 FILLER PIC S9(9) COMP VALUE 0. * 2 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_JOB_SIZE. 05 FILLER POINTER VALUE REFERENCE QUI-JOB-SIZE. 05 FILLER PIC S9(9) COMP VALUE 0. * 3 05 FILLER PIC S9(4) COMP VALUE 12. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_JOB_NAME. 05 FILLER POINTER VALUE REFERENCE QUI-JOB-NAME. 05 FILLER PIC S9(9) COMP VALUE 0. * 4 05 FILLER PIC S9(4) COMP VALUE 12. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_USERNAME. 05 FILLER POINTER VALUE REFERENCE QUI-USERNAME. 05 FILLER PIC S9(9) COMP VALUE 0. * 5 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_JOB_STATUS. 05 FILLER POINTER VALUE REFERENCE QUI-JOB-STATUS. 05 FILLER PIC S9(9) COMP VALUE 0. * 6 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_ENTRY_NUMBER. 05 FILLER POINTER VALUE REFERENCE QUI-ENTRY-NUMBER. 05 FILLER PIC S9(9) COMP VALUE 0. * 7 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_COMPLETED_BLOCKS. 05 FILLER POINTER VALUE REFERENCE QUI-COMPLETED-BLOCKS. 05 FILLER PIC S9(9) COMP VALUE 0. * 8 05 FILLER PIC S9(4) COMP VALUE 31. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_FORM_NAME. 05 FILLER POINTER VALUE REFERENCE QUI-FORM-NAME. 05 FILLER PIC S9(9) COMP VALUE 0. * 9 05 FILLER PIC S9(4) COMP VALUE 8. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_AFTER_TIME. 05 FILLER POINTER VALUE REFERENCE QUI-AFTER-TIME. 05 FILLER PIC S9(9) COMP VALUE 0. * 10 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL QUI$_PRIORITY. 05 FILLER POINTER VALUE REFERENCE QUI-PRIORITY. 05 FILLER PIC S9(9) COMP VALUE 0. * 11 (final) 05 FILLER PIC S9(4) COMP VALUE 0. 05 FILLER PIC S9(4) COMP VALUE 0. 05 FILLER PIC S9(9) COMP VALUE 0. 05 FILLER PIC S9(9) COMP VALUE 0. ******** Table for eliminate job function. 01 OUTPUT-TABLE. 05 OUTPUT-ENTRY OCCURS 200 TIMES. 10 DUP-ENTRY-NUMBER PIC S9(9) COMP. 10 DUP-CHECK. 15 DUP-USERNAME PIC X(12). 15 DUP-JOB-NAME PIC X(12). 01 SJC-RES-LS. 05 FILLER PIC S9(4) COMP VALUE 6. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL SJC$_QUEUE. 05 FILLER POINTER VALUE REFERENCE QUI-QUEUE-NAME. 05 FILLER PIC 9(9) COMP VALUE 0. * 2 05 SJC-BACKSPACE-FIELD PIC 9(4) COMP. 05 SJC-MODIFY-FLAGS PIC 9(4) COMP. 05 FILLER PIC 9(9) COMP VALUE 0. 05 FILLER PIC 9(9) COMP VALUE 0. * 3 (final) 05 FILLER PIC 9(9) COMP VALUE 0. 01 SJC-MER-LS. 05 FILLER PIC S9(4) COMP VALUE 6. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL SJC$_QUEUE. 05 FILLER POINTER VALUE REFERENCE SJC-FROM-QUEUE. 05 FILLER PIC 9(9) COMP VALUE 0. * 2 05 FILLER PIC S9(4) COMP VALUE 6. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL SJC$_DESTINATION_QUEUE. 05 FILLER POINTER VALUE REFERENCE QUI-QUEUE-NAME. 05 FILLER PIC 9(9) COMP VALUE 0. * 3 (final) 05 FILLER PIC 9(9) COMP VALUE 0. 01 SJC-FORM-LS. 05 FILLER PIC S9(4) COMP VALUE 6. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL SJC$_QUEUE. 05 FILLER POINTER VALUE REFERENCE QUI-QUEUE-NAME. 05 FILLER PIC 9(9) COMP VALUE 0. * 2 05 FILLER PIC S9(4) COMP VALUE 31. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL SJC$_FORM_NAME. 05 FILLER POINTER VALUE REFERENCE QUI-FORM-NAME. 05 FILLER PIC 9(9) COMP VALUE 0. * 3 (final) 05 FILLER PIC 9(9) COMP VALUE 0. 01 SJC-BLOCK-LS. 05 FILLER PIC S9(4) COMP VALUE 6. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL SJC$_QUEUE. 05 FILLER POINTER VALUE REFERENCE QUI-QUEUE-NAME. 05 FILLER PIC 9(9) COMP VALUE 0. * 2 05 FILLER PIC S9(4) COMP VALUE 4. 05 SIZE-FUNCTION PIC S9(4) COMP. 05 FILLER POINTER VALUE REFERENCE QUI-JOB-SIZE-MAXIMUM. 05 FILLER PIC 9(9) COMP VALUE 0. * 3 (final) 05 FILLER PIC 9(9) COMP VALUE 0. 01 SJC-ALT-LS. * 1 05 FILLER PIC S9(4) COMP VALUE 6. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL SJC$_QUEUE. 05 FILLER POINTER VALUE REFERENCE QUI-QUEUE-NAME. 05 FILLER PIC 9(9) COMP VALUE 0. * 2 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL SJC$_ENTRY_NUMBER. 05 FILLER POINTER VALUE REFERENCE QUI-ENTRY-NUMBER. 05 FILLER PIC 9(9) COMP VALUE 0. * 3 05 ALT-LENGTH PIC 9(4) COMP. 05 ALT-FUNCTION PIC 9(4) COMP. 05 FILLER POINTER VALUE REFERENCE ALT-STRING. 05 FILLER PIC 9(9) COMP VALUE 0. * 4 (final) 05 FILLER PIC 9(9) COMP VALUE 0. 01 IO-STATUS-BLOCK. 05 IO-STS PIC S9(9) COMP. 05 FILLER PIC S9(9) COMP. 01 SYS-STATUS PIC S9(9) COMP. 01 STATUS-DESCRIPTIONS. 05 SS$_NORMAL PIC S9(9) COMP VALUE EXTERNAL SS$_NORMAL. 05 QUI$M_SEARCH_WILDCARD PIC S9(9) COMP VALUE EXTERNAL QUI$M_SEARCH_WILDCARD. 05 QUI$M_SEARCH_SYMBIONT PIC S9(9) COMP VALUE EXTERNAL QUI$M_SEARCH_SYMBIONT. 05 QUI$M_SEARCH_ALL_JOBS PIC S9(9) COMP VALUE EXTERNAL QUI$M_SEARCH_ALL_JOBS. 05 QUI$_CANCEL_OPERATION PIC S9(9) COMP VALUE EXTERNAL QUI$_CANCEL_OPERATION. 05 QUI$_DISPLAY_QUEUE PIC S9(9) COMP VALUE EXTERNAL QUI$_DISPLAY_QUEUE. 05 QUI$_DISPLAY_JOB PIC S9(9) COMP VALUE EXTERNAL QUI$_DISPLAY_JOB. 05 QUI$M_JOB_PENDING PIC S9(9) COMP VALUE 0. 05 JBC$_NOSUCHJOB PIC S9(9) COMP VALUE EXTERNAL JBC$_NOSUCHJOB. 05 JBC$_NOMOREJOB PIC S9(9) COMP VALUE EXTERNAL JBC$_NOMOREJOB. 05 JBC$_NOMOREQUE PIC S9(9) COMP VALUE EXTERNAL JBC$_NOMOREQUE. 05 JBC$_NOSUCHQUE PIC S9(9) COMP VALUE EXTERNAL JBC$_NOSUCHQUE. 05 SJC$_TOP_OF_FILE PIC S9(9) COMP VALUE EXTERNAL SJC$_TOP_OF_FILE. 05 SJC$_RELATIVE-PAGE PIC S9(9) COMP VALUE EXTERNAL SJC$_RELATIVE_PAGE. 05 SJC$_START_QUEUE PIC S9(9) COMP VALUE EXTERNAL SJC$_START_QUEUE. 05 SJC$_MERGE_QUEUE PIC S9(9) COMP VALUE EXTERNAL SJC$_MERGE_QUEUE. 05 SJC$_ALTER_QUEUE PIC S9(9) COMP VALUE EXTERNAL SJC$_ALTER_QUEUE. 05 SJC$_ALTER_JOB PIC S9(9) COMP VALUE EXTERNAL SJC$_ALTER_JOB. 05 SJC$_STOP_QUEUE PIC S9(9) COMP VALUE EXTERNAL SJC$_STOP_QUEUE. 05 SJC$_PAUSE_QUEUE PIC S9(9) COMP VALUE EXTERNAL SJC$_PAUSE_QUEUE. 05 SJC$_RESET_QUEUE PIC S9(9) COMP VALUE EXTERNAL SJC$_RESET_QUEUE. 05 SJC$_AFTER_TIME PIC S9(9) COMP VALUE EXTERNAL SJC$_AFTER_TIME. 05 SJC$_DESTINATION_QUEUE PIC S9(9) COMP VALUE EXTERNAL SJC$_DESTINATION_QUEUE. 05 SJC$_FORM_NAME PIC S9(9) COMP VALUE EXTERNAL SJC$_FORM_NAME. 05 SJC$_HOLD PIC S9(9) COMP VALUE EXTERNAL SJC$_HOLD. 05 SJC$_NO_HOLD PIC S9(9) COMP VALUE EXTERNAL SJC$_NO_HOLD. 05 SJC$_JOB_COPIES PIC S9(9) COMP VALUE EXTERNAL SJC$_JOB_COPIES. 05 SJC$_PRIORITY PIC S9(9) COMP VALUE EXTERNAL SJC$_PRIORITY. 05 SJC$_JOB_SIZE_MAXIMUM PIC S9(9) COMP VALUE EXTERNAL SJC$_JOB_SIZE_MAXIMUM. 05 SJC$_NO_JOB_SIZE_MAXIMUM PIC S9(9) COMP VALUE EXTERNAL SJC$_NO_JOB_SIZE_MAXIMUM. 01 QUEUE-BITS. 05 QUI$V_QUEUE_IDLE PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_IDLE. 05 QUI$V_QUEUE_ALIGNING PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_ALIGNING. 05 QUI$V_QUEUE_PAUSED PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_PAUSED. 05 QUI$V_QUEUE_PAUSING PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_PAUSING. 05 QUI$V_QUEUE_RESETTING PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_RESETTING. 05 QUI$V_QUEUE_RESUMING PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_RESUMING. 05 QUI$V_QUEUE_STALLED PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_STALLED. 05 QUI$V_QUEUE_STARTING PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_STARTING. 05 QUI$V_QUEUE_STOPPED PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_STOPPED. 05 QUI$V_QUEUE_STOPPING PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_STOPPING. 05 QUI$V_QUEUE_UNAVAILABLE PIC S9(9) COMP VALUE EXTERNAL QUI$V_QUEUE_UNAVAILABLE. 01 QUEUE-BITS-REDEF REDEFINES QUEUE-BITS. 05 QUEUE-BIT OCCURS 11 TIMES PIC S9(9) COMP. 01 QUEUE-STATUS-DESCRIPTIONS. 05 FILLER PIC X(12) VALUE "Idle". 05 FILLER PIC X(12) VALUE "Aligning". 05 FILLER PIC X(12) VALUE "Paused". 05 FILLER PIC X(12) VALUE "Pausing". 05 FILLER PIC X(12) VALUE "Resetting". 05 FILLER PIC X(12) VALUE "Resuming". 05 FILLER PIC X(12) VALUE "Stalled". 05 FILLER PIC X(12) VALUE "Starting". 05 FILLER PIC X(12) VALUE "Stopped". 05 FILLER PIC X(12) VALUE "Stopping". 05 FILLER PIC X(12) VALUE "Unavailable". 01 Q-S-D REDEFINES QUEUE-STATUS-DESCRIPTIONS. 05 QUEUE-STAT OCCURS 11 TIMES PIC X(12). 01 JOB-BITS. 05 QUI$V_JOB_ABORTING PIC S9(9) COMP VALUE EXTERNAL QUI$V_JOB_ABORTING. 05 QUI$V_JOB_EXECUTING PIC S9(9) COMP VALUE EXTERNAL QUI$V_JOB_EXECUTING. 05 QUI$V_JOB_HOLDING PIC S9(9) COMP VALUE EXTERNAL QUI$V_JOB_HOLDING. 05 QUI$V_JOB_INACCESSIBLE PIC S9(9) COMP VALUE EXTERNAL QUI$V_JOB_INACCESSIBLE. 05 QUI$V_JOB_REFUSED PIC S9(9) COMP VALUE EXTERNAL QUI$V_JOB_REFUSED. 05 QUI$V_JOB_RETAINED PIC S9(9) COMP VALUE EXTERNAL QUI$V_JOB_RETAINED. 05 QUI$V_JOB_REQUEUE PIC S9(9) COMP VALUE EXTERNAL QUI$V_JOB_REQUEUE. 05 QUI$V_JOB_RESTARTING PIC S9(9) COMP VALUE EXTERNAL QUI$V_JOB_RESTARTING. 05 QUI$V_JOB_STARTING PIC S9(9) COMP VALUE EXTERNAL QUI$V_JOB_STARTING. 05 QUI$V_JOB_TIMED PIC S9(9) COMP VALUE EXTERNAL QUI$V_JOB_TIMED. 01 JOB-BITS-REDEF REDEFINES JOB-BITS. 05 JOB-BIT OCCURS 10 TIMES PIC S9(9) COMP. 01 JOB-STATUS-DESCRIPTIONS. 05 FILLER PIC X(12) VALUE "Aborting". 05 FILLER PIC X(12) VALUE "Printing". 05 FILLER PIC X(12) VALUE "Holding". 05 FILLER PIC X(12) VALUE "Inaccessible". 05 FILLER PIC X(12) VALUE "Refused". 05 FILLER PIC X(12) VALUE "Retained". 05 FILLER PIC X(12) VALUE "Requeue". 05 FILLER PIC X(12) VALUE "Restarting". 05 FILLER PIC X(12) VALUE "Starting". 05 FILLER PIC X(12) VALUE "Timed". 01 J-S-D REDEFINES JOB-STATUS-DESCRIPTIONS. 05 JOB-STAT OCCURS 10 TIMES PIC X(12). 01 CALL-STATUS. 05 RETURN-STATUS PIC S9(9) COMP. 01 TERM-ARGUMENTS. 05 CHOICE PIC 99. 05 ENTRY-POINT PIC 99. 05 PASSING-STRING PIC X(80). 01 MISC-VARIABLES. 05 YES-NO PIC X. 05 HOLD-ENTRY-NUMBER PIC S9(9) COMP. 05 HOLD-QUEUE-NAME PIC X(18). 05 HOLD-USERNAME PIC X(12). 05 DELETE-LINE. 10 DL-USERNAME PIC X(12). 10 FILLER PIC XXX VALUE SPACES. 10 DL-JOB-NAME PIC X(12). 10 FILLER PIC XXX VALUE SPACES. 10 DL-QUEUE-NAME PIC X(18). 10 FILLER PIC XXX VALUE SPACES. 10 DL-ENTRY-NUMBER PIC ZZZZ9. 05 HOLD-DISPLAY PIC X(80). 01 PROMPTS. 05 QUEUE-PROMPT PIC X(19) VALUE "Which Queue [QUIT]?". 05 TOO-MANY-ENT PIC X(44) VALUE "Too many total entries - first 200 processed". 05 DELETE-PROMPT PIC X(33) VALUE "Number of entry to delete? [QUIT]". 05 DELETE-VERIFY PIC X(42) VALUE "Is this the entry you wish to delete? [No]". 05 MODIFY-PROMPT PIC X(33) VALUE "Number of entry to modify? [QUIT]". 05 MODIFY-VERIFY PIC X(42) VALUE "Is this the entry you wish to modify? [No]". ************************************************************************** * $SNDJBCW INFORMATION FOR DELETE JOB FROM A QUEUE COMMAND * ************************************************************************** 01 DELETE-SNDJBC-DATA. * 1 05 FILLER PIC S9(4) COMP VALUE 18. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL SJC$_QUEUE. 05 FILLER POINTER VALUE REFERENCE HOLD-QUEUE-NAME. 05 FILLER PIC S9(9) COMP VALUE 0. * 2 05 FILLER PIC S9(4) COMP VALUE 4. 05 FILLER PIC S9(4) COMP VALUE EXTERNAL SJC$_ENTRY_NUMBER. 05 FILLER POINTER VALUE REFERENCE HOLD-ENTRY-NUMBER. 05 FILLER PIC S9(9) COMP VALUE 0. * 3 (final) 05 FILLER PIC S9(9) COMP VALUE 0. 01 DELETE-SNDJBC-STRUCTURE REDEFINES DELETE-SNDJBC-DATA. 05 DELETE-ITEMLIST OCCURS 2 TIMES. 10 DELETE-BUFFER-LEN PIC S9(4) COMP. 10 DELETE-ITEM-CODE PIC S9(4) COMP. 10 DELETE-BUFFER-ADDRESS PIC S9(9) COMP. 10 DELETE-RET-LEN-ADDRESS PIC S9(9) COMP. 05 FILLER PIC S9(9) COMP. 01 SJC$_DELETE_JOB PIC S9(9) COMP VALUE EXTERNAL SJC$_DELETE_JOB. ************************************************************************** ******** PROCEDURE DIVISION. 000-MAINLINE. PERFORM 010-INITILIZE THRU 010-EXIT. PERFORM 020-MENU-LOOP THRU 020-EXIT UNTIL CHOICE IS EQUAL TO 10. 000-EXIT. EXIT PROGRAM. 010-INITILIZE. MOVE 1 TO ENTRY-POINT. MOVE 7 TO CHOICE. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 010-EXIT. EXIT. 020-MENU-LOOP. EVALUATE CHOICE WHEN 1 PERFORM 100-CHANGE-FORM THRU 100-EXIT WHEN 2 PERFORM 200-MOVE-OUTPUT THRU 200-EXIT WHEN 3 PERFORM 300-DELETE-ENTRY THRU 300-EXIT WHEN 4 PERFORM 400-RESTART-QUEUE THRU 400-EXIT UNTIL CHOICE IS EQUAL TO 10 WHEN 5 PERFORM 500-EXAMINE-QUEUE THRU 500-EXIT WHEN 6 PERFORM 600-STOP-QUEUE THRU 600-EXIT UNTIL CHOICE IS EQUAL TO 10 WHEN 7 PERFORM 700-MODIFY-ENTRY THRU 700-EXIT UNTIL CHOICE IS EQUAL TO 10 WHEN 8 PERFORM 800-ELIM-DUP THRU 800-EXIT WHEN 9 PERFORM 900-BLOCK-LIMIT THRU 900-EXIT END-EVALUATE. MOVE 1 TO ENTRY-POINT. MOVE 7 TO CHOICE. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 020-EXIT. EXIT. 100-CHANGE-FORM. MOVE "Which queue? [Quit]" TO PASSING-STRING. PERFORM 420-GET-QUEUE THRU 420-EXIT. IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN MOVE SPACES TO PASSING-STRING STRING "Current form is:" DELIMITED BY SIZE QUI-FORM-NAME DELIMITED BY SIZE INTO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE "Enter new form [Quit]" TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE 5 TO ENTRY-POINT MOVE 1 TO CHOICE MOVE SPACES TO PASSING-STRING CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE PASSING-STRING TO QUI-FORM-NAME IF QUI-FORM-NAME IS NOT EQUAL TO SPACES THEN CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_ALTER_QUEUE OMITTED BY REFERENCE SJC-FORM-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS. PERFORM 8000-GET-ACK THRU 8000-EXIT. 100-EXIT. EXIT. 200-MOVE-OUTPUT. MOVE "From which queue? [Quit]" TO PASSING-STRING. PERFORM 420-GET-QUEUE THRU 420-EXIT. IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN MOVE "To which queue? [Quit]" TO PASSING-STRING MOVE QUI-QUEUE-NAME TO SJC-FROM-QUEUE MOVE SECURITY-LEVEL TO HOLD-SECURITY MOVE 1 TO SECURITY-LEVEL PERFORM 420-GET-QUEUE THRU 420-EXIT MOVE HOLD-SECURITY TO SECURITY-LEVEL IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_MERGE_QUEUE OMITTED BY REFERENCE SJC-MER-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS. PERFORM 8000-GET-ACK THRU 8000-EXIT. 200-EXIT. EXIT. 300-DELETE-ENTRY. ************ 4 displays prompt on screen ************ 5 gets the input from the screen ************ 6 display info. for validation (different area) MOVE 4 TO ENTRY-POINT. MOVE DELETE-PROMPT TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE SPACES TO PASSING-STRING. ************ get entry-number for job delete MOVE 5 TO ENTRY-POINT. MOVE 1 TO CHOICE. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. CALL "STR$TRIM" USING BY DESCRIPTOR PASSING-STRING BY DESCRIPTOR PASSING-STRING BY REFERENCE I GIVING SYS-STATUS. IF I IS EQUAL TO 0 THEN MOVE 4 TO ENTRY-POINT MOVE SPACES TO PASSING-STRING CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING GO TO 300-EXIT. CALL "OTS$CVT_TU_L" USING BY DESCRIPTOR PASSING-STRING (1:I) BY REFERENCE HOLD-ENTRY-NUMBER OMITTED GIVING SYS-STATUS. MOVE 0 TO QUI-DISPLAY-FLAG. MOVE 0 TO QUI-ENTRY-FLAG. MOVE "*" TO QUI-SEARCH-NAME. MOVE 1 TO QUI-SEARCH-LEN. PERFORM 510-QUEUE-SEARCH THRU 510-EXIT. PERFORM 510-QUEUE-SEARCH THRU 510-EXIT. IF NOT ENTRY-FOUND THEN MOVE HOLD-ENTRY-NUMBER TO DL-ENTRY-NUMBER MOVE SPACES TO PASSING-STRING STRING "Entry number " DELIMITED BY SIZE DL-ENTRY-NUMBER DELIMITED BY SIZE " was not found!" DELIMITED BY SIZE INTO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE "Press return to continue" TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 5 TO ENTRY-POINT MOVE 1 TO CHOICE CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING GO TO 300-EXIT. MOVE HOLD-DISPLAY TO QUI-JOB-DISPLAY-RECORD. ************ get username of the job to be deleted; display info. for validation ************ send information to be validated. MOVE 6 TO ENTRY-POINT. MOVE QUI-USERNAME TO DL-USERNAME. MOVE QUI-QUEUE-NAME TO DL-QUEUE-NAME. MOVE QUI-QUEUE-NAME TO HOLD-QUEUE-NAME. MOVE QUI-JOB-NAME TO DL-JOB-NAME. MOVE HOLD-ENTRY-NUMBER TO DL-ENTRY-NUMBER. MOVE DELETE-LINE TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. ************ send validate prompt MOVE 4 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. MOVE DELETE-VERIFY TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE SPACES TO PASSING-STRING. ************* get validation MOVE 5 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. ************ to delete or not to delete? MOVE PASSING-STRING TO YES-NO. IF YES-NO IS EQUAL TO "Y" THEN ******************* call to system routine to do the delete CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_DELETE_JOB OMITTED BY REFERENCE DELETE-SNDJBC-STRUCTURE OMITTED OMITTED OMITTED GIVING RETURN-STATUS PERFORM 8000-GET-ACK THRU 8000-EXIT. MOVE SPACES TO PASSING-STRING. MOVE 6 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE SPACES TO PASSING-STRING. MOVE 4 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 300-EXIT. EXIT. 400-RESTART-QUEUE. MOVE 1 TO ENTRY-POINT. MOVE 12 TO CHOICE. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. EVALUATE CHOICE WHEN 1 MOVE SJC$_TOP_OF_FILE TO HOLD-MODIFY-FLAGS MOVE 0 TO HOLD-BACKSPACE-FIELD PERFORM 410-MODIFY THRU 410-EXIT WHEN 2 MOVE SJC$_RELATIVE-PAGE TO HOLD-MODIFY-FLAGS MOVE -2 TO HOLD-BACKSPACE-FIELD PERFORM 410-MODIFY THRU 410-EXIT WHEN 3 MOVE 0 TO HOLD-MODIFY-FLAGS MOVE 0 TO HOLD-BACKSPACE-FIELD PERFORM 410-MODIFY THRU 410-EXIT END-EVALUATE. 400-EXIT. EXIT. 410-MODIFY. MOVE "Which queue? [Quit]" TO PASSING-STRING. PERFORM 420-GET-QUEUE THRU 420-EXIT. IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN MOVE 0 TO SJC-MODIFY-FLAGS MOVE 0 TO SJC-BACKSPACE-FIELD CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_PAUSE_QUEUE OMITTED BY REFERENCE SJC-RES-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS MOVE HOLD-MODIFY-FLAGS TO SJC-MODIFY-FLAGS MOVE HOLD-BACKSPACE-FIELD TO SJC-BACKSPACE-FIELD CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_START_QUEUE OMITTED BY REFERENCE SJC-RES-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS. CALL "LIB$SIGNAL" USING BY VALUE SYS-STATUS. CALL "LIB$SIGNAL" USING BY VALUE IO-STS. PERFORM 8000-GET-ACK THRU 8000-EXIT. 410-EXIT. EXIT. 420-GET-QUEUE. MOVE 4 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE SPACES TO PASSING-STRING. MOVE 5 TO ENTRY-POINT. MOVE 1 TO CHOICE. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE QUI$M_SEARCH_SYMBIONT TO QUI-SEARCH-FLAGS. MOVE "*" TO QUI-SEARCH-NAME. MOVE 1 TO QUI-SEARCH-LEN. MOVE PASSING-STRING TO QUI-QUEUE-NAME. MOVE SPACES TO PASSING-STRING. MOVE 4 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN CALL "SYS$GETQUIW" USING OMITTED BY VALUE QUI$_DISPLAY_QUEUE OMITTED BY REFERENCE QUI-VERIFY-QUEUE-LIST BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS IF IO-STS IS EQUAL TO JBC$_NOSUCHQUE THEN MOVE "Queue not found!" TO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE "Press RETURN to continue" TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 5 TO ENTRY-POINT MOVE 1 TO CHOICE CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING ELSE IF (SECURITY-LEVEL IS EQUAL TO 2 OR 3) AND (QUI-QUEUE-NAME IS NOT EQUAL TO "LIB104") AND (QUI-QUEUE-NAME IS NOT EQUAL TO "SU206") AND (QUI-QUEUE-NAME IS NOT EQUAL TO "LA104") AND (QUI-QUEUE-NAME IS NOT EQUAL TO "LZ206") THEN MOVE SPACES TO QUI-QUEUE-NAME MOVE "You are not authorized for that queue" TO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE "Press RETURN to continue" TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 5 TO ENTRY-POINT MOVE 1 TO CHOICE CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 420-EXIT. EXIT. 500-EXAMINE-QUEUE. ******** Request search of all jobs present in output queues; also force ******** wildcard mode to maintain the internal search context block after ******** the first call when a non-wild queue name is entered--this preserves ******** queue context for the subsequent display job operation MOVE 98 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 7 TO ENTRY-POINT. MOVE TITLE-LINE-1 TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 7 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 1 TO QUI-DISPLAY-FLAG. MOVE "*" TO QUI-SEARCH-NAME. MOVE 1 TO QUI-SEARCH-LEN. PERFORM 510-QUEUE-SEARCH THRU 510-EXIT. 500-EXIT. EXIT. 510-QUEUE-SEARCH. ADD QUI$M_SEARCH_WILDCARD QUI$M_SEARCH_SYMBIONT QUI$M_SEARCH_ALL_JOBS GIVING QUI-SEARCH-FLAGS. ******** Dissolve any internal search context block for the process CALL "SYS$GETQUIW" USING OMITTED BY VALUE QUI$_CANCEL_OPERATION OMITTED OMITTED OMITTED OMITTED OMITTED GIVING SYS-STATUS. ******** Locate next output queue; loop until an error status is returned CALL "SYS$GETQUIW" USING OMITTED BY VALUE QUI$_DISPLAY_QUEUE OMITTED BY REFERENCE QUI-QUEUE-LIST BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS. PERFORM 520-SCAN-QUEUE THRU 520-EXIT UNTIL (SYS-STATUS IS NOT EQUAL TO SS$_NORMAL) OR (IO-STS IS EQUAL TO JBC$_NOMOREQUE). IF QUI-DISPLAY THEN MOVE 8 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 510-EXIT. EXIT. 520-SCAN-QUEUE. MOVE SPACES TO QUI-QUEUE-STATUS-DECODED. PERFORM VARYING I FROM 1 BY 1 UNTIL I IS GREATER THAN 11 CALL "FOR$JIBITS" USING BY REFERENCE QUI-QUEUE-STATUS BY REFERENCE QUEUE-BIT (I) BY REFERENCE ONE GIVING TEST-VALUE IF STATUS-FOUND THEN MOVE QUEUE-STAT (I) TO QUI-QUEUE-STATUS-DECODED END-IF END-PERFORM. IF QUI-QUEUE-STATUS-DECODED IS EQUAL TO SPACES THEN MOVE "Active" TO QUI-QUEUE-STATUS-DECODED END-IF IF (QUI-QUEUE-STATUS-DECODED IS NOT EQUAL TO "Idle") AND (QUI-QUEUE-STATUS-DECODED IS NOT EQUAL TO "Active") THEN MOVE QUI-QUEUE-NAME (1:QUI-QUEUE-NAME-L) TO QUI-QUEUE-NAME-AGAIN MOVE 7 TO ENTRY-POINT MOVE QUI-QUEUE-DISPLAY-RECORD TO PASSING-STRING IF QUI-DISPLAY THEN CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. ******** Get information on next job in queue; loop until error return CALL "SYS$GETQUIW" USING OMITTED BY VALUE QUI$_DISPLAY_JOB OMITTED BY REFERENCE QUI-JOB-LIST BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS. PERFORM 530-GET-JOB-INFORMATION THRU 530-EXIT UNTIL (IO-STS IS EQUAL TO JBC$_NOSUCHJOB) OR (IO-STS IS EQUAL TO JBC$_NOMOREJOB) OR (SYS-STATUS IS NOT EQUAL TO SS$_NORMAL). CALL "SYS$GETQUIW" USING OMITTED BY VALUE QUI$_DISPLAY_QUEUE OMITTED BY REFERENCE QUI-QUEUE-LIST BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS. 520-EXIT. EXIT. 530-GET-JOB-INFORMATION. MOVE SPACES TO QUI-JOB-STATUS-DECODED. PERFORM VARYING I FROM 1 BY 1 UNTIL I IS GREATER THAN 10 CALL "FOR$JIBITS" USING BY REFERENCE QUI-JOB-STATUS BY REFERENCE JOB-BIT (I) BY REFERENCE ONE GIVING TEST-VALUE IF STATUS-FOUND THEN MOVE JOB-STAT (I) TO QUI-JOB-STATUS-DECODED END-IF END-PERFORM. IF QUI-JOB-STATUS IS EQUAL TO QUI$M_JOB_PENDING THEN MOVE "Pending" TO QUI-JOB-STATUS-DECODED. IF QUI-JOB-STATUS-DECODED IS EQUAL TO SPACES THEN MOVE "ERROR" TO QUI-JOB-STATUS-DECODED. MOVE QUI-ENTRY-NUMBER TO QUI-ENTRY-NUMBER-DISPLAY. MOVE QUI-JOB-SIZE TO QUI-JOB-SIZE-DISPLAY. MOVE QUI-COMPLETED-BLOCKS TO QUI-COMPLETED-BLOCKS-DISPLAY. INSPECT QUI-JOB-DISPLAY-RECORD REPLACING ALL X'00' BY SPACES. MOVE 7 TO ENTRY-POINT. MOVE QUI-JOB-DISPLAY-RECORD TO PASSING-STRING. IF QUI-TABLE THEN ADD 1 TO J IF J IS GREATER THAN 200 THEN MOVE TOO-MANY-ENT TO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE "Press return to continue" TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 5 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE 200 TO J MOVE JBC$_NOMOREJOB TO IO-STS GO TO 530-EXIT END-IF MOVE QUI-ENTRY-NUMBER TO DUP-ENTRY-NUMBER (J) MOVE QUI-USERNAME TO DUP-USERNAME (J) MOVE QUI-JOB-NAME TO DUP-JOB-NAME (J) ELSE IF QUI-DISPLAY THEN CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING ELSE IF QUI-ENTRY-NUMBER IS EQUAL TO HOLD-ENTRY-NUMBER THEN MOVE 1 TO QUI-ENTRY-FLAG MOVE QUI-JOB-DISPLAY-RECORD TO HOLD-DISPLAY. CALL "SYS$GETQUIW" USING OMITTED BY VALUE QUI$_DISPLAY_JOB OMITTED BY REFERENCE QUI-JOB-LIST BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS. 530-EXIT. EXIT. 600-STOP-QUEUE. MOVE 1 TO ENTRY-POINT. MOVE 13 TO CHOICE. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. EVALUATE CHOICE WHEN 1 PERFORM 610-AFTER THRU 610-EXIT WHEN 2 PERFORM 620-DELETING THRU 620-EXIT WHEN 3 PERFORM 630-PAUSE THRU 630-EXIT END-EVALUATE. 600-EXIT. EXIT. 610-AFTER. MOVE "Which queue? [Quit]" TO PASSING-STRING. PERFORM 420-GET-QUEUE THRU 420-EXIT. IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN MOVE 0 TO SJC-MODIFY-FLAGS MOVE 0 TO SJC-BACKSPACE-FIELD CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_STOP_QUEUE OMITTED BY REFERENCE SJC-RES-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS PERFORM 8000-GET-ACK THRU 8000-EXIT. 610-EXIT. EXIT. 620-DELETING. MOVE "Which queue? [Quit]" TO PASSING-STRING. PERFORM 420-GET-QUEUE THRU 420-EXIT. IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN MOVE 0 TO SJC-MODIFY-FLAGS MOVE 0 TO SJC-BACKSPACE-FIELD CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_RESET_QUEUE OMITTED BY REFERENCE SJC-RES-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS PERFORM 8000-GET-ACK THRU 8000-EXIT. 620-EXIT. EXIT. 630-PAUSE. MOVE "Which queue? [Quit]" TO PASSING-STRING. PERFORM 420-GET-QUEUE THRU 420-EXIT. IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN MOVE 0 TO SJC-MODIFY-FLAGS MOVE 0 TO SJC-BACKSPACE-FIELD CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_PAUSE_QUEUE OMITTED BY REFERENCE SJC-RES-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS PERFORM 8000-GET-ACK THRU 8000-EXIT. 630-EXIT. EXIT. 700-MODIFY-ENTRY. MOVE 4 TO ENTRY-POINT. MOVE MODIFY-PROMPT TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE SPACES TO PASSING-STRING. ************ get entry-number for job modify MOVE 5 TO ENTRY-POINT. MOVE 1 TO CHOICE. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. CALL "STR$TRIM" USING BY DESCRIPTOR PASSING-STRING BY DESCRIPTOR PASSING-STRING BY REFERENCE I GIVING SYS-STATUS. IF I IS EQUAL TO 0 THEN MOVE 4 TO ENTRY-POINT MOVE SPACES TO PASSING-STRING CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE 10 TO CHOICE GO TO 700-EXIT. CALL "OTS$CVT_TU_L" USING BY DESCRIPTOR PASSING-STRING (1:I) BY REFERENCE HOLD-ENTRY-NUMBER OMITTED GIVING SYS-STATUS. MOVE 0 TO QUI-DISPLAY-FLAG. MOVE 0 TO QUI-ENTRY-FLAG. MOVE "*" TO QUI-SEARCH-NAME. MOVE 1 TO QUI-SEARCH-LEN. PERFORM 510-QUEUE-SEARCH THRU 510-EXIT. IF NOT ENTRY-FOUND THEN MOVE HOLD-ENTRY-NUMBER TO DL-ENTRY-NUMBER MOVE SPACES TO PASSING-STRING STRING "Entry number " DELIMITED BY SIZE DL-ENTRY-NUMBER DELIMITED BY SIZE " was not found!" DELIMITED BY SIZE INTO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE "Press return to continue" TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 5 TO ENTRY-POINT MOVE 1 TO CHOICE CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE SPACES TO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE 10 TO CHOICE GO TO 700-EXIT. MOVE HOLD-DISPLAY TO QUI-JOB-DISPLAY-RECORD. ******** Get username of the job to be modified. ******** Display info. for validation ******** Send information to be validated. MOVE 6 TO ENTRY-POINT. MOVE QUI-USERNAME TO DL-USERNAME. MOVE QUI-QUEUE-NAME TO DL-QUEUE-NAME. MOVE QUI-QUEUE-NAME TO HOLD-QUEUE-NAME. MOVE QUI-JOB-NAME TO DL-JOB-NAME. MOVE HOLD-ENTRY-NUMBER TO DL-ENTRY-NUMBER. MOVE DELETE-LINE TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. ******** Send validate prompt MOVE 4 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. MOVE MODIFY-VERIFY TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE SPACES TO PASSING-STRING. ********* Get validation MOVE 5 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE PASSING-STRING TO YES-NO. MOVE SPACES TO PASSING-STRING. MOVE 6 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 4 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. IF YES-NO IS EQUAL TO "Y" THEN MOVE 0 TO CHOICE PERFORM UNTIL CHOICE IS EQUAL TO 10 MOVE 1 TO ENTRY-POINT MOVE 11 TO CHOICE CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING EVALUATE CHOICE WHEN 1 PERFORM 710-FORM THRU 710-EXIT WHEN 2 PERFORM 720-QUEUE THRU 720-EXIT WHEN 3 PERFORM 730-HOLD THRU 730-EXIT WHEN 4 PERFORM 740-RELEASE THRU 740-EXIT WHEN 5 PERFORM 750-COPIES THRU 750-EXIT WHEN 6 PERFORM 760-TIME THRU 760-EXIT WHEN 7 PERFORM 770-PRIORITY THRU 770-EXIT END-EVALUATE END-PERFORM MOVE 98 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING END-IF. 700-EXIT. EXIT. 710-FORM. MOVE SPACES TO PASSING-STRING. STRING "Current form is:" DELIMITED BY SIZE QUI-FORM-NAME DELIMITED BY SIZE INTO PASSING-STRING. MOVE 6 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE "Enter new form name [Quit]" TO PASSING-STRING. MOVE 4 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 5 TO ENTRY-POINT. MOVE 1 TO CHOICE. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. IF PASSING-STRING IS NOT EQUAL TO SPACES THEN MOVE PASSING-STRING TO ALT-STRING MOVE SJC$_FORM_NAME TO ALT-FUNCTION CALL "STR$TRIM" USING BY DESCRIPTOR ALT-STRING BY DESCRIPTOR ALT-STRING BY REFERENCE ALT-LENGTH-LONG GIVING SYS-STATUS MOVE ALT-LENGTH-LONG TO ALT-LENGTH CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_ALTER_JOB OMITTED BY REFERENCE SJC-ALT-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS PERFORM 8000-GET-ACK THRU 8000-EXIT. MOVE 4 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 6 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 710-EXIT. EXIT. 720-QUEUE. MOVE SPACES TO PASSING-STRING. STRING "Current queue is:" DELIMITED BY SIZE QUI-QUEUE-NAME DELIMITED BY SIZE INTO PASSING-STRING. MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE QUI-QUEUE-NAME TO SJC-FROM-QUEUE. MOVE "Move to which queue? [Quit]" TO PASSING-STRING. PERFORM 420-GET-QUEUE THRU 420-EXIT. IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN MOVE QUI-QUEUE-NAME TO ALT-STRING MOVE SJC-FROM-QUEUE TO QUI-QUEUE-NAME MOVE SJC$_DESTINATION_QUEUE TO ALT-FUNCTION CALL "STR$TRIM" USING BY DESCRIPTOR ALT-STRING BY DESCRIPTOR ALT-STRING BY REFERENCE ALT-LENGTH-LONG GIVING SYS-STATUS MOVE ALT-LENGTH-LONG TO ALT-LENGTH CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_ALTER_JOB OMITTED BY REFERENCE SJC-ALT-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS PERFORM 8000-GET-ACK THRU 8000-EXIT. MOVE 4 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 6 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 720-EXIT. EXIT. 730-HOLD. MOVE SPACES TO ALT-STRING. MOVE SJC$_HOLD TO ALT-FUNCTION. MOVE 0 TO ALT-LENGTH. CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_ALTER_JOB OMITTED BY REFERENCE SJC-ALT-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS. PERFORM 8000-GET-ACK THRU 8000-EXIT. 730-EXIT. EXIT. 740-RELEASE. MOVE SPACES TO ALT-STRING. MOVE SJC$_NO_HOLD TO ALT-FUNCTION. MOVE 0 TO ALT-LENGTH. CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_ALTER_JOB OMITTED BY REFERENCE SJC-ALT-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS. PERFORM 8000-GET-ACK THRU 8000-EXIT. 740-EXIT. EXIT. 750-COPIES. MOVE SPACES TO PASSING-STRING. MOVE "Enter number of copies [Quit]" TO PASSING-STRING. MOVE 4 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 5 TO ENTRY-POINT. MOVE 1 TO CHOICE. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. CALL "STR$TRIM" USING BY DESCRIPTOR PASSING-STRING BY DESCRIPTOR PASSING-STRING BY REFERENCE I GIVING SYS-STATUS. IF I IS GREATER THAN 0 THEN CALL "OTS$CVT_TU_L" USING BY DESCRIPTOR PASSING-STRING (1:I) BY REFERENCE ALT-STRING-REDEF OMITTED GIVING SYS-STATUS MOVE 4 TO ALT-LENGTH MOVE SJC$_JOB_COPIES TO ALT-FUNCTION CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_ALTER_JOB OMITTED BY REFERENCE SJC-ALT-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS PERFORM 8000-GET-ACK THRU 8000-EXIT. MOVE 4 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 6 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 750-EXIT. EXIT. 760-TIME. MOVE SPACES TO PASSING-STRING. CALL "SYS$ASCTIM" USING OMITTED BY DESCRIPTOR QUI-AFTER-TIME-DISPLAY BY REFERENCE QUI-AFTER-TIME OMITTED GIVING SYS-STATUS. STRING "Current hold until time is:" DELIMITED BY SIZE QUI-AFTER-TIME-DISPLAY DELIMITED BY SIZE INTO PASSING-STRING. MOVE 6 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE "Enter new time [Quit]" TO PASSING-STRING. MOVE 4 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 5 TO ENTRY-POINT. MOVE 1 TO CHOICE. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. CALL "STR$TRIM" USING BY DESCRIPTOR PASSING-STRING BY DESCRIPTOR PASSING-STRING BY REFERENCE I GIVING SYS-STATUS. IF I IS GREATER THAN 0 THEN CALL "SYS$BINTIM" USING BY DESCRIPTOR PASSING-STRING (1:I) BY REFERENCE QUI-AFTER-TIME GIVING SYS-STATUS IF SYS-STATUS IS EQUAL TO SS$_NORMAL THEN MOVE 8 TO ALT-LENGTH MOVE QUI-AFTER-TIME TO ALT-STRING-REDEF-2 MOVE SJC$_AFTER_TIME TO ALT-FUNCTION CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_ALTER_JOB OMITTED BY REFERENCE SJC-ALT-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS PERFORM 8000-GET-ACK THRU 8000-EXIT ELSE MOVE 6 TO ENTRY-POINT MOVE "Invalid time" TO PASSING-STRING CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE 4 TO ENTRY-POINT MOVE "Press return to continue" TO PASSING-STRING CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE 5 TO ENTRY-POINT MOVE SPACES TO PASSING-STRING CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 4 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 6 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 760-EXIT. EXIT. 770-PRIORITY. MOVE SPACES TO PASSING-STRING. MOVE QUI-PRIORITY TO QUI-PRIORITY-DISPLAY. STRING "Current priority is:" DELIMITED BY SIZE QUI-PRIORITY-DISPLAY DELIMITED BY SIZE INTO PASSING-STRING. MOVE 6 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE "Enter new priority [Quit]" TO PASSING-STRING. MOVE 4 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 5 TO ENTRY-POINT. MOVE 1 TO CHOICE. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. CALL "STR$TRIM" USING BY DESCRIPTOR PASSING-STRING BY DESCRIPTOR PASSING-STRING BY REFERENCE I GIVING SYS-STATUS. IF I IS GREATER THAN 0 THEN CALL "OTS$CVT_TU_L" USING BY DESCRIPTOR PASSING-STRING (1:I) BY REFERENCE QUI-PRIORITY OMITTED GIVING SYS-STATUS MOVE 4 TO ALT-LENGTH MOVE QUI-PRIORITY TO ALT-STRING-REDEF MOVE SJC$_PRIORITY TO ALT-FUNCTION CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_ALTER_JOB OMITTED BY REFERENCE SJC-ALT-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS PERFORM 8000-GET-ACK THRU 8000-EXIT. MOVE 4 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 6 TO ENTRY-POINT. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 770-EXIT. EXIT. 800-ELIM-DUP. MOVE "Which queue? [Quit]" TO PASSING-STRING. PERFORM 420-GET-QUEUE THRU 420-EXIT. IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN MOVE 0 TO J MOVE QUI-QUEUE-NAME TO QUI-SEARCH-NAME MOVE QUI-QUEUE-NAME TO HOLD-QUEUE-NAME MOVE 6 TO QUI-SEARCH-LEN MOVE 2 TO QUI-DISPLAY-FLAG MOVE 0 TO QUI-ENTRY-FLAG PERFORM 510-QUEUE-SEARCH THRU 510-EXIT PERFORM 810-CHECK-FOR-DUP THRU 810-EXIT VARYING I FROM 1 BY 1 UNTIL I IS GREATER THAN J PERFORM 8000-GET-ACK THRU 8000-EXIT. 800-EXIT. EXIT. 810-CHECK-FOR-DUP. IF DUP-CHECK (I) IS NOT EQUAL TO SPACES THEN ADD 1, I GIVING L PERFORM VARYING K FROM L BY 1 UNTIL K IS GREATER THAN J IF DUP-CHECK (I) IS EQUAL TO DUP-CHECK (K) THEN MOVE DUP-ENTRY-NUMBER (K) TO HOLD-ENTRY-NUMBER CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_DELETE_JOB OMITTED BY REFERENCE DELETE-SNDJBC-STRUCTURE OMITTED OMITTED OMITTED GIVING RETURN-STATUS MOVE SPACES TO DUP-CHECK (K) END-IF END-PERFORM END-IF. 810-EXIT. EXIT. 900-BLOCK-LIMIT. MOVE "Which queue? [Quit]" TO PASSING-STRING. PERFORM 420-GET-QUEUE THRU 420-EXIT. IF QUI-QUEUE-NAME IS NOT EQUAL TO SPACES THEN MOVE SPACES TO PASSING-STRING MOVE QUI-JOB-SIZE-MAXIMUM TO QUI-JOB-SIZE-MAX-DISPLAY STRING "Current block limit is:" DELIMITED BY SIZE QUI-JOB-SIZE-MAX-DISPLAY DELIMITED BY SIZE INTO PASSING-STRING MOVE 6 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE "Enter new block limit [Quit]" TO PASSING-STRING MOVE 4 TO ENTRY-POINT CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING MOVE 5 TO ENTRY-POINT MOVE 1 TO CHOICE MOVE SPACES TO PASSING-STRING CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING CALL "STR$TRIM" USING BY DESCRIPTOR PASSING-STRING BY DESCRIPTOR PASSING-STRING BY REFERENCE I GIVING SYS-STATUS IF I IS GREATER THAN 0 THEN CALL "OTS$CVT_TU_L" USING BY DESCRIPTOR PASSING-STRING (1:I) BY REFERENCE QUI-JOB-SIZE-MAXIMUM OMITTED GIVING SYS-STATUS IF QUI-JOB-SIZE-MAXIMUM IS GREATER THAN ZERO THEN MOVE SJC$_JOB_SIZE_MAXIMUM TO SIZE-FUNCTION ELSE MOVE SJC$_NO_JOB_SIZE_MAXIMUM TO SIZE-FUNCTION END-IF CALL "SYS$SNDJBCW" USING OMITTED BY VALUE SJC$_ALTER_QUEUE OMITTED BY REFERENCE SJC-BLOCK-LS BY REFERENCE IO-STATUS-BLOCK OMITTED OMITTED GIVING SYS-STATUS. PERFORM 8000-GET-ACK THRU 8000-EXIT. 900-EXIT. EXIT. 8000-GET-ACK. MOVE "Function completed" TO PASSING-STRING. MOVE 6 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE "Press RETURN to continue" TO PASSING-STRING. MOVE 4 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE 5 TO ENTRY-POINT. MOVE 1 TO CHOICE. MOVE SPACES TO PASSING-STRING. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE SPACES TO PASSING-STRING. MOVE 6 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. MOVE SPACES TO PASSING-STRING. MOVE 4 TO ENTRY-POINT. CALL "OPERSCREEN" USING ENTRY-POINT CHOICE PASSING-STRING. 8000-EXIT. EXIT.