Re: CALLing other pgms - what is a good method of handling different parm lengths

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

I think the idea was to make it "prettier" Chuck <grin>


On 2012-06-27, at 3:12 PM, CRPence wrote:

>   SQL should allow invocations similar to what is expressed as 
> desired.?  Should be possible to create a function for [either a 
> modification to the existing program even possibly without impacting 
> existing invokers, or a /wrapper/ program for invoking the existing] 
> program ProperCase and for example use the SQL SET to assign the value, 
> perhaps something like?:
>
>   SET :PRINT-LINE = ProperCase(cast(:CUST-NAME as CHAR(1000)));
>
>   SET :PRINT-LINE = ProperCase(cast(:CUST-ADDRESS-1 as CHAR(1000)));
>
> Regards, Chuck
>
> On 27 Jun 2012 09:20, Stone, Joel wrote:
> > I have a pgm ProperCase to change an UPPER-CASE string to Mixed-Case.
> >
> > For example, "123 ELM ST"  changes to "123 Elm St"
> >
> > The field that I want to pass as a parm may be different lengths for
> > example
> >
> > CUST-NAME   	PIC x(50).
> >
> > CUST-ADDRESS-1    PIC X(30).
> >
> > I have been coding as follows:
> >
> > move CUST-ADDRESS-1 of CUST-FILE  to ws-string
> >  call 'ProperCase' using ws-string
> >  move ws-string to PRINT-LINE.
> >
> > I would much prefer to do something like
> >
> > Move ProperCase (CUST-ADDRESS-1) to PRINT-LINE
> >
> > <<SNIP>>
> -- 
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com