DataMuseum.dk

top - metrics - download

    Length: 5504 (0x1580)
    Types: TextFile
    Names: »PFIL.PRG«

└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
    └─⟦this⟧ »PFIL.PRG« 

TextFile

*******************************************************************************
*DESIGN  NIF/ASD/SEPTEMBER 1985
*******************************************************************************
*
* TASK PFIL
* FUNCTION: OUTPUTS MENU OF PRINT ROUTINES AND PROVIDES THE LINK TO SUBROUTINES
*           PRINTING THE SELECTED FILES.
*******************************************************************************



ERASE
STORE '                                   ' TO HEAD1L
STORE HEAD1L TO HEAD2L
STORE HEAD1L TO HEAD3L
STORE HEAD1L TO BOTT1
STORE HEAD1L TO BOTT2
STORE HEAD1L TO BOTT3
STORE '                              ' TO HEAD1R
STORE HEAD1R TO HEAD2R
STORE 1 TO PINIT
STORE ' ' TO MESSAGE
STORE CHR(30)-CHR(27)-CHR(48)-CHR(27)-CHR(73) TO PRINTCTR
STORE 'OPT' TO MPCMD
DO WHILE MPCMD<>'RET'
   SET FORMAT TO PRNMENU
   READ

   DO CASE
      CASE MPCMD='PPL'
           STORE 'PPL_'-PPLNAME-'.DBF' TO OPERDBF
           IF FILE(OPERDBF)
              USE &OPERDBF
              DO PRINPPL1
              STORE $(OPERDBF,1,8)+' HAS BEEN PRINTED' TO MESSAGE
           ELSE
              STORE 'FILE DOES NOT EXIST' TO MESSAGE
           ENDIF
      CASE MPCMD='DPL'
           STORE 'DPL_'-CONFIGNAME TO OPERDBF
           IF FILE(OPERDBF)
              USE &OPERDBF INDEX &OPERDBF
              DO PRINDPL1
              STORE $(OPERDBF,1,8)-' HAS BEEN PRINTED' TO MESSAGE
           ELSE
              STORE 'FILE DOES NOT EXIST' TO MESSAGE
           ENDIF
      CASE MPCMD='SUM'
           STORE 'SUM_'-CONFIGNAME TO OPERDBF
           IF FILE(OPERDBF)
              USE &OPERDBF INDEX &OPERDBF
              DO PRINSUM 
              STORE $(OPERDBF,1,8)-' HAS BEEN PRINTED' TO MESSAGE
           ELSE
              STORE 'FILE DOES NOT EXIST' TO MESSAGE
           ENDIF
      CASE MPCMD='KIT'
           STORE 'KIT' TO MEXTEN
           DO GETSOURC
           IF FILE(OPERDBF)
              USE &OPERDBF
              DO PRINTKIT
              STORE 'KITLIST HAS BEEN PRINTED' TO MESSAGE
           ELSE
              STORE 'FILE DOES NOT EXIST' TO MESSAGE
           ENDIF
      CASE MPCMD='PLL'
           STORE 'PLL' TO MEXTEN
           DO GETSOURC
           IF FILE(OPERDBF)
              USE &OPERDBF
              DO PRINTPLL
              STORE 'MODULE PARTSLIST (LONG FORM) HAS BEEN PRINTED' TO MESSAGE
           ELSE
              STORE 'FILE DOES NOT EXIST' TO MESSAGE
           ENDIF
      CASE MPCMD='PLS'
           STORE 'PLS' TO MEXTEN
           DO GETSOURC
           IF FILE(OPERDBF)
              USE &OPERDBF
              DO PRINTPLS
              STORE 'MODULE PARTSLIST (SHORT FORM) HAS BEEN PRINTED' TO MESSAGE
           ELSE
              STORE 'FILE DOES NOT EXIST' TO MESSAGE
           ENDIF
      CASE MPCMD='CON'
           STORE 'CON_'-CONFIGNAME-'.DBF' TO OPERDBF
           IF FILE(OPERDBF)
              USE &OPERDBF
*              DO PRINTCON
              STORE 'NOT YET IMPLEMENTED' TO MESSAGE
           ELSE
              STORE 'FILE DOES NOT EXIST' TO MESSAGE
           ENDIF
      CASE MPCMD='CUS'
           STORE 'CUS_'-CONFIGNAME-'.DBF' TO OPERDBF
           IF FILE(OPERDBF)
              USE &OPERDBF
 *             DO PRINTCUS
              STORE 'NOT YET IMPLEMENTED' TO MESSAGE
           ELSE
              STORE 'FILE DOES NOT EXIST' TO MESSAGE
           ENDIF
      CASE MPCMD='SOT'
           SET FORMAT TO SCREEN
           ERASE

           *ASK USER TO DEFINE THE MODULEFILEPOINTER&SOT NO.

           STORE '  ' TO MSOT
           STORE 'FILE' TO MSOURCE
           @ 10,10 SAY 'PLEASE ENTER POINTER TO MODULE_FILE:'
           @ 10,49 SAY  CONFIGNAME-'_'
           @ 10,54 GET MSOURCE PICTURE 'AAAA'
           @ 12,10 SAY 'PLEASE ENTER SOT-KIT No.: ' GET MSOT PICTURE '##'


           READ
           STORE !(MSOURCE) TO MSOURCE

          *CHECK IF SOT FILE EXISTS, RETURN IF IT DOES NOT
           IF RANK(MSOT)=RANK(' ').OR.RANK(MSOT)=RANK('0')
              STORE $(MSOT,2,1) TO MSOT
           ENDIF
           STORE CONFIGNAME-MSOURCE-'.S'-MSOT TO MSOTNAME
           IF FILE(MSOTNAME)
              CLEAR GETS
              STORE F TO NEW
              @ 14,10 SAY 'HAS SOT-KIT BEEN UPDATED SINCE 86/02/25 ?  ' GET NEW
              READ
              IF .NOT.NEW
                 USE PLL_STRU
                 COPY STRU TO SOTPLL
                 USE SOTPLL
                 APPEND FROM &MSOTNAME
                 REPLACE ALL REF:DES WITH 'SOT'-MSOT
                 STORE 'PLL' TO MDBASE
                 *INITIALIZE OPERDBF FOR COMPLETE
                 STORE 'SOTPLL.DBF' TO OPERDBF
                 DO COMPLETE
                 DO CONVERT
                 USE SOTPLL
              ELSE
                 USE &MSOTNAME
              ENDIF
              *INITIALIZE OPERDBF FOR PRINTSOT
              STORE MSOTNAME TO OPERDBF
              STORE F TO CALL
              DO PRINTSOT
              STORE 'SOT FILE HAS BEEN PRINTED' TO MESSAGE
           ELSE
              STORE 'FILE DOES NOT EXIST' TO STATUS
           ENDIF
           RELEASE NEW
      CASE MPCMD='OPT'
           DO PRINTOPT
      OTHERWISE
           STORE 'INVALID COMMAND' TO MESSAGE
    ENDCASE
ENDDO
RELEASE PINIT
RELEASE ALL LIKE BOTT*
RELEASE ALL LIKE HEAD*
RELEASE ALL LIKE M*
STORE 'READY' TO STATUS
USE
RETURN

«eof»