diff options
Diffstat (limited to 'os400/libxmlrpg/chvalid.rpgle')
-rw-r--r-- | os400/libxmlrpg/chvalid.rpgle | 53 |
1 files changed, 31 insertions, 22 deletions
diff --git a/os400/libxmlrpg/chvalid.rpgle b/os400/libxmlrpg/chvalid.rpgle index 444d1cb2..c601442f 100644 --- a/os400/libxmlrpg/chvalid.rpgle +++ b/os400/libxmlrpg/chvalid.rpgle @@ -26,8 +26,8 @@ d xmlChLRange ds based(xmlChLRangePtr) d align qualified - d low 10u 0 - d high 10u 0 + d low like(xmlCuint) + d high like(xmlCuint) d xmlChRangeGroupPtr... d s * based(######typedef######) @@ -35,15 +35,16 @@ d xmlChRangeGroup... d ds based(xmlChRangeGroupPtr) d align qualified - d nbShortRange 10i 0 - d nbLongRange 10i 0 + d nbShortRange like(xmlCint) + d nbLongRange like(xmlCint) d shortRange like(xmlChSRangePtr) d longRange like(xmlChLRangePtr) * Range checking routine - d xmlCharInRange pr 10i 0 extproc('xmlCharInRange') - d val 10u 0 value + d xmlCharInRange pr extproc('xmlCharInRange') + d like(xmlCint) + d val value like(xmlCuint) d group like(xmlChRangeGroupPtr) const d xmlIsBaseCharGroup... @@ -70,29 +71,37 @@ d ds import('xmlIsIdeographicGroup') d likeds(xmlChRangeGroup) const - d xmlIsBaseChar pr 10i 0 extproc('xmlIsBaseChar') - d ch 10u 0 value + d xmlIsBaseChar pr extproc('xmlIsBaseChar') + d like(xmlCint) + d ch value like(xmlCuint) - d xmlIsBlank pr 10i 0 extproc('xmlIsBlank') - d ch 10u 0 value + d xmlIsBlank pr extproc('xmlIsBlank') + d like(xmlCint) + d ch value like(xmlCuint) - d xmlIsChar pr 10i 0 extproc('xmlIsChar') - d ch 10u 0 value + d xmlIsChar pr extproc('xmlIsChar') + d like(xmlCint) + d ch value like(xmlCuint) - d xmlIsCombining pr 10i 0 extproc('xmlIsCombining') - d ch 10u 0 value + d xmlIsCombining pr extproc('xmlIsCombining') + d like(xmlCint) + d ch value like(xmlCuint) - d xmlIsDigit pr 10i 0 extproc('xmlIsDigit') - d ch 10u 0 value + d xmlIsDigit pr extproc('xmlIsDigit') + d like(xmlCint) + d ch value like(xmlCuint) - d xmlIsExtender pr 10i 0 extproc('xmlIsExtender') - d ch 10u 0 value + d xmlIsExtender pr extproc('xmlIsExtender') + d like(xmlCint) + d ch value like(xmlCuint) d xmlIsIdeographic... - d pr 10i 0 extproc('xmlIsIdeographic') - d ch 10u 0 value + d pr extproc('xmlIsIdeographic') + d like(xmlCint) + d ch value like(xmlCuint) - d xmlIsPubidChar pr 10i 0 extproc('xmlIsPubidChar') - d ch 10u 0 value + d xmlIsPubidChar pr extproc('xmlIsPubidChar') + d like(xmlCint) + d ch value like(xmlCuint) /endif XML_CHVALID_H__ |