Compile a RPG36 source member

2550 pts.
Tags:
AS 400
RPG
I'm looking for ideas on what else to try. We stopped changing the programs still running in the System 36 environment. We're finally eliminating that, but a few program mods would be useful during conversion. Of course, the method I remember for compiling fails now. The old method was to do OVRDBF on files (OVRDBF ABXMAS AB.MAS) and run an interactive CRTRPGPGM. I get many errors - mostly relating to files and copy-books. So please toss me an idea for how else to compile a RPG36 source member. No need to fully solve this - it'd be great to merely move forward.


Software/Hardware used:
as400
1

Answer Wiki

Thanks. We'll let you know when a new response is added.

Have you tried using the convert source command CVTRPGSRC ? It might be a long shot, never tried it on a S/36 piece of code, but worked for some RPG III code with a tweak or two.

Discuss This Question: 3  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.
  • TheRealRaven
    Can you provide actual example code? E.g., a trivial program that references QIWS/QCUSTCDT and that exhibits the error would be useful. Hard to comment on errors without program code and actual error messages (including message IDs).
    34,360 pointsBadges:
    report
  • aceofdelts

    Ooh ... movement  ...  thanks

    I did the conversion to ILE and a lot less errors

    The /COPY are still failing (I verified that the library is in my libl)

    The key location spec is failing

    All other errors might fall in line if I can fix these 2 issues

    Here's the main code that's problematic

    FWORKSTN   CP   F   55        WORKSTN             
    F                                     FMTS(SCN910)
    FTSWINBL2  IF   F  256     9AIDISK    KEYLOC(EXTK)
    FTSWFAI    UF A F  224     7AIDISK    KEYLOC(1)   
    FREPORT    O    F  132        PRINTER OFLIND(*INOF)

    and

    ITSWFAI    NS  02      
    I/COPY COPY/TSW,@ITSWFAI
    I*                     
    ITSWINBL2  NS          
    I/COPY COPY/TSW,@ITSWINB

    the error messages are

         2 FWORKSTN   CP   F   55        WORKSTN                                 
         3 F                                     FMTS(SCN910)                    
    ======>                                      aaaa                            
    *RNF2023 30 a      000300  The keyword is not recognized; keyword is ignored.
         4 FTSWINBL2  IF   F  256     9AIDISK    KEYLOC(EXTK)                    
    ======>                                             aaaa                     
    *RNF2020 20 a      000400  The parameter for keyword KEYLOC is not valid; defa
                               1 if file is indexed, otherwise blank.            

    and

        45 ITSWFAI    NS  02                                                     
        46 I/COPY COPY/TSW,@ITSWFAI                                              
    ======>       aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    *RNF0273 40 a      004600  Compiler not able to open the /COPY or /INCLUDE fil
                               directive ignored.                                
        47 I*                                                                    
        48 ITSWINBL2  NS                                                         
        49 I/COPY COPY/TSW,@ITSWINB                                              
    ======>       aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    *RNF0273 40 a      004900  Compiler not able to open the /COPY or /INCLUDE fil
                               directive ignored.                                

    I'll keep dabbling

    All comments, ideas etc. are quite welcome

    thanks

    2,550 pointsBadges:
    report
  • aceofdelts

    And much better ... I resolved my /COPY problems

    Last issues are the two invalid keywords in the F specs

    Any ideas on what these should read?

    2,550 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: