java to rexx

New Message Reply Date view Thread view Subject view Author view Other groups

Subject: java to rexx
From: Tony Thigpen (tony@vse2pdf.com)
Date: Fri Nov 06 2009 - 12:54:00 EST 

I have been looking at the zCOBOL and zASM open source projects and was 
looking at how the zCOBOL could be ported to z/VSE. The 'trick' is the 
conversion of a JAVA based parser to REXX.

The parser actually takes individual COBOL statements and reformats them 
into simple HLASM statements where each COBOL statement generates one 
HLASM macro call. Then the output is run into HLASM where all the macro 
calls are expanded to 'standard' HLASM code.

I am not a JAVA person, but looking at the source for the translator, it 
looks like someone that was conversational in JAVA could quickly whip 
out a REXX version.

So, I am looking for someone that knows both JAVA and REXX and would be 
willing to whip up the initial REXX code for me.

Here is a sample of the output from the translator (some lines deleted):
*        IDENTIFICATION DIVISION.
          IDENTIFICATION DIVISION
*        PROGRAM-ID.    TESTBFP1.
          PROGRAM_ID TESTBFP1

*        77 HW      COMP PIC S9(4)  VALUE 1234.
       WS  77,HW,COMP,PIC,S9(4),VALUE,1234

*            IF BFP-SRT = 1234567
              IF BFP_SRT,=,1234567
*               PERFORM GOOD ELSE PERFORM BAD.
              PERFORM GOOD
              ELSE
              PERFORM BAD
              PERIOD
*            DISPLAY 'TESTBFP1 GOOD TESTS =' GOOD
              DISPLAY 'TESTBFP1 GOOD TESTS =',GOOD
*            STOP RUN.
              STOP RUN
              PERIOD
*        GOOD.
          LABEL GOOD
*            ADD 1 TO GOOD.
              ADD 1,TO,GOOD
              PERIOD
*        BAD.
          LABEL BAD
*            MOVE 16 TO RETURN-CODE
              MOVE 16,TO,RETURN_CODE
*            STOP RUN.
              STOP RUN
              PERIOD

Let me know off-list if you would be willing to help.

-- 

Tony Thigpen

New Message Reply Date view Thread view Subject view Author view Other groups

This archive was generated by hypermail 2b25 : Sat Nov 21 2009 - 13:20:06 EST