DataMuseum.dk

top - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »PRINTPLS.PRG«

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

TextFile

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

GO TOP
SET TALK OFF
SET FORMAT TO PRINT
EJECT
SET FORMAT TO SCREEN
ERASE
STORE ' ' TO DUMMY
@ 10,10 SAY 'PLEASE ADJUST TO TOP OF FORM'
@ 12,10 SAY 'RETURN TO CONTINUE ' GET  DUMMY PICTURE 'X'
READ
RELEASE DUMMY
@ 12,10 SAY 'PRINTING MODULE PARTSLIST (SHORT FORM)'
SET FORMAT TO PRINT
SET MARGIN TO 5
STORE 63 TO RIGHT
*******************************************************************************
*OUTPUT REPORTHEADER
@ 10,1 SAY '****************************************************************'
@ 11,1 SAY '**                                                            **'
@ 12,1 SAY '** MODULE LEVEL PARTSLIST (SHORT 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 '****ONLY TO BE USED FOR CONTROL PURPOSE*************************'

*******************************************************************************


   EJECT
   STORE 40 TO ROWTRESH
   STORE 1 TO PAGE
        *012345678901234567890123456789012345678901234567890123456789012345678
  STORE 'REF_DES---REF_CODE--VALUE----------TOL---VOLT--REMARK---------------';
TO HEADER
   DO WHILE .NOT.EOF
      STORE 1 TO COLUMN
      STORE 4 TO ROW
      @ ROW,54 SAY 'PAGE '+STR(PAGE,2)
      STORE ROW+2 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 REF:CODE USING 'XXXXXX'
         STORE 21 TO COLUMN
         @ ROW,COLUMN SAY NVALUE USING '#########.####'
         STORE 36 TO COLUMN
         @ ROW,COLUMN SAY TOLERANCE USING 'XXXX'
         STORE 42 TO COLUMN
         @ ROW,COLUMN SAY RATED:VOLT USING 'XXXX'
         STORE 48 TO COLUMN
         @ ROW,COLUMN SAY REM USING 'XXXXXXXXXXXXXXXXXXXX'
         STORE ROW+1 TO ROW
         SKIP
      ENDDO
      STORE PAGE+1 TO PAGE
   ENDDO
@ ROW+2,1 SAY '--------- END OF LIST -----------------------------------------;
----'
*******************************************************************************
*RETURN
RELEASE ROW,COLUMN,PAGE,ROWTRESH,HEADER,RIGHT
RETURN
«eof»