Re: conversion of s36 to native

[<jfranz@xxxxxxxxxxxx>]

I "think" when a job's environment variable is *S36 a word is checked if an existing OCL before checking if a command. I may be wrong on this, but I know I've never tried to keep ocl and cmd names the same.
Jim Franz

---- JDHorn@xxxxxxxxxxxxxx wrote: 
>    Ok - I know we should have done this a long time ago  but ----
>     
>    I am converting old s36 report programs/ocl to commands/cl/sql/programs
>    A big bang conversion won't work so I am trying to make  ocl/commands/rpg
>    coexist.
>     
>    I am trying to keep the same name for the new command as the old s36
>    procedure.
>     
>    Since these are old report programs we submit most of them 
>    I think I have solved everything except the submit job of the command.
>    I want to submit a command instead of a clpgm to save hassles with
>    parameter lengths/types
>     
>    when I do this to submit the command
>     
>    C                   EVAL      COMMAND = 'SBMJOB
>    CMD'                                     
>    C                                     +
>    '('                                              
>    C                                     +
>    'ADLST1'                                       
>    C                                     + ' XXAPDL('   + XXAPDL +
>    ')'                        
>    C                                     + ' XXAPNO('   + XXAPNO +
>    ')'                        
>    C                                     + ' XXSORT('   + %CHAR(XXSORT) +
>    ')'                 
>    C                                     + ' XXSUBMIT(' + XXSUBMIT +
>    ')'                      
>    C                                     +
>    ')'                                              
>    C                   CALL     
>    'QCMDEXC'                                                  
>    C                   PARM                    COMMAND        
>    512                          
>    C                   PARM      512           COMMAND_LENGTH   15 5 
>     
>    it always calls the s36 procedure instead of the command
>     
>    interactively it works just fine
>     
>    from the command line or a menu if you type in ADLST1 it calls the s36
>    procedure
>    if you type in // *libl/adlst1 it calls the command
>    you need the // because the s36 environment thinks that everyting that
>    starts with a * is a comment
>     
>    Anybody have an idea of how I can get something like the above to call the
>    command instead of the s36 proc?
>     
>    PS - I'm also adding a this to the top of the old ocl so when it is called
>    from an old menu or other procedure
>    it will work for the new programs 
>    *                                                                                          
>    // *LIBL/ADLST1 XXAPDL(?2?) XXAPNO(?3?) XXSORT(?4?)
>    XXSUBMIT(?9?)               
>    //
>    RETURN                                                                                  
>    *                                                                                          
>     
>     
>                          
>    Jim Horn
>
>    This email is intended only for the person or entity  
>    to which it is addressed and may contain information  
>    that is privileged, confidential or otherwise protected  
>    from disclosure. If you are not the named addressee  
>    or an employee or agent responsible for delivering  
>    this message to the named addressee, you are not 
>    authorized to read, print, retain copy, and disseminate 
>    this message or any part of it. If you have received this 
>    message in error please notify us immediately by email, 
>    discard any paper copies and delete all electronic files  
>    of this message.
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.