DCL        VAR(&STRPOS) TYPE(*CHAR) LEN(4) +                       
                          VALUE(X'0000007D') /* 2 進数開始位置  : +             
                          125 */                                                
             DCL        VAR(&LENDTA) TYPE(*CHAR) LEN(4) +                       
                          VALUE(X'00000010') /* 2 進数受取長さ  : 16 */         
             DCL        VAR(&RCVVAR) TYPE(*CHAR) LEN(16) +                      
                          VALUE(X'0000000000000000')                            
             DCL        VAR(&OFFSET) TYPE(*CHAR) LEN(4) /* +                    
                          2 進数 ｵﾌｾｯﾄ */                                       
             DCL        VAR(&NOENTR) TYPE(*CHAR) LEN(4) /* +                    
                          2 進数項目数  */                                      
             DCL        VAR(&LSTSIZ) TYPE(*CHAR) LEN(4) /* +                    
                          2 進数リストサイズ  */                                
             DCL        VAR(&DEC08) TYPE(*DEC) LEN(8 0) /* WORK */              
             DCL        VAR(&ADDLEN) TYPE(*DEC) LEN(8 0) /* WORK */             
             DCL        VAR(&NOENT) TYPE(*DEC) LEN(8 0) /* WORK */              
             DCL        VAR(&N) TYPE(*DEC) LEN(8 0) VALUE(1) /* WORK */         
             DCL        VAR(&RCVDTA) TYPE(*CHAR) LEN(256) /* +                  
                           受取データ  */                                       
/*( リストＡＰＩで作成されたユーザー空間の検索 )*/                              
     /*( リストデータセクションのオフセットを検索 )*/                           
             CALL       PGM(QUSRTVUS) PARM('MYSPACE   QTEMP     ' +             
                          &STRPOS &LENDTA &RCVVAR)                              
             CHGVAR     VAR(&OFFSET) VALUE(%SST(&RCVVAR 1 4))                   
             CHGVAR     VAR(&NOENTR) VALUE(%SST(&RCVVAR 9 4))                   
             CHGVAR     VAR(&LSTSIZ) VALUE(%SST(&RCVVAR 13 4))                  
                                                                                
         /*( RCVVAR によって OFFSET,LSTSIZ を受取った )*/                       
             CHGVAR     VAR(&STRPOS) VALUE(&OFFSET)                             
             CHGVAR     VAR(&DEC08) VALUE(%BIN(&STRPOS))                        
             CHGVAR     VAR(&DEC08) VALUE(&DEC08 + 1)                           
             CHGVAR     VAR(%BIN(&STRPOS)) VALUE(&DEC08)                        
             CHGVAR     VAR(&LENDTA) VALUE(&LSTSIZ)                             
             CHGVAR     VAR(&ADDLEN) VALUE(%BIN(&LENDTA))                       
             CHGVAR     VAR(&NOENT) VALUE(%BIN(&NOENTR))                        
NXTRTV:                                                                         
             CALL       PGM(QUSRTVUS) PARM('USRSPC    QTEMP     ' +             
                          &STRPOS &LENDTA &RCVDTA)                              
             /*( 処理の開始 )*/                                                 
                                                                                
             /*( 処理の終了 )*/                                                 
             IF         COND(&N < &NOENT) THEN(DO)                              
             CHGVAR     VAR(&N) VALUE(&N + 1)                                   
             CHGVAR     VAR(&DEC08)  VALUE(%BIN(&STRPOS))                       
             CHGVAR     VAR(&DEC08) VALUE(&DEC08 + &ADDLEN)                     
             CHGVAR     VAR(%BIN(&STRPOS)) VALUE(&DEC08)                        
             GOTO       NXTRTV                                                  
             ENDDO