pgm    ( +                                                                      
         &pData       +                                                         
         &plData      +                                                         
         &pFldId      +                                                         
         &pRow        +                                                         
         &pColumn     +                                                         
         &pStrMAtr    +                                                         
         &pEndMAtr    +                                                         
         &pStrColAtr  +                                                         
         &pEndColAtr  +                                                         
         &pCtlOpt     +                                                         
       )                                                                        
                                                                                
   dcl   &pData       *char  128                                                
   dcl   &plData      *char    4                                                
   dcl   &pFldId      *char    4                                                
   dcl   &pRow        *char    4                                                
   dcl   &pColumn     *char    4                                                
   dcl   &pStrMAtr    *char    1                                                
   dcl   &pEndMAtr    *char    1                                                
   dcl   &pStrColAtr  *char    1                                                
   dcl   &pEndColAtr  *char    1                                                
   dcl   &pCtlOpt     *char   10                                                
                                                                                
   dcl   &Data        *char  128                                                
   dcl   &DataL       *char    4                                                
   dcl   &FldId       *char    4                                                
   dcl   &Row         *char    4                                                
   dcl   &Column      *char    4                                                
   dcl   &StrMAtr     *char    1                                                
   dcl   &EndMAtr     *char    1                                                
   dcl   &StrColAtr   *char    1                                                
   dcl   &EndColAtr   *char    1                                                
                                                                                
   dcl   &hCmdBuf     *char    4                                                
   dcl   &hLoLvlEnv   *char    4                                                
   dcl   &ErrCod      *char    8                                                
                                                                                
   dcl   &RtnVal      *char    2                                                
                                                                                
                                                                                
   chgvar            &hCmdBuf     x'00000000'                                   
   chgvar            &hLoLvlEnv   x'00000000'                                   
   chgvar            &ErrCod      x'00000000'                                   
                                                                                
   chgvar            &Data         &pData                                       
   chgvar            &DataL        &plData                                      
   chgvar            &FldId        &pFldId                                      
   chgvar            &Row          &pRow                                        
   chgvar            &Column       &pColumn                                     
   chgvar            &StrMAtr      &pStrMAtr                                    
   chgvar            &EndMAtr      &pEndMAtr                                    
   chgvar            &StrColAtr    &pStrColAtr                                  
   chgvar            &EndColAtr    &pEndColAtr                                  
                                                                                
   callprc 'QsnWrtDta'      ( +                                                 
                              &Data        +                                    
                              &DataL       +                                    
                              &FldId       +                                    
                              &Row         +                                    
                              &Column      +                                    
                              &StrMAtr     +                                    
                              &EndMAtr     +                                    
                              &StrColAtr   +                                    
                              &EndColAtr   +                                    
                              &hCmdBuf     +                                    
                              &hLoLvlEnv   +                                    
                              x'0000000000000000' +                             
                            ) +                                                 
                      rtnval( +                                                 
                              %bin( &RtnVal ) +                                 
                            )                                                   
                                                                                
                                                                                
   return                                                                       
                                                                                
endpgm