/******************************************************************************/
/**  99 Bottles of Beer on the Wall.                                         **/
/**  Written by Tony Cellana                                                 **/
/******************************************************************************/
             PGM                                                                
                                                                                
/**  Declare Variables  **/                                                     
             DCL        VAR(&IDX)  TYPE(*DEC)  LEN(2 0) VALUE(99)               
             DCL        VAR(&IDXA) TYPE(*CHAR) LEN(2)                           
             DCL        VAR(&MSG1) TYPE(*CHAR) LEN(80