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 4201234A call 43 "VIRTUAL-PRINTER" using PRINTER-PARAM 44 45 MOVE "Bonjour" TO PA-BUFFER 4601234A call 47 "VIRTUAL-PRINTER" using PRINTER-PARAM 48 49 MOVE "La vie est dure et pleine de confiture" to PA-BUFFER 50 MOVE "LINES" TO PA-WHAT 51 MOVE "BEFORE" TO PA-WHEN 52 MOVE 5 TO PA-HOWMANY 5301234A call 54 "VIRTUAL-PRINTER" 55 using 56 PRINTER-PARAM 57 58 MOVE "Bonjour" TO PA-BUFFER 59 MOVE "PAGE" TO PA-WHAT 60 MOVE "BEFORE" TO PA-WHEN 6101234A call 62 "VIRTUAL-PRINTER" using PRINTER-PARAM 63 64 MOVE "Bye bye" TO PA-BUFFER 6501234A call 66 "VIRTUAL-PRINTER" using PRINTER-PARAM 67 68 DISPLAY "End" 69 STOP RUN. 70 HELLO-WORLD. 71 DISPLAY "Hello World!!". 72 END PROGRAM TEST-PRINTER. 73