Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations sizbut on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Tool to convert PL1 Programs to COBOL Programs

Status
Not open for further replies.

Guest_imported

New member
Jan 1, 1970
0
Do we have any Tool to convert PL1 Language to Cobol Language
 
Hi,

look at
They convert any source into any other source. They have 7 people full time working on all kinds of research and development on automated source maintenance for at least the last 5 years that I follow their activities and are therefore much bigger on this than even the biggest softwarehouses. For example: Cap Gemini Ernst & Young has only 2 people for this kind of research.

Regards,

Crox
 
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.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top