1 ******************************************************************* 2 **================================================================= 3 ** Ce programme teste le module VIRTUAL-PRINTER 4 ** 5 ** Auteurs: Colin Duquesnoy, Thomas Bertels 6 ** Date: Mai 2013 7 ******************************************************************* 8 IDENTIFICATION DIVISION. 9 ************************************** 10 PROGRAM-ID. TEST-PRINTER. 11 ** 12 ENVIRONMENT DIVISION. 13 ************************************** 14 ** 15 INPUT-OUTPUT SECTION. 16 **-*-*-*-*-*-*-*-*-*-*-*-*-* 17 ** 18 DATA DIVISION. 19 ************************************** 20 FILE SECTION. 21 **-*-*-*-*-*-*-*-*-*-*-*-*-* 22 ** 23 WORKING-STORAGE SECTION. 24 **-*-*-*-*-*-*-*-*-*-*-*-*-* 25 01 PRINTER-PARAM. 26 02 PA-RESET PIC X VALUE "N" . 27 02 PA-BUFFER PIC X(80) VALUE SPACES . 28 02 PA-WHEN PIC X(6) VALUE "AFTER" . 29 02 PA-WHAT PIC X(5) VALUE "LINES" . 30 02 PA-HOWMANY PIC 99 VALUE 1 . 31 01 BUF-NB-LIGNES-PAR-PAGE PIC 99 VALUE 10. 32 ** 33 PROCEDURE DIVISION. 34 ************************************** 35 MAIN-PROCEDURE. 36 DISPLAY "Proj UF31: Test virtual printer" 37 38 DISPLAY "Combien de lignes par pages desirez-vous ?" 39 ACCEPT BUF-NB-LIGNES-PAR-PAGE 40 41 MOVE "O" TO PA-RESET 42 CALL "VIRTUAL-PRINTER" USING PRINTER-PARAM 43 44 MOVE "Bonjour" TO PA-BUFFER 45 CALL "VIRTUAL-PRINTER" USING PRINTER-PARAM 46 47 MOVE "La vie est dure et pleine de confiture" to PA-BUFFER 48 MOVE "LINES" TO PA-WHAT 49 MOVE "BEFORE" TO PA-WHEN 50 MOVE 5 TO PA-HOWMANY 51 CALL "VIRTUAL-PRINTER" USING PRINTER-PARAM 52 53 MOVE "Bonjour" TO PA-BUFFER 54 MOVE "PAGE" TO PA-WHAT 55 MOVE "BEFORE" TO PA-WHEN 56 CALL "VIRTUAL-PRINTER" USING PRINTER-PARAM 57 58 MOVE "Bye bye" TO PA-BUFFER 59 CALL "VIRTUAL-PRINTER" USING PRINTER-PARAM 60 61 DISPLAY "End" 62 STOP RUN. 63 HELLO-WORLD. 64 DISPLAY "Hello World!!". 65 END PROGRAM TEST-PRINTER. 66