Re: is it possible?

As a matter of pure nosy curiosity, why are using Perl for this project?

Since you are refactoring IBM Basic Assembler, I suspect that you are running on a zOS system. That being the case, I would have turned to REXX, as a 'native' solution, rather than Perl. (Never mind that I'd be doing it inside the ISPF editor and not get involved with a one-off custom conversion tool in the first place....)

REXX (and EXEC2) were written in and for the IBM ecosystem (MVS and VM370/CMS). Perl is cross-ported from the UNIX world. There are different underlying assumptions between the two operating environments, and that may make REXX a better language for the job. Certainly the debugging and performance tools provided by MVS will be a better fit to REXX code than code written in Perl.

----
I Go Back to Sleep, Now.

OGB

Comment on Re: is it possible?

Replies are listed 'Best First'.
Re^2: is it possible? by suno (Acolyte) on Aug 23, 2012 at 04:55 UTC
Hi PerlMonks!.thanks for the help.. but still i am struggling with this logic... so i kind of trying with my own logic... what i am doing here is, as soon as i encounter 'EX R1,ROUTINE#2' instruction, whatever label(ROUTINE#2)it is pointing to,i am storing that label and the next line to a separate file..that is i am storing 'ROUTINE#2 ST R2,VAR1' to a an intermediate file.then parse the code from the begining.when 'EX R1,ROUTINE#2' is reached, goto the intermediate file and retreive the value corresponding to ''ROUTINE#2'and replace it with the EX statement... i hope this works..i know this is lengthy process..is there any other way i can do it? here i have reached till storing values to the intermediate values... need to do the rest....	[reply]

Replies are listed 'Best First'.

Re^2: is it possible?
by suno (Acolyte) on Aug 23, 2012 at 04:55 UTC

Hi PerlMonks!.thanks for the help.. but still i am struggling with this logic... so i kind of trying with my own logic... what i am doing here is, as soon as i encounter 'EX R1,ROUTINE#2' instruction, whatever label(ROUTINE#2)it is pointing to,i am storing that label and the next line to a separate file..that is i am storing 'ROUTINE#2 ST R2,VAR1' to a an intermediate file.then parse the code from the begining.when 'EX R1,ROUTINE#2' is reached, goto the intermediate file and retreive the value corresponding to ''ROUTINE#2'and replace it with the EX statement... i hope this works..i know this is lengthy process..is there any other way i can do it? here i have reached till storing values to the intermediate values... need to do the rest....

[reply]

In Section Seekers of Perl Wisdom