DataMuseum.dk

top - download

    Length: 5120 (0x1400)
    Types: TextFile
    Names: »PRINTPLL.PRG«

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

TextFile

*DESIGN NIF/ASD/SEPTEMBER 1985
*******************************************************************************
*
*PROCEDURE PRINTPLL CALLED FROM PFIL

GO TOP
SET TALK OFF
SET FORMAT TO PRINT
EJECT
STORE CHR(30)-CHR(31) TO MHEADW
@ 1,1 SAY MHEADW
SET FORMAT TO SCREEN
ERASE
STORE N TO SOTS
@ 10,10 SAY 'PLEASE ADJUST TO TOP OF FORM'
@ 12,10 SAY 'DO YOU WANT SOTKITS APPENDED (Y/N)? ' GET  SOTS
READ
@ 12,10 SAY 'PRINTING MODULE PARTSLIST (LONG FORM)'
SET FORMAT TO PRINT
SET MARGIN TO 1
STORE 63 TO RIGHT
*******************************************************************************
*OUTPUT REPORTHEADER

@  8,1 SAY 'DATE: '+DATO
@ 10,1 SAY '****************************************************************'
@ 11,1 SAY '**                                                            **'
@ 12,1 SAY '** MODULE LEVEL PARTSLIST (LONG FORM)                         **'
@ 13,1 SAY '**                                                            **'
@ 14,1 SAY '** UNIT: '+UNITNAME+'    CONFIGURATION_FILE: '+CONFIGNAME
@ 14,RIGHT SAY '**'
@ 15,1 SAY '**------------------------------------------------------------**'
@ 16,1 SAY '**                                                            **'
@ 17,1 SAY '** COMPONENTS CONTAINED IN FILE: '+OPERDBF
@ 17,RIGHT SAY '**'
@ 18,1 SAY '**                                                            **'
@ 19,1 SAY '****************************************************************'
@ 20,1 SAY PRINTCTR
*******************************************************************************
RELEASE RIGHT,MHEADW
   SET MARGIN TO 5
   EJECT
   STORE 40 TO ROWTRESH
   STORE PINIT TO PAGE
        *012345678901234567890123456789012345678901234567890123456789012345678
  STORE 'REF_DES---GEN_NAME----VALUE-------TOL---VOLT--' TO HEADER
STORE HEADER+'SPECIFICATION_CODE---------------PACKAGE--REMARK---------------';
TO HEADER
STORE LEN(HEADER)-29 TO RIGHT
   DO WHILE .NOT.EOF
      STORE 1 TO COLUMN
      @ 2,1 SAY HEAD1L USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 2,RIGHT SAY HEAD1R USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 3,1 SAY HEAD2L USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 3,RIGHT SAY HEAD2R USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 4,1 SAY HEAD3L USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
      @ 4,RIGHT SAY '                       PAGE '+STR(PAGE,2)
      STORE 6 TO ROW
      @ ROW,COLUMN SAY HEADER
      STORE ROW+2 TO ROW
      DO WHILE ROW<=ROWTRESH.AND..NOT.EOF
         STORE 1 TO COLUMN
         @ ROW,COLUMN SAY REF:DES USING 'XXXXXX'
         STORE 11 TO COLUMN
         @ ROW,COLUMN SAY GEN:NAME USING 'XXXXXXXXXX'
         STORE 23 TO COLUMN
         @ ROW,COLUMN SAY CVALUE USING 'XXXXXXXXX'
         STORE 34 TO COLUMN
         @ ROW,COLUMN SAY TOLERANCE USING 'XXXX'
         STORE 40 TO COLUMN
         @ ROW,COLUMN SAY RATED:VOLT USING 'XXXX'
         STORE 47 TO COLUMN
         @ ROW,COLUMN SAY SPEC:CODE USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
         STORE 80 TO COLUMN
         @ ROW,COLUMN SAY PACKAGE USING 'XXXXXXXX'
         STORE 89 TO COLUMN
         @ ROW,COLUMN SAY REM USING 'XXXXXXXXXXXXXXXXXXXX'
         STORE ROW+1 TO ROW
         SKIP
      ENDDO
      STORE ROW+2 TO ROW
      @ ROW,1 SAY BOTT1
      STORE ROW+1 TO ROW
      @ ROW,1 SAY BOTT2
      STORE ROW+1 TO ROW
      @ ROW,1 SAY BOTT3
      STORE PAGE+1 TO PAGE
   ENDDO
@ ROW+2,1 SAY '--------- END OF LIST -----------------------------------------;
-------------------------------------'
*******************************************************************************
*RETURN
SET FORMAT TO SCREEN

RELEASE ROWTRESH,ROW,COL,HEADER,PAGE
IF SOTS
   STORE OPERDBF TO MPLL
   STORE 'MISING SOT-FILES: ' TO MISSING
   GO TOP
   LOCATE FOR $(REF:CODE,1,3)='SOT'
   STORE @('.',OPERDBF) TO PLACE
   STORE $(OPERDBF,1,PLACE) TO MSOURCE
   RELEASE PLACE
   STORE 0 TO OLDNR
   DO WHILE #>OLDNR
      STORE # TO OLDNR
      IF $(REF:CODE,1,3)='SOT'
          STORE 'LISTING OF SELECT_ON_TEST-KIT: '+REF:CODE TO HEADING
         *CALL PRINTSOT
          SET EXACT ON
          STORE REF:CODE TO MSOT
          DELETE FOR REF:CODE=MSOT
          GO OLDNR
          STORE $(REF:CODE,4,2) TO MSOT
           IF RANK(MSOT)=RANK(' ').OR.RANK(MSOT)=RANK('0')
              STORE $(MSOT,2,1) TO MSOT
           ENDIF
           STORE MSOURCE-'S'-MSOT TO MSOTNAME
          *CHECK IF SOT FILE EXISTS, IF IT DOES NOT TELL IT AND PROCCED
           IF FILE(MSOTNAME)
              USE &MSOTNAME
              *INITIALIZE HEADER FOR PRINTSOT
              STORE T TO CALL
              SET FORMAT TO PRINT
              DO PRINTSOT
              SET FORMAT TO SCREEN
           ELSE
              STORE MISSING+MSOTNAME TO MISSING
           ENDIF
        ENDIF
        USE &MPLL
        LOCATE FOR $(REF:CODE,1,3)='SOT'.AND..NOT.*
   ENDDO
   IF '.'$MISSING
      SET FORMAT TO PRINT
      EJECT
      @ 10,1 SAY MISSING
   ENDIF
   RECALL ALL
ENDIF
RELEASE ROW,COLUMN,PAGE,ROWTRESH,HEADER,HEADING,RIGHT,OLDNR
RETURN


«eof»