Re: conversion of s36 to native

[Luis Rodriguez <luis.rodriguez2@xxxxxxxxx>]

Jim,

Check your *JOBD value in the SBMJOB CMD. Also, is your S36
environment set using STRS36, SYSVAL and/or the User
profile?

Regards,

Luis Rodriguez
--- rpg400-l-request@xxxxxxxxxxxx wrote:

-------------
> message: 1
> date: Tue, 11 Sep 2007 12:11:52 -0500
> from: JDHorn@xxxxxxxxxxxxxx
> subject: conversion of s36 to native
>
>    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


Luis Rodriguez

IBM Certified Systems Expert
eServer i5 iSeries Technical Solutions