FDSPFIL  CF  E                    WORKSTN                                  
     F                                              KINFDS INFDS                
     IINFDS       DS                                                            
     I*( CURSOR の行と桁の取り込み )                                            
     I                                    B 370 3710LINE                        
     I*  TOPRRN: 今表示している SUBFILE の先頭の RRN                            
     I                                    B 378 3790TOPRRN                      
     I* BRRN : SUBFILE の RECORD NO ( 2 進数 )                                  
     I                                    B 376 3770BRRN                        
    +C                     EXSR CURSOR                                          
     C*                                                                         
     C*****************************************************                     
     C           CURSOR    BEGSR                                                
     C*****************************************************                     
     CSR         LINE      DIV  256       LIN     30       CSSR の行数          
     CSR                   MVR            POS     30       CSSR の桁数          
     CSR                   ENDSR