H            D/J                                                  
FSYO999  CF  E        WORKSTN                         
I           SDS                                                   
I                                 21  28 SENTEN             
I                                 43  46 NROMSG             
I                               254 263 USRPRF             
I                            *STATUS  ERROR              
IQUSBN       DS                                                   
I                               B   1   40QUSBNB             
I                               B   5   80QUSBNC             
I                                    9  15 QUSBND             
I                                  16  16 WDERR              

 *         PARAMETROS DE ENLACE                          
C   *ENTRY    PLIST                                     
C                  PARM           WPSTS   1                  
 *                                                  0 - ERROR   
 *                                                  1 - OK      
 *
 * DSPR01 - Es una pantalla donde se solicita 
 * los campos WWUSER Y WWPASS
 *
C                      MOVE'0'        WPSTS  
C       PANT1     TAG                           
C                    EXFMTDSPR01                   
C       *IN03     CABEQ'1'       FIN            
 *                                                  
C       WWUSER CABEQ USREPRF    PANT1            
 *
C                   CLEARQUSBN                     
C                   CALL'QSYGETPH'             44 
C                   PARM           WWUSER           
C                   PARM           WWPASS          
C                   PARM           WWPRF  12       
C                   PARM           QUSBN           *
 *
 C   WDERR     IFEQ''                      
 C                   CALL'QSYRLSPH'             44
 C                   PARM           WWPRF  12      
 C                   MOVE'1'       WPSTS
 C                   ENDIF                         
  *
 C      FIN         TAG
 C                    MOVE'1'        *INLR
 C                    RETURN