Re: tiny free format program with parametes and without cycle

[Brian Parkins <goodprophet.bp@xxxxxxxxx>]

Gad, you've received many useful (and varied!) approaches to your two 
questions.

However, you originally asked, "Is it possible to write such a (no 
cycle) program and compile it with CRTBNDRPG in one pass? Or do I have 
to resort to CRTRPGMOD + CRTPGM ?"

The simple answers are "YES" and "NO". Scott provided a working example 
that you can compile with CRTBNDRPG. No *SRVPGM, *BNDDIR, SQL, etc. 
required! I've plagiarised Scott's example a little, (see below); 
compile with CRTBNDRPG and call from the command line:

**free
ctl-opt main(getdow);

dcl-proc getdow;

  dcl-pi *n;
    in_date char(8) const;    // input date YYYYMMDD
  end-pi;

  dcl-c SUNDAY const(d'1899-12-31');
  dcl-s tempDate date;
  dcl-s totalDays int(20);
  dcl-s out_dow packed(1: 0);     // day of week, 0=Sunday 6=Saturday
  dcl-s UserId char(10) inz(*User);

  tempDate = %date(in_date:*ISO0);
  totalDays = %diff(tempDate: SUNDAY: *DAYS);
  out_dow = %rem(totalDays:7);

  dsply out_dow UserId;

  return;

end-proc;

HTH,
Brian.

On 04/09/2019 09:32, Gad Miron wrote:
> Hello guys
>
> Thanks to Robert, Carel, Dexter , Justin, Raul for your input.
>
> To sum it:
> 1. This is a small exercise so I do not want to use SQL although it seems
> the simplest way.
> 2. I thing I understand that creating a module/procedure and embed it in a
> SRVPGM is
>       the proper way to do it
> but
> 3. I hazily recall from years back having read that upon the first call of
> a module/procedure
>      of a service program the entire SRVPGM is loaded into memory .
>      (and since we have several big SRVPGMs I don't want to add this routine
> to any of them)
>
> Am I wrong about this loading of entire SRVPGM into memory?
>
>
> TIA
> Gad