You must be logged in to use the copy button.

        
**Free
Ctl-Opt
  Copyright('Copyright JAS, Inc. 2024')
  Option(*SrcStmt :*NoDebugIO)  CCSID(*CHAR:*JOBRUN)
  DftActGrp(*No) ActGrp(*Caller) DecEdit(*Jobrun) ALWNULL(*USRCTL)
  BndDir('JASTOOL');

dcl-f DISPLAYFM workstn infds(d_wsds);

/copy qProtosrc,js000PSDS 
/copy qProtosrc,js000PSDS

/Define ClrSFLMsg$_pr
/Define ClrSFLMsg$_flds

/Define SndSFLMsg$_pr
/Define SndSFLMsg$_flds
/Include qProtoSrc,jsSflMsg   

dcl-s wExit ind        inz(*off)
dcl-s wMTxt char(1024) inz;

Dow not wExit;
  write S1CONTROL;
  write MSGCTL;
  Exfmt S1CONTROL;
  ClrSflMsg$(##psPgm);   // Clear any message on the screen

  Select;
  When ##wsKey = ##wsF03 or ##wsKey = ##wsF12;
    wExit = *on;

  When ##wsKey = ##wsF06 and $Valid_Input;
    SndSflMsg$(##psPgm :wMTxt :'MSG0001':##wsFile:'*LIBL');
    write S1CONTROL;
    write MSGCTL;
    ClrSflMsg$(##psPgm); // Clear any message on the screen

  Other;                 // For Enter Key
    if $Valid_Input;
      SndSflMsg$(##psPgm :wMTxt :'MSG0001':##wsFile:'*LIBL');   
      SndSflMsg$(##psPgm :wMTxt :'MSG0002':##wsFile:'*LIBL');
    endif;
  EndSl;
enddo;

*inlr = *on;  // Exit application

//*********************************************************************
// Validate user screen input 
//*********************************************************************
dcl-proc $Valid_Input;
  dcl-pi *n like(Valid_Input);

  end-pi;

  dcl-s $Valid_Input ind inz(*on);
  ClrSflMsg$(##psPgm);     // Clear any message on the screen

  // Add validation here !!!!

  return $Valid_Input;
end-proc;