You must be logged in to use the copy button.

        
**Free
 /if Defined(ClrSFLMsg$_PR)
   dcl-pr ClrSFLMsg$;
 /Endif

 /if Defined(ClrSFLMsg$_PI)
   dcl-pi *n;
 /Endif

 /if Defined(ClrSFLMsg$_FLDS)
   PMessageQueue  char(10);
 /UnDefine  ClrSFLMsg$_FLDS
 /Endif

 /if Defined(ClrSFLMsg$_PR)
   end-pr ClrSFLMsg$;
 /UnDefine  ClrSFLMsg$_PR
 /Endif

 /if Defined(ClrSFLMsg$_PI)
   end-pi;
 /UnDefine  ClrSFLMsg$_PI
 /Endif

  // Send SFL Message -------------------------------------------------------------
 /if Defined(SndSFLMsg$_PR)
   dcl-pr SndSFLMsg$;
 /Endif

 /if Defined(SndSFLMsg$_PI)
   dcl-pi *n;
 /Endif

 /if Defined(SndSFLMsg$_FLDS)
    pMessageQueue    char(10);
    pMessage         char(256) options(*varsize);
    pMessageId       char(7)   options(*NOPASS)  const;
    pMessageFile     char(10)  options(*NOPASS)  const;
    pMessageLib      char(10)  options(*NOPASS)  const;
 /UnDefine  SndSFLMsg$_FLDS
 /Endif

 /if Defined(SndSFLMsg$_PR)
   end-pr SndSFLMsg$;
 /UnDefine  SndSFLMsg$_PR
 /Endif

 /if Defined(SndSFLMsg$_PI)
   end-pi;
 /UnDefine  SndSFLMsg$_PI
 /Endif