E                    DSPDTA   1024  1                “ü—Í DATA             
     E                    SAVDTA   1024  1                SAVE-DATA             
     ISAVEDS    E DSTOKMAS                                                      
     I                                        11024 DSPDTA                      
     C                     MOVE DSPDTA    SAVDTA                                
     C                     SETOF                     90                         
     C           KEY       CHAINTOKMAS               90                         
     C                     MOVE SAVDTA    DSPDTA