Difference between revisions of "Right String"
From MidrangeWiki
DaveLClarkI (talk | contribs) (→Service Procedure) |
DaveLClarkI (talk | contribs) |
||
Line 2: | Line 2: | ||
== Summary == | == Summary == | ||
The following are the RPG/LE fully free-form definitions and instructions needed for using the {{AN}} service procedure. This service procedure simply allows the caller to extract the right-most '''''n''''' characters from a supplied string. | The following are the RPG/LE fully free-form definitions and instructions needed for using the {{AN}} service procedure. This service procedure simply allows the caller to extract the right-most '''''n''''' characters from a supplied string. | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
== Service Procedure == | == Service Procedure == |
Revision as of 20:21, 10 December 2018
Summary
The following are the RPG/LE fully free-form definitions and instructions needed for using the Right String service procedure. This service procedure simply allows the caller to extract the right-most n characters from a supplied string.
Service Procedure
**free //============================================================================== // Return rightmost number of bytes -- optional padding on left. //============================================================================== dcl-pr GenUtl_RightString varchar(256) rtnparm; OrigString varchar(65535) const; ByteCount packed(3:0) const; PadChar char(1) const options(*nopass); end-pr; //============================================================================== // Return rightmost number of bytes -- optional padding on left. //============================================================================== dcl-proc GenUtl_RightString export; dcl-pi *n varchar(256) rtnparm; OrigString varchar(65535) const; ByteCount packed(3:0) const; PadChar char(1) const options(*nopass); end-pi; dcl-s StrLeng like(ByteCount); dcl-s NewString varchar(256) inz(''); dcl-s PadString char(256) inz(*blanks); // prevent errors StrLeng = ByteCount; // start with bytes requested if %parms < %parmnum(PadChar) // if no padding and and StrLeng > %len(OrigString); // request greater than string supplied StrLeng = %len(OrigString); // take supplied string length endif; if StrLeng > *zero; // if something to return if StrLeng > %len(PadString); // if more than what can return StrLeng = %len(PadString); // set to max return length endif; if %parms < %parmnum(PadChar); // if no padding NewString = %subst(OrigString: %len(OrigString) - StrLeng + 1); else; // else, with left padding NewString = %subst( %xlate(' ': PadChar: PadString) + OrigString : %len(PadString) + %len(OrigString) - StrLeng + 1 ); endif; endif; return NewString; // return the suffix string end-proc;