June 6th, 2007, 7:41 pm
QuoteThe idea being that if you can do C++, nothing will frighten youSuppose not. On the other hand, there is only one language that scared me more .... COBOLQuote IDENTIFICATION DIVISION. PROGRAM-ID. RPVEX. AUTHOR. DMP. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. INPUT-OUTPUT SECTION. FILE-CONTROL. * SELECT OPTIONAL PUPILS ASSIGN TO RANDOM "CUP.DAT" ORGANIZATION IS INDEXED ACCESS IS DYNAMIC RECORD KEY IS PUP-CLV FILE STATUS IS STATUS-ISM. SELECT FILE-PRINTER ASSIGN TO PRINTER "CUPILS.RPV" FILE STATUS IS STATUS-ISM. DATA DIVISION. FILE SECTION. FD PUPILS. * 01 PUP-REGISTRO. 03 PUP-CLV. 05 PUP-ID PIC 9(9). 03 PUP-DATOS. 05 PUP-NAME PIC X(50). 05 PUP-PHONE PIC X(20). 05 PUP-ZIP-CODE PIC 9(9). FD FILE-PRINTER. 01 LINE-PRT PIC X(120). WORKING-STORAGE SECTION. 77 STATUS-ISM PIC XX VALUE SPACES. 77 XXX PIC XX VALUE SPACES. 77 CONTA PIC 9(8)9 VALUE ZEROS. 77 CONTAZ PIC Z(8)9 VALUE ZEROS. 77 CONTAT PIC 9(8)9 VALUE ZEROS. 77 CONTATZ PIC Z(8)9 VALUE ZEROS. ... PROCEDURE DIVISION. DECLARATIVES. C-E SECTION. USE AFTER STANDARD ERROR PROCEDURE ON PUPILS FILE-PRINTER. END DECLARATIVES. PRIMER SECTION. MAIN-PROGRAM. * OPEN INPUT PUPILS. OPEN OUTPUT FILE-PRINTER. * WRITE LINE-PRT FROM 'REPORT_TITLE=Test with RM-COBOL 85'. WRITE LINE-PRT FROM '$1=400'. WRITE LINE-PRT FROM '$2=1500'. WRITE LINE-PRT FROM '$3=5000'. PERFORM UNTIL STATUS-ISM NOT = '00' READ PUPILS NEXT IF STATUS-ISM = '00' MOVE PUP-ID TO PUP-ID-PRT MOVE PUP-NAME TO PUP-NAME-PRT MOVE PUP-PHONE TO PUP-PHONE-PRT MOVE PUP-ZIP-CODE TO PUP-ZIP-CODE-PRT WRITE LINE-PRT FROM RPV-LINE END-IF END-PERFORM. CLOSE PUPILS FILE-PRINTER. CALL 'SYSTEM' USING 'RPV.EXE CUPILS.RPV /E'. STOP RUN.
Last edited by
Cuchulainn on June 5th, 2007, 10:00 pm, edited 1 time in total.