Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: IBXSC63

IBXSC63.m

Go to the documentation of this file.

IBXSC63 ; ;08/13/09

 S X=DE(20),DIC=DIE

 S X=DE(20),DIC=DIE

 S DGRVRCAL=2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBXSC63   82     printed  Apr 09, 2024@21:10:39                                                                                                                                                                                                       Page 2

IBXSC63   ; ;08/13/09

 +1        SET X=DE(20)

           SET DIC=DIE

 +2       ;

 +3        SET X=DE(20)

           SET DIC=DIE

 +4        SET DGRVRCAL=2