000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. CHANGESIGNS.
000030*AUTHOR. GUYNES.
000040
000050* THIS PROGRAM MUST BE USED ON YOUR PC TO CONVERT THE SIGNS OF
000060* PC FORMATTED DATA TO MAINFRAME FORMAT BEFORE YOU ADD IT TO
000061* YOUR MAINFRAME EXPRESS PROJECT.
000070
000080
000090
000100
000110 ENVIRONMENT DIVISION.
000120 INPUT-OUTPUT SECTION.
000130 FILE-CONTROL.
000140     SELECT PC-FILE ASSIGN TO
000150     'MATCHVEN.DAT'
000160             ORGANIZATION IS LINE SEQUENTIAL.
000170     SELECT MAINFRAME-FILE ASSIGN TO
000180     'VENDMFX.DAT'
000190             ORGANIZATION IS LINE SEQUENTIAL.
000200
000210 DATA DIVISION.
000220 FILE SECTION.
000230
000240 FD  PC-FILE.
000250 01  PUR-INPUT-REC           PIC X(80).
000260
000270 FD  MAINFRAME-FILE.
000280 01  PRT-OUT                 PIC X(80).
000290
000300 WORKING-STORAGE SECTION.
000310 01  WORKING-VARIABLES.
000320     05  EOF-PUR-WS          PIC XXX         VALUE 'NO'.
000330
000340*ADJUST THE FOLLOWING FOR YOUR DATA **********
000350 01  INPUT-REC.
000360     05  FRONT-IN            PIC X(36).
000370     05  CHARACTER-IN        PIC X.
000380     05  BACK-IN             PIC X(43).
000390 01  OUTPUT-REC.
000400     05  FRONT-OUT            PIC X(36).
000410     05  CHARACTER-OUT        PIC X.
000420     05  BACK-OUT             PIC X(43).
000430**********************************************
000440
000450 PROCEDURE DIVISION.
000460 100-MAINLINE SECTION.
000470     PERFORM 200-OPEN.
000480     PERFORM 300-PROCESS UNTIL EOF-PUR-WS = 'YES'.
000490     PERFORM 900-CLOSE.
000500     STOP RUN.
000510 200-OPEN SECTION.
000520     OPEN INPUT PC-FILE OUTPUT MAINFRAME-FILE.
000530     PERFORM 250-READ.
000540 250-READ SECTION.
000550     READ PC-FILE INTO INPUT-REC
000560         AT END MOVE 'YES' TO EOF-PUR-WS
000570     END-READ.
000580 300-PROCESS SECTION.
000590     MOVE FRONT-IN TO FRONT-OUT.
000600     MOVE BACK-IN TO BACK-OUT.
000610
000620     EVALUATE CHARACTER-IN
000630     WHEN 'p' MOVE '}' TO CHARACTER-OUT
000640     WHEN 'q' MOVE 'J' TO CHARACTER-OUT
000650     WHEN 'r' MOVE 'K' TO CHARACTER-OUT
000660     WHEN 's' MOVE 'L' TO CHARACTER-OUT
000670     WHEN 't' MOVE 'M' TO CHARACTER-OUT
000680     WHEN 'u' MOVE 'N' TO CHARACTER-OUT
000690     WHEN 'v' MOVE 'O' TO CHARACTER-OUT
000700     WHEN 'w' MOVE 'P' TO CHARACTER-OUT
000710     WHEN 'x' MOVE 'Q' TO CHARACTER-OUT
000720     WHEN 'y' MOVE 'R' TO CHARACTER-OUT
000730     WHEN OTHER MOVE CHARACTER-IN TO CHARACTER-OUT
000740     END-EVALUATE.
000750
000760     WRITE PRT-OUT  FROM  OUTPUT-REC.
000770     PERFORM 250-READ.
000780
000790 900-CLOSE SECTION.
000800     CLOSE PC-FILE MAINFRAME-FILE.
000810******************************************************************
000820