DELETE ADD_DOC; REDEFINE PROCEDURE ADD_DOC BEGIN ! DECLARE TG_A_NO PIC 9(3). DECLARE TIC USAGE DATE. TIC = "today" ! WHILE CONT_ADD NOT CONT "y" BEGIN ! TG_A_NO = MAX G_A_NO OF DOC + 1 ! STORE DOC USING DISPLAY_FORM DOCADD IN DOC_TRACK_DIR:DOCLIB USING BEGIN PUT_FORM FOPERATION = "Adding" PUT_FORM FDATE_REC = FORMAT (TIC) USING NN/DD/YY PUT_FORM FG_A_NO = FORMAT (TG_A_NO) USING 999 END RETRIEVE USING BEGIN G_A_NO = GET_FORM FG_A_NO FILE_NO = GET_FORM FFILE_NO G_C_NO = GET_FORM FG_C_NO DATE_REC = GET_FORM FDATE_REC DOC_DATE = GET_FORM FDOC_DATE ORIGIN = GET_FORM FORIGIN SUBJECT1 = GET_FORM FSUBJECT1 SUBJECT2 = GET_FORM FSUBJECT2 RESP_SIG = GET_FORM FRESP_SIG RESP_DUEA = GET_FORM FRESP_DUEA DATE_DUE_OFFICE = GET_FORM FDATE_DUE_OFFICE DATE_DUE = GET_FORM FDATE_DUE ACTION1 = GET_FORM FACTION1 ACTION2 = GET_FORM FACTION2 ACTION3 = GET_FORM FACTION3 INFO1 = GET_FORM FINFO1 INFO2 = GET_FORM FINFO2 INFO3 = GET_FORM FINFO3 INFO4 = GET_FORM FINFO4 INFO5 = GET_FORM FINFO5 INFO6 = GET_FORM FINFO6 ANSWERED_DATE = GET_FORM FANSWERED_DATE ANSWERED_BY = GET_FORM FANSWERED_BY NOTES1 = GET_FORM FNOTES1 NOTES2 = GET_FORM FNOTES2 NOTES3 = GET_FORM FNOTES3 CONT_ADD = GET_FORM FDONE END END FOR DOC WITH (SUBJECT1 = "" OR SUBJECT1 STARTING " ") AND (ORIGIN = "" OR ORIGIN STARTING " ") ERASE ! ! Re-initialize variable for subsequent reentries ! CONT_ADD = "" END END_PROCEDURE DELETE DEL_DOC; REDEFINE PROCEDURE DEL_DOC BEGIN ! DECLARE TG_A_NO PIC 9(3). DECLARE TG_C_NO PIC X(7). ! TG_A_NO = 999 TG_C_NO = "ZZZZZZZ" ! TG_A_NO = *."G-A # or Press if not known " TG_C_NO = *."G-C # or Press if not known " ! FOR DOC WITH (G_A_NO EQ TG_A_NO) OR (G_C_NO EQ TG_C_NO) BEGIN DISPLAY_FORM DOCDEL IN DOC_TRACK_DIR:DOCLIB USING BEGIN PUT_FORM FOPERATION = "Deleting" PUT_FORM FG_A_NO = FORMAT(G_A_NO) USING 999 PUT_FORM FFILE_NO = FILE_NO PUT_FORM FG_C_NO = G_C_NO PUT_FORM FDATE_REC = FORMAT(DATE_REC) USING MMMBDD,BYY PUT_FORM FDOC_DATE = FORMAT(DOC_DATE) USING MMMBDD,BYY PUT_FORM FORIGIN = ORIGIN PUT_FORM FSUBJECT1 = SUBJECT1 PUT_FORM FSUBJECT2 = SUBJECT2 PUT_FORM FRESP_SIG = RESP_SIG PUT_FORM FRESP_DUEA = FORMAT(RESP_DUEA) USING MMMBDD,BYY PUT_FORM FDATE_DUE_OFFICE = DATE_DUE_OFFICE PUT_FORM FDATE_DUE = FORMAT(DATE_DUE) USING MMMBDD,BYY PUT_FORM FACTION1 = ACTION1 PUT_FORM FACTION2 = ACTION2 PUT_FORM FACTION3 = ACTION3 PUT_FORM FINFO1 = INFO1 PUT_FORM FINFO2 = INFO2 PUT_FORM FINFO3 = INFO3 PUT_FORM FINFO4 = INFO4 PUT_FORM FINFO5 = INFO5 PUT_FORM FINFO6 = INFO6 PUT_FORM FANSWERED_DATE = FORMAT(ANSWERED_DATE) USING MMMBDD,BYY PUT_FORM FANSWERED_BY = ANSWERED_BY PUT_FORM FNOTES1 = NOTES1 PUT_FORM FNOTES2 = NOTES2 PUT_FORM FNOTES3 = NOTES3 END RETRIEVE USING BEGIN DEL_THIS = GET_FORM FDONE END IF DEL_THIS CONT "Y" THEN ERASE END END END_PROCEDURE DELETE DOC; REDEFINE DOMAIN DOC USING CDD$DOC_TRACK.DOC_REC ON DOC_TRACK_DIR:DOC.DAT; DELETE DOC_REC; REDEFINE RECORD DOC_REC USING 01 DOC_RECORD. 05 G_A_NO PIC 9(3). 05 FILE_NO PIC X(11). 05 G_C_NO PIC X(7). 05 DATE_REC USAGE DATE. 05 DOC_DATE USAGE DATE. 05 ORIGIN PIC X(58). 05 SUBJECT1 PIC X(58). 05 SUBJECT2 PIC X(58). 05 RESP_SIG PIC X(7). 05 RESP_DUEA USAGE DATE. 05 DATE_DUE_OFFICE PIC X(7). 05 DATE_DUE USAGE DATE. 05 ACTION1 PIC X(7). 05 ACTION2 PIC X(7). 05 ACTION3 PIC X(7). 05 INFO1 PIC X(7). 05 INFO2 PIC X(7). 05 INFO3 PIC X(7). 05 INFO4 PIC X(7). 05 INFO5 PIC X(7). 05 INFO6 PIC X(7). 05 ANSWERED_DATE USAGE DATE. 05 ANSWERED_BY PIC X(43). 05 NOTES1 PIC X(61). 05 NOTES2 PIC X(61). 05 NOTES3 PIC X(61). ; DELETE MASREP_DOC; REDEFINE PROCEDURE MASREP_DOC ! ! WHILE RCHOICE_OPT NE 9 BEGIN DISPLAY_FORM DOCRPT IN DOC_TRACK_DIR:DOCLIB RETRIEVE USING BEGIN RCHOICE_OPT = GET_FORM FCHOIC END IF RCHOICE_OPT EQ 1 BEGIN :CDD$DOC_TRACK.REP1_DOC END IF RCHOICE_OPT EQ 2 BEGIN :CDD$DOC_TRACK.REP2_DOC END IF RCHOICE_OPT EQ 3 BEGIN :CDD$DOC_TRACK.REP3_DOC END IF RCHOICE_OPT EQ 4 BEGIN :CDD$DOC_TRACK.REP4_DOC END IF RCHOICE_OPT EQ 5 BEGIN :CDD$DOC_TRACK.REP5_DOC END IF RCHOICE_OPT EQ 6 BEGIN :CDD$DOC_TRACK.REP6_DOC END END ! ! RCHOICE_OPT = "" ! END_PROCEDURE DELETE MAS_DOC; REDEFINE PROCEDURE MAS_DOC READY CDD$DOC_TRACK.DOC SHARED WRITE ! DECLARE CHOICE_OPT PIC 9(1) VALID IF CHOICE_OPT EQ 1, 2, 3, 4, 9. ! DECLARE RCHOICE_OPT PIC 9(1) VALID IF CHOICE_OPT EQ 1, 2, 3, 4, 9. ! DECLARE DEL_THIS PIC X(3). DECLARE CONT_ADD PIC X(3). ! ! DISPLAY_FORM DOCINT IN DOC_TRACK_DIR:DOCLIB USING PUT_FORM FCHOICE = "" ! ! WHILE CHOICE_OPT NE 9 BEGIN DISPLAY_FORM DOCMAS IN DOC_TRACK_DIR:DOCLIB RETRIEVE USING BEGIN CHOICE_OPT = GET_FORM FCHOIC END IF CHOICE_OPT EQ 1 BEGIN FN$FMS_SWAP(13,1033,11,1037) :CDD$DOC_TRACK.ADD_DOC FN$FMS_SWAP(11,1033,13,1037) END IF CHOICE_OPT EQ 2 BEGIN FN$FMS_SWAP(13,1033,11,1037) :CDD$DOC_TRACK.MOD_DOC FN$FMS_SWAP(11,1033,13,1037) END IF CHOICE_OPT EQ 3 BEGIN :CDD$DOC_TRACK.DEL_DOC END IF CHOICE_OPT EQ 4 BEGIN :CDD$DOC_TRACK.MASREP_DOC END END ! ! END_PROCEDURE DELETE MOD_DOC; REDEFINE PROCEDURE MOD_DOC BEGIN ! DECLARE TG_A_NO PIC 9(3). DECLARE TG_C_NO PIC X(7). ! TG_A_NO = 999 TG_C_NO = "ZZZZZZZ" ! TG_A_NO = *."G-A # or Press if not known " TG_C_NO = *."G-C # or Press if not known " ! FOR DOC WITH (G_A_NO EQ TG_A_NO) OR (G_C_NO EQ TG_C_NO) MODIFY USING BEGIN DISPLAY_FORM DOCMOD IN DOC_TRACK_DIR:DOCLIB USING BEGIN PUT_FORM FOPERATION = "Modifying" PUT_FORM FG_A_NO = FORMAT(G_A_NO) USING 999 PUT_FORM FFILE_NO = FILE_NO PUT_FORM FG_C_NO = G_C_NO PUT_FORM FDATE_REC = FORMAT(DATE_REC) USING MMMBDD,BYY PUT_FORM FDOC_DATE = FORMAT(DOC_DATE) USING MMMBDD,BYY PUT_FORM FORIGIN = ORIGIN PUT_FORM FSUBJECT1 = SUBJECT1 PUT_FORM FSUBJECT2 = SUBJECT2 PUT_FORM FRESP_SIG = RESP_SIG PUT_FORM FRESP_DUEA = FORMAT(RESP_DUEA) USING MMMBDD,BYY PUT_FORM FDATE_DUE_OFFICE = DATE_DUE_OFFICE PUT_FORM FDATE_DUE = FORMAT(DATE_DUE) USING MMMBDD,BYY PUT_FORM FACTION1 = ACTION1 PUT_FORM FACTION2 = ACTION2 PUT_FORM FACTION3 = ACTION3 PUT_FORM FINFO1 = INFO1 PUT_FORM FINFO2 = INFO2 PUT_FORM FINFO3 = INFO3 PUT_FORM FINFO4 = INFO4 PUT_FORM FINFO5 = INFO5 PUT_FORM FINFO6 = INFO6 PUT_FORM FANSWERED_DATE = FORMAT(ANSWERED_DATE) USING MMMBDD,BYY PUT_FORM FANSWERED_BY = ANSWERED_BY PUT_FORM FNOTES1 = NOTES1 PUT_FORM FNOTES2 = NOTES2 PUT_FORM FNOTES3 = NOTES3 END RETRIEVE USING BEGIN FILE_NO = GET_FORM FFILE_NO G_C_NO = GET_FORM FG_C_NO DATE_REC = GET_FORM FDATE_REC DOC_DATE = GET_FORM FDOC_DATE ORIGIN = GET_FORM FORIGIN SUBJECT1 = GET_FORM FSUBJECT1 SUBJECT2 = GET_FORM FSUBJECT2 RESP_SIG = GET_FORM FRESP_SIG RESP_DUEA = GET_FORM FRESP_DUEA DATE_DUE_OFFICE = GET_FORM FDATE_DUE_OFFICE DATE_DUE = GET_FORM FDATE_DUE ACTION1 = GET_FORM FACTION1 ACTION2 = GET_FORM FACTION2 ACTION3 = GET_FORM FACTION3 INFO1 = GET_FORM FINFO1 INFO2 = GET_FORM FINFO2 INFO3 = GET_FORM FINFO3 INFO4 = GET_FORM FINFO4 INFO5 = GET_FORM FINFO5 INFO6 = GET_FORM FINFO6 ANSWERED_DATE = GET_FORM FANSWERED_DATE ANSWERED_BY = GET_FORM FANSWERED_BY NOTES1 = GET_FORM FNOTES1 NOTES2 = GET_FORM FNOTES2 NOTES3 = GET_FORM FNOTES3 END END END END_PROCEDURE DELETE REP1_DOC; REDEFINE PROCEDURE REP1_DOC ! PRINT " " PRINT " To send something to that lovely C3 printer you must" PRINT " hold down the key and press the key." PRINT " Then type in the name of the printer you want it" PRINT " to go to. Such as: [DRAFT] or [FINAL2]" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! REPORT DOC ! SET NO NUMBER SET NO DATE ! PRINT COL 1, "+----------------------------------------------------------------------------+", COL 1, "| Date Received ", COL 25, DATE_REC(-), COL 45," Document Date", COL 60, DOC_DATE(-), COL 78, "|", COL 1, "+----------------------------------------------------------------------------+", COL 1, "| Originator:", COL 16, ORIGIN(-), COL 78, "|", COL 1, "| Subject:", COL 13, SUBJECT1(-), COL 78, "|", COL 1, "| ", COL 13, SUBJECT2(-), COL 78, "|", COL 1, "| Prepare Response For Signature Of: ", COL 39, RESP_SIG(-), COL 78, "|", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "| Action | Information | Date Due | Control |", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "|", COL 3, ACTION1(-), COL 16, "|", COL 18, INFO1(-), COL 32, "| Response | File # : ", COL 61, FILE_NO(-), COL 78, "|", COL 1, "|", COL 3, ACTION2(-), COL 16, "|", COL 18, INFO2(-), COL 32, "| Due To | G-C # : ", COL 61, G_C_NO(-), COL 78, "|", COL 1, "|", COL 3, ACTION3(-), COL 16, "|", COL 18, INFO3(-), COL 32, "| G-A | G-A # : ", COL 61, G_A_NO(-), COL 78, "|", COL 1, "| |", COL 18, INFO4(-), COL 32, "| | |", COL 1, "| |", COL 18, INFO5(-), COL 32, "| By | Date Due to ", COL 64, DATE_DUE_OFFICE(-), COL 78, "|", COL 1, "| |", COL 18, INFO6(-), COL 32, "|", COL 36, RESP_DUEA(-), COL 49, "| By", COL 59, DATE_DUE(-), COL 78,"|", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "| Answered:", COL 12, ANSWERED_DATE(-), COL 25, "By:", COL 29, ANSWERED_BY(-),COL 78,"|", COL 1, "| Notes:", COL 10, NOTES1(-), COL 78, "|", COL 1, "|", COL 10, NOTES2(-), COL 78, "|", COL 1, "|", COL 10, NOTES3(-), COL 78, "|", COL 1, "+----------------------------------------------------------------------------+", NEW_PAGE, COL 1, "+----------------------------------------------------------------------------+", COL 1, "| Date Received ", COL 25, DATE_REC(-), COL 45," Document Date", COL 60, DOC_DATE(-), COL 78, "|", COL 1, "+----------------------------------------------------------------------------+", COL 1, "| Originator:", COL 16, ORIGIN(-), COL 78, "|", COL 1, "| Subject:", COL 13, SUBJECT1(-), COL 78, "|", COL 1, "| ", COL 13, SUBJECT2(-), COL 78, "|", COL 1, "| Prepare Response For Signature Of: ", COL 39, RESP_SIG(-), COL 78, "|", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "| Action | Information | Date Due | Control |", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "|", COL 3, ACTION1(-), COL 16, "|", COL 18, INFO1(-), COL 32, "| Response | File # : ", COL 61, FILE_NO(-), COL 78, "|", COL 1, "|", COL 3, ACTION2(-), COL 16, "|", COL 18, INFO2(-), COL 32, "| Due To | G-C # : ", COL 61, G_C_NO(-), COL 78, "|", COL 1, "|", COL 3, ACTION3(-), COL 16, "|", COL 18, INFO3(-), COL 32, "| G-A | G-A # : ", COL 61, G_A_NO(-), COL 78, "|", COL 1, "| |", COL 18, INFO4(-), COL 32, "| | |", COL 1, "| |", COL 18, INFO5(-), COL 32, "| By | Date Due to ", COL 64, DATE_DUE_OFFICE(-), COL 78, "|", COL 1, "| |", COL 18, INFO6(-), COL 32, "|", COL 36, RESP_DUEA(-), COL 49, "| By", COL 59, DATE_DUE(-), COL 78,"|", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "| Answered:", COL 12, ANSWERED_DATE(-), COL 25, "By:", COL 29, ANSWERED_BY(-),COL 78,"|", COL 1, "| Notes:", COL 10, NOTES1(-), COL 78, "|", COL 1, "|", COL 10, NOTES2(-), COL 78, "|", COL 1, "|", COL 10, NOTES3(-), COL 78, "|", COL 1, "+----------------------------------------------------------------------------+", NEW_PAGE ! END_REPORT ! PRINT " " PRINT " To start that lovely C3 printer printing you must" PRINT " hold down the key and press the key." PRINT " Then type in [NUL]" PRINT " " PRINT " Make sure your paper is lined up" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! ! END_PROCEDURE DELETE REP2_DOC; REDEFINE PROCEDURE REP2_DOC ! ! DECLARE TG_A_NO PIC 9(3). DECLARE TG_C_NO PIC X(7). ! TG_A_NO = 999 TG_C_NO = "ZZZZZZZ" ! TG_A_NO = *."G-A # or Press if not known " TG_C_NO = *."G-C # or Press if not known " ! PRINT " " PRINT " To send something to that lovely C3 printer you must" PRINT " hold down the key and press the key." PRINT " Then type in the name of the printer you want it" PRINT " to go to. Such as: [DRAFT] or [FINAL2]" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! REPORT DOC WITH (G_A_NO EQ TG_A_NO) OR (G_C_NO EQ TG_C_NO) ! SET NO NUMBER SET NO DATE ! PRINT COL 1, "+----------------------------------------------------------------------------+", COL 1, "| Date Received ", COL 25, DATE_REC(-), COL 45," Document Date", COL 60, DOC_DATE(-), COL 78, "|", COL 1, "+----------------------------------------------------------------------------+", COL 1, "| Originator:", COL 16, ORIGIN(-), COL 78, "|", COL 1, "| Subject:", COL 13, SUBJECT1(-), COL 78, "|", COL 1, "| ", COL 13, SUBJECT2(-), COL 78, "|", COL 1, "| Prepare Response For Signature Of: ", COL 39, RESP_SIG(-), COL 78, "|", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "| Action | Information | Date Due | Control |", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "|", COL 3, ACTION1(-), COL 16, "|", COL 18, INFO1(-), COL 32, "| Response | File # : ", COL 61, FILE_NO(-), COL 78, "|", COL 1, "|", COL 3, ACTION2(-), COL 16, "|", COL 18, INFO2(-), COL 32, "| Due To | G-C # : ", COL 61, G_C_NO(-), COL 78, "|", COL 1, "|", COL 3, ACTION3(-), COL 16, "|", COL 18, INFO3(-), COL 32, "| G-A | G-A # : ", COL 61, G_A_NO(-), COL 78, "|", COL 1, "| |", COL 18, INFO4(-), COL 32, "| | |", COL 1, "| |", COL 18, INFO5(-), COL 32, "| By | Date Due to ", COL 64, DATE_DUE_OFFICE(-), COL 78, "|", COL 1, "| |", COL 18, INFO6(-), COL 32, "|", COL 36, RESP_DUEA(-), COL 49, "| By", COL 59, DATE_DUE(-), COL 78,"|", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "| Answered:", COL 12, ANSWERED_DATE(-), COL 25, "By:", COL 29, ANSWERED_BY(-),COL 78,"|", COL 1, "| Notes:", COL 10, NOTES1(-), COL 78, "|", COL 1, "|", COL 10, NOTES2(-), COL 78, "|", COL 1, "|", COL 10, NOTES3(-), COL 78, "|", COL 1, "+----------------------------------------------------------------------------+", NEW_PAGE, COL 1, "+----------------------------------------------------------------------------+", COL 1, "| Date Received ", COL 25, DATE_REC(-), COL 45," Document Date", COL 60, DOC_DATE(-), COL 78, "|", COL 1, "+----------------------------------------------------------------------------+", COL 1, "| Originator:", COL 16, ORIGIN(-), COL 78, "|", COL 1, "| Subject:", COL 13, SUBJECT1(-), COL 78, "|", COL 1, "| ", COL 13, SUBJECT2(-), COL 78, "|", COL 1, "| Prepare Response For Signature Of: ", COL 39, RESP_SIG(-), COL 78, "|", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "| Action | Information | Date Due | Control |", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "|", COL 3, ACTION1(-), COL 16, "|", COL 18, INFO1(-), COL 32, "| Response | File # : ", COL 61, FILE_NO(-), COL 78, "|", COL 1, "|", COL 3, ACTION2(-), COL 16, "|", COL 18, INFO2(-), COL 32, "| Due To | G-C # : ", COL 61, G_C_NO(-), COL 78, "|", COL 1, "|", COL 3, ACTION3(-), COL 16, "|", COL 18, INFO3(-), COL 32, "| G-A | G-A # : ", COL 61, G_A_NO(-), COL 78, "|", COL 1, "| |", COL 18, INFO4(-), COL 32, "| | |", COL 1, "| |", COL 18, INFO5(-), COL 32, "| By | Date Due to ", COL 64, DATE_DUE_OFFICE(-), COL 78, "|", COL 1, "| |", COL 18, INFO6(-), COL 32, "|", COL 36, RESP_DUEA(-), COL 49, "| By", COL 59, DATE_DUE(-), COL 78,"|", COL 1, "+--------------+---------------+----------------+----------------------------+", COL 1, "| Answered:", COL 12, ANSWERED_DATE(-), COL 25, "By:", COL 29, ANSWERED_BY(-),COL 78,"|", COL 1, "| Notes:", COL 10, NOTES1(-), COL 78, "|", COL 1, "|", COL 10, NOTES2(-), COL 78, "|", COL 1, "|", COL 10, NOTES3(-), COL 78, "|", COL 1, "+----------------------------------------------------------------------------+", NEW_PAGE ! ! END_REPORT ! PRINT " " PRINT " " PRINT " To start that lovely C3 printer printing you must" PRINT " hold down the key and press the key." PRINT " Then type in [NUL]" PRINT " " PRINT " Make sure your paper is lined up" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! END_PROCEDURE DELETE REP3_DOC; REDEFINE PROCEDURE REP3_DOC ! PRINT " " PRINT " To send something to that lovely C3 printer you must" PRINT " hold down the key and press the key." PRINT " Then type in the name of the printer you want it" PRINT " to go to. Such as: [DRAFT] or [FINAL2]" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! REPORT DOC ! AT TOP OF PAGE PRINT COL 1, "G-A", COL 6, "G-C", COL 16, "Action", COL 43, "Origin" , SKIP ! PRINT COL 1, G_A_NO(-), COL 6, G_C_NO(-), COL 16, ACTION1(-) , COL 27 , FORMAT (ORIGIN) USING X(50) ! END_REPORT ! ! PRINT " " PRINT " To start that lovely C3 printer printing you must" PRINT " hold down the key and press the key." PRINT " Then type in [NUL]" PRINT " " PRINT " Make sure your paper is lined up" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! ! END_PROCEDURE DELETE REP4_DOC; REDEFINE PROCEDURE REP4_DOC ! PRINT " " PRINT " To send something to that lovely C3 printer you must" PRINT " hold down the key and press the key." PRINT " Then type in the name of the printer you want it" PRINT " to go to. Such as: [DRAFT] or [FINAL2]" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! REPORT DOC ! AT TOP OF PAGE PRINT COL 1, "G-A", COL 6, "Action", COL 30, "Subject", COL 63, "Due" , COL 71, "Answered", SKIP ! PRINT COL 1, G_A_NO(-), COL 6, ACTION1(-), COL 14, FORMAT(SUBJECT1) USING X(45), COL 60, FORMAT (RESP_DUEA) USING NN/DD/YY , COL 70, FORMAT (ANSWERED_DATE) USING NN/DD/YY ! END_REPORT ! PRINT " " PRINT " To start that lovely C3 printer printing you must" PRINT " hold down the key and press the key." PRINT " Then type in [NUL]" PRINT " " PRINT " Make sure your paper is lined up" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! END_PROCEDURE DELETE REP5_DOC; REDEFINE PROCEDURE REP5_DOC ! DECLARE TIC USAGE DATE. TIC="NOW" DECLARE OFFSET PIC S99. OFFSET = 14 ! PRINT "Do you want to see documents due during this month?" IF *."Y or N" CONT "Y" THEN OFFSET = FN$MONTH (TIC) ELSE BEGIN PRINT "Do you want to see documents due last month?" IF *."Y or N" CONT "Y" THEN OFFSET = (FN$MONTH(TIC) - 1) ELSE BEGIN PRINT "Do you want to see documents due next month?" IF *."Y or N" CONT "Y" THEN OFFSET = (FN$MONTH(TIC) +1) END END IF OFFSET EQ 13 THEN OFFSET = 1 IF OFFSET EQ 0 THEN OFFSET = 12 ! PRINT " " PRINT " To send something to that lovely C3 printer you must" PRINT " hold down the key and press the key." PRINT " Then type in the name of the printer you want it" PRINT " to go to. Such as: [DRAFT] or [FINAL2]" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! REPORT DOC WITH FN$MONTH(DATE_DUE) EQ OFFSET ! AT TOP OF PAGE PRINT COL 1, "G-A", COL 7, "G-C", COL 15, "Action", COL 40, "Subject", COL 73 , "Due", SKIP ! PRINT COL 1, G_A_NO(-), COL 6, G_C_NO(-), COL 16 , ACTION1(-) , COL 25, FORMAT (SUBJECT1) USING X(40), COL 70, FORMAT (DATE_DUE) USING NN/DD/YY ! END_REPORT ! PRINT " " PRINT " To start that lovely C3 printer printing you must" PRINT " hold down the key and press the key." PRINT " Then type in [NUL]" PRINT " " PRINT " Make sure your paper is lined up" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! END_PROCEDURE DELETE REP6_DOC; REDEFINE PROCEDURE REP6_DOC ! DECLARE TIC USAGE DATE. TIC="NOW" DECLARE OFFSET PIC S99. OFFSET = 54 ! PRINT "Do you want to see documents due during this week?" IF *."Y or N" CONT "Y" THEN OFFSET = FN$WEEK (TIC) ELSE BEGIN PRINT "Do you want to see documents due last week?" IF *."Y or N" CONT "Y" THEN OFFSET = (FN$WEEK(TIC) - 1) ELSE BEGIN PRINT "Do you want to see documents due next week?" IF *."Y or N" CONT "Y" THEN OFFSET = (FN$WEEK(TIC) +1) END END IF OFFSET EQ 53 THEN OFFSET = 1 IF OFFSET EQ 0 THEN OFFSET = 52 ! PRINT " " PRINT " To send something to that lovely C3 printer you must" PRINT " hold down the key and press the key." PRINT " Then type in the name of the printer you want it" PRINT " to go to. Such as: [DRAFT] or [FINAL2]" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! REPORT DOC WITH FN$WEEK(DATE_DUE) EQ OFFSET ! AT TOP OF PAGE PRINT COL 1, "G-A", COL 7, "G-C", COL 13, "Action" , COL 40, "Subject", COL 74 , "Due" , SKIP ! PRINT COL 1 , G_A_NO(-) , COL 6 , G_C_NO(-) , COL 14 , ACTION1(-) , COL 23 , FORMAT (SUBJECT1) USING X(45) , COL 72 , FORMAT (DATE_DUE) USING NN/DD/YY ! END_REPORT ! PRINT " " PRINT " To start that lovely C3 printer printing you must" PRINT " hold down the key and press the key." PRINT " Then type in [NUL]" PRINT " " PRINT " Make sure your paper is lined up" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! END_PROCEDURE DELETE REP7_DOC; REDEFINE PROCEDURE REP7_DOC ! DECLARE TIC USAGE DATE. TIC="NOW" DECLARE OFFSET PIC S99. OFFSET = FN$MONTH (TIC) ! PRINT "Do you want to see documents due during this month?" IF *."Y or N" CONT "Y" THEN OFFSET = FN$MONTH (TIC) ELSE BEGIN PRINT "Do you want to see documents due last month?" IF *."Y or N" CONT "Y" THEN OFFSET = (FN$MONTH(TIC) - 1) ELSE BEGIN PRINT "Do you want to see documents due next month?" IF *."Y or N" CONT "Y" THEN OFFSET = (FN$MONTH(TIC) +1) END END IF OFFSET EQ 13 THEN OFFSET = 1 IF OFFSET EQ 0 THEN OFFSET = 12 ! PRINT " " PRINT " To send something to that lovely C3 printer you must" PRINT " hold down the key and press the key." PRINT " Then type in the name of the printer you want it" PRINT " to go to. Such as: [DRAFT] or [FINAL2]" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! REPORT DOC WITH FN$MONTH(RESP_DUEA) EQ OFFSET ! AT TOP OF PAGE PRINT COL 1, "G-A", COL 7, "G-C", COL 25, "Origin", COL 57, "Subject", SKIP ! PRINT COL 1, G_A_NO(-), COL 6, G_C_NO(-), COL 14, FORMAT (ORIGIN) USING X(27), COL 45, FORMAT (SUBJECT1) USING X(35) ! END_REPORT ! PRINT " " PRINT " To start that lovely C3 printer printing you must" PRINT " hold down the key and press the key." PRINT " Then type in [NUL]" PRINT " " PRINT " Make sure your paper is lined up" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! END_PROCEDURE DELETE REP8_DOC; REDEFINE PROCEDURE REP8_DOC ! DECLARE TIC USAGE DATE. TIC="NOW" DECLARE OFFSET PIC S99. OFFSET = FN$WEEK (TIC) ! PRINT "Do you want to see documents due during this week?" IF *."Y or N" CONT "Y" THEN OFFSET = FN$WEEK (TIC) ELSE BEGIN PRINT "Do you want to see documents due last week?" IF *."Y or N" CONT "Y" THEN OFFSET = (FN$WEEK(TIC) - 1) ELSE BEGIN PRINT "Do you want to see documents due next week?" IF *."Y or N" CONT "Y" THEN OFFSET = (FN$WEEK(TIC) +1) END END IF OFFSET EQ 53 THEN OFFSET = 1 IF OFFSET EQ 0 THEN OFFSET = 52 ! PRINT " " PRINT " To send something to that lovely C3 printer you must" PRINT " hold down the key and press the key." PRINT " Then type in the name of the printer you want it" PRINT " to go to. Such as: [DRAFT] or [FINAL2]" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! REPORT DOC WITH FN$WEEK(RESP_DUEA) EQ OFFSET ! AT TOP OF PAGE PRINT COL 1, "G-A", COL 7, "G-C", COL 25, "Origin", COL 57, "Subject", SKIP ! PRINT COL 1, G_A_NO(-), COL 6, G_C_NO(-), COL 14, FORMAT (ORIGIN) USING X(27), COL 45, FORMAT (SUBJECT1) USING X(35) ! END_REPORT ! PRINT " " PRINT " To start that lovely C3 printer printing you must" PRINT " hold down the key and press the key." PRINT " Then type in [NUL]" PRINT " " PRINT " Make sure your paper is lined up" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! END_PROCEDURE DELETE REPX_DOC; REDEFINE PROCEDURE REPX_DOC ! PRINT " " PRINT " To send something to that lovely C3 printer you must" PRINT " hold down the key and press the key." PRINT " Then type in the name of the printer you want it" PRINT " to go to. Such as: [DRAFT] or [FINAL2]" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! REPORT DOC ! AT TOP OF PAGE PRINT COL 1, "G-A", COL 6, "G-C", COL 16, "Action", COL 43, "Origin" , SKIP ! PRINT COL 1, G_A_NO(-), COL 6, G_C_NO(-), COL 16, (ACTION1 | ACTION2) USING T(7) , COL 27 , FORMAT (ORIGIN) USING X(50) ! END_REPORT ! ! PRINT " " PRINT " To start that lovely C3 printer printing you must" PRINT " hold down the key and press the key." PRINT " Then type in [NUL]" PRINT " " PRINT " Make sure your paper is lined up" PRINT " " IF *." to begin " EQ "ZZ" THEN PRINT "" ! ! END_PROCEDURE