RE: Assert in RPG/ILE

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

> From: Scott Klement
> 
>       /free
>           Assert(%parms>0: 'You must pass at least one parm!');
>           Assert(ptr <> *NULL);
> 
>          *inlr = *on;  // (otherwise this wont compile)
>       /end-free

I'm snarfing this big time.  Even in fixed-format, it works nicely:

     c                   callp     XmlAssert(TagStack(tagx) = Tag : 
     c                               'Tag Pop error.  Expected ' + 
     c                               Tag + ', current is ' +
TagStack(tagx))

This is better than the if/call/endif.  I cheat a little bit, by the
way.  I have a registry function that allows me to register the
top-level program.  That way I can whack the entire program stack in one
go.  This only works if your top-level programs are ACTGRP(*NEW), though
(or if you re-register after a call to another "top-level" program).

Joe