Check out Intertec America this is an example of the work we've done. Its done through automation:
INCIDENTLY, we use the ADPAC product (system vision and SVCommands)
write me @
ttuomey@intertecamerica.com
PL/1 to COBOL
PL/1 PROGRAM
SBACS01: PROC OPTIONS (MAIN);
/* PRINT AUDIT REPORT:
DCL CARDIN FILE RECORD INPUT SEZL ENV (REC SIZE (80))
DCL 1 HEADER1,
3 FIL1 CHAR (14) INIT ('LEDGER NO '),
. . .
. . .
IF RPT_LEDG_NO=CARDIN_ID
THEN DO;
WRITE FILE (AUDITRPT) FROM (HEADER1);
END
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
CONVERTED COBOL.
000010 ID DIVISION.
000020 PROGRAM-ID SBAC01.
000030 AUTHOR.
000040 REMARKS.
000050 PRINT AUDIT REPORT.
000060 ENVIRONMENT DIVISION.
000090 CONFIGURATION SECTION.
000120 FILE-CONTROL.
000130 SELECT CARDIN ASSIGN TO DA-S-CARDIN.
000130 SELECT AUDRPT ASSIGN TO DA-S-AUDRPT.
000140 INPUT-OUTPUT SECTION.
000150 DATA DIVISION.
000160 FILE SECTION.
000170 FD CARDIN.
000180 RECORDING MODE IS F
000200 01 CARDIN PIC X(80).
. . .
000270 WORKING-STORAGE SECTION.
000280 01 HEADER1
000290 03 FIL1 PIC X(14) VALUE 'LEDGER NO '
000300 03 REPT-LEDGE-NO PIC ZZ VALUE 0.
000410 PROCEDURE DIVISION.
. . .
000850 IF CARD-KIND NOT = AUDIT
000860 THEN PERFOM
000870 MOVE CARDIN-ID TO RPT-LEDGE-NO
000880 WRITE HEADER1
000890 END PERFORM.