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

IBXSC76.m

Go to the documentation of this file.

IBXSC76 ; ;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[HIBXSC76   82     printed  Sep 23, 2025@20:08:42                                                                                                                                                                                                       Page 2

IBXSC76   ; ;08/13/09

 +1        SET X=DE(20)

           SET DIC=DIE

 +2       ;

 +3        SET X=DE(20)

           SET DIC=DIE

 +4        SET DGRVRCAL=2