* PROGRAM ID : MASTERUP
* PROG NAME : MASTER FILE UPDATE AND TRANSACTION MAINTENAN
* AUTHORS : Martin O'Sullivan
* DATE : JUNE 1998
* DATE MODIFIED : JANUARY 1999
* INSTALLATION : LIMERICK INSTITUTE OF TECHNOLOGY
****************************************************************
*** INDICATORS = 03 EXIT
*** 99 CHAIN
*** 12 CANCEL
****************************************************************
FMASTERUPO E 10 PRINTER
FPARTMSTLUF E K DISK
FTRNFIL O E K DISK
FPRTUPD CF E WORKSTN
****************************************************************
* MAIN CODE
****************************************************************
* WRITE HEADING AND FOOTING + PROMPT FOR CUST NO.
C EXSR HDR
C *IN99 CASEQ'0' HEAD1
C ENDCS
C EXFMTPROMPT
* MAIN LOOP
C *IN03 DOWEQ'0'
C PART CHAINMSTREC 99
C *IN99 CASEQ'0' NXTSCN
C ENDCS
C *IN03 IFEQ '0'
C *IN99 CASEQ'0' HEAD1
C ENDCS
C EXFMTPROMPT
C ENDIF
C ENDDO
C EXSR FOOT
C MOVE '1' *INLR
************************************************************
* SUBROUTINE - HEAD1
* PURPOSE - TO DISPLAY HEADER AND FOOTER SCREEN
************************************************************
C HEAD1 BEGSR
C WRITEFOOT1
C WRITESCRHDG
C ENDSR
************************************************************
* SUBROUTINE - HEAD2
* PURPOSE - TO DISPLAY HEADER AND FOOTER SCREEN
* WITH CANCEL OPTION F12
************************************************************
C HEAD2 BEGSR
C WRITEFOOT2
C WRITESCRHDG
C ENDSR
C*****************************************************************
C* SUBROUTINE: HDR
C* PURPOSE: HEADER LINES
C*****************************************************************
C HDR BEGSR
C WRITEHEADER
C WRITECOLHDG
C ENDSR
C*****************************************************************
C* SUBROUTINE: PG
C* PURPOSE: POSSIBLE NEW PAGE
C*****************************************************************
C PG BEGSR
C *IN10 IFEQ '1'
C EXSR HDR
C SETOF 10
C ENDIF
C ENDSR
C*****************************************************************
C* SUBROUTINE: FOOT
C* PURPOSE: WRITE FOOTING LINES
C*****************************************************************
C FOOT BEGSR
C WRITEFOOTER
C ENDSR
C*****************************************************************
C* SUBROUTINE - NXTSCN
C* PURPOSE - TO UPDATE MASTER AND WRITE NEW TRANSACTION RECOR
************************************************************
C NXTSCN BEGSR
C EXSR HEAD2
C EXFMTTRNFMT
C *IN03 IFEQ '0'
C *IN12 ANDEQ'0'
C ADD QTYISS ISSUE
C ADD QTYREC RECPT
C ADD QTYREC ONHAND
C SUB QTYISS ONHAND
C Z-ADDUDATE DTLUPD
C Z-ADDUDATE DATE
C UPDATMSTREC
C WRITETRNREC
C WRITEDETAIL
C EXSR PG
C Z-ADD*ZERO QTYISS
C Z-ADD*ZERO QTYREC
C ELSE
C EXCPTRLS
C ENDIF
C ENDSR
OMSTREC E RLS