DataMuseum.dk

top - download

    Length: 3584 (0xe00)
    Types: TextFile
    Names: »PRINTSOT.PRG«

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

TextFile

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

GO TOP
IF .NOT.CALL
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 SOT-LIST (LONG FORM)'
SET FORMAT TO PRINT
SET MARGIN TO 5
STORE 63 TO RIGHT
*******************************************************************************
*OUTPUT REPORTHEADER
@ 10,1 SAY '****************************************************************'
@ 11,1 SAY '**                                                            **'
@ 12,1 SAY '** LISTING OF SELECT_ON_TEST KIT (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 '****************************************************************'
EJECT
ELSE
   EJECT
   @ 1,1 SAY HEADING
ENDIF
*******************************************************************************


   STORE 40 TO ROWTRESH
   STORE 1 TO PAGE
        *012345678901234567890123456789012345678901234567890123456789012345678
  STORE 'REF_DES---GEN_NAME----VALUE-------TOL---VOLT--' TO HEADER
STORE HEADER+'SPECIFICATION_CODE---------------PACKAGE--REMARK---------------';
TO HEADER
   DO WHILE .NOT.EOF
      STORE 1 TO COLUMN
      STORE 4 TO ROW
      @ ROW,89 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 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 PAGE+1 TO PAGE
   ENDDO
IF .NOT.CALL
@ ROW+2,1 SAY '--------- END OF LIST -----------------------------------------;
-------------------------------------'
*******************************************************************************
*RETURN
RELEASE ROW,COLUMN,PAGE,ROWTRESH,HEADER,RIGHT
RETURN
«eof»