Re: conversion of s36 to native

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