DataMuseum.dk

top - download

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

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

TextFile

*DESIGN NIF/ASD/SEPTEMBER 1985
*******************************************************************************
*
*PROCEDURE PRINPPL1 CALLED FROM PFIL
STORE CHR(31) TO PPLWIDTH
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 ' ' 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 PREFERRED 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 '** PREFERRED PARTSLIST                                        **'
@ 13,1 SAY '**                                                            **'
@ 14,1 SAY '** INFORMATION CONTAINED IN FILE: '+OPERDBF
@ 14,RIGHT SAY '**'
@ 15,1 SAY '**                                                            **'
@ 16,1 SAY '**                                                            **'
@ 17,1 SAY '****************************************************************'
*******************************************************************************


   EJECT
   STORE CHR(29) TO PPLWIDTH
   @ 1,1 SAY PPLWIDTH
   STORE 40 TO ROWTRESH
   STORE 1 TO PAGE
        *012345678901234567890123456789012345678901234567890123456789012345678
  STORE 'REFCODE-GEN_NAME----VALUE-------TOL---VOLT--' TO HEADER
STORE HEADER+'SPECIFICATION_CODE--------------ISS-PACKAGE-MANUF-AG.--ATT-MAIN_;
CHARACTERISTICS----CPP---GENERAL_REMARK-----' TO HEADER
   DO WHILE .NOT.EOF
      STORE 1 TO COLUMN
      STORE 4 TO ROW
      @ ROW,108 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:CODE USING 'XXXXXX'
         STORE 9 TO COLUMN
         @ ROW,COLUMN SAY GEN:NAME USING 'XXXXXXXXXX'
         STORE 21 TO COLUMN
         @ ROW,COLUMN SAY CVALUE USING 'XXXXXXXXX'
         STORE 32 TO COLUMN
         @ ROW,COLUMN SAY TOLERANCE USING 'XXXX'
         STORE 38 TO COLUMN
         @ ROW,COLUMN SAY RATED:VOLT USING 'XXXX'
         STORE 45 TO COLUMN
         @ ROW,COLUMN SAY SPEC:CODE USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
         STORE 77 TO COLUMN
         @ ROW,COLUMN SAY ISSUE USING 'XXX'
         STORE 81 TO COLUMN
         @ ROW,COLUMN SAY PACKAGE USING 'XXXXXXXX'
         STORE 89 TO COLUMN
         @ ROW,COLUMN SAY MANUF USING 'XXXXX'
         STORE 95 TO COLUMN
         @ ROW,COLUMN SAY AGENCY USING 'XXX'
         STORE 101 TO COLUMN
         @ ROW,COLUMN SAY ATTRITION USING 'X'
         STORE 104 TO COLUMN
         @ ROW,COLUMN SAY MAIN:CHAR USING 'XXXXXXXXXXXXXXXXXXXX'
         STORE 128 TO COLUMN
         @ ROW,COLUMN SAY CPP:NO USING 'XXXX'
         STORE 134 TO COLUMN
         @ ROW,COLUMN SAY GEN:REM USING 'XXXXXXXXXXXXXXXXXXXX'
         STORE ROW+2 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,PPLWIDTH
RETURN
«eof»