LoopCond/IFLBLCMD.MBR at master · cod-e-ash/LoopCond · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
/* PROJECT     : AB UTILITIES                                               */
/* PROGRAMMER  : ASHISH BAGADDEO                                            */
/* DATE        : 00/00/0000                                                 */
/* DESCRIPTION : COMMAND FILE FOR IFLBLC                                    */
/* © COPYRIGHT : ICORE®            MAILTO: SUPPORT@ICORE.CO.IN              */
/*--------------------------------------------------------------------------*/
             CMD        PROMPT('CONDITION START-END FINDER') +
                          TEXT('FIND IF-ENDIF AND SELECT-WHEN IN +
                          OLD RPG')
             PARM       KWD(SRCMBR) TYPE(*CHAR) LEN(10) PROMPT('MEMBER')
             PARM       KWD(SRCFIL) TYPE(*CHAR) LEN(10) PROMPT('FILE')
             PARM       KWD(SRCLIB) TYPE(*CHAR) LEN(10) PROMPT('LIBRARY')