Cacher is the code snippet organizer for pro developers

        Ctl-Opt Option(*srcstmt) Dftactgrp(*No) ActGrp('rpmobile');

        Dcl-F First WORKSTN Handler('MOBILERPG');

        ExFmt HOMEMENU;

        Select;
            When *In03;
                *InLR = *On;
                Return;
        EndSl;