Calculate Ordinal Number Given an Algorithm argument , Used to select a Range of Subfiles for TPFDF Operations
ERROR|ERRORA
BEGORD|ENDORD=
BEGORD : Specify a label or a A/label to pass an ordinal number to be copied to SW00ORD
ENDORD : Specify a label or a A/label to pass an ordinal number to be copied to SW00END
BEGORD or ENDORD cannot be used with BEGALG or ENDALG
IBM recommends BEGALG|ENDALG in favour of BEGORD|ENDORD
WRAPAROUND
WRAPAROUND : If begin ordinal is greater than end ordinal use this parameter to wraparound when FACE end ordinal is encountered.
EXAMPLE:
DBADR REF=TRABSQ,BEGALG=='A',ENDALG=='O'
DBRED REF=TRABSQ,FULLFILE .. THIS CAN GO ON IN A LOOP ...