You must be logged in to use the copy button.

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

/Define CenterTxt_pr
/copy qProtoSrc,jsTextc

dcl-s Text1 char(80);
dcl-s Text2 char(50);
dcl-s Text3 char(20);

Text1 = 'Hello, World';
Text1 = CenterTxt(Text1 :%len(Text1));
Text1 = %xlate(x'40' : '-' : Text1);  // convert spaces to dashes
snd-msg Text1 %target(*self:2);

Text2 = 'Hello, World';
Text2 = CenterTxt(Text2 :%len(Text2));
Text2 = %xlate(x'40' : '-' : Text2);  // convert spaces to dashes
snd-msg Text2 %target(*self:2);

Text3 = 'Hello, World';
Text3 = CenterTxt(Text3 :%len(Text3));
Text3 = %xlate(x'40' : '-' : Text3); // convert spaces to dashes
snd-msg Text3 %target(*self:2);

*Inlr = *on;