*****************************************************************
      * To compile:
      *
      *    CRTBNDRPG PGM(YOUR_LIB/GETRANDOM) SRCFILE(YOUR_LIB/QRPGLESRC)
      *    or use option 14 from PDM.
      *
      *****************************************************************
     H DftActGrp(*No) ActGrp(*CALLER)

      /COPY qRpgLeSrc,GetRandomP

     D Start           s             10i 0
     D RandomNum       s              8f
     D DisplayNum      s             16 16

     C     *Entry        Plist
     C                   Parm                    Start

      /Free
            GetRandomNum(Start:RandomNum:*OMIT);
            DisplayNum = RandomNum;
            Dsply Start;
            Dsply RandomNum;
            Dsply DisplayNum;
            *InLr = *on;
      /End-Free