****************************************************************** 
 7810-CNVRT-BASE64-TO-EBCDIC.                                      
                                                                   
     MOVE LOW-VALUES                  TO DASWCB64-PARAMETERS       
     SET  DASWCB64-INP-AREA-ADDR      TO ADDRESS OF WS-BASE64-DATA 
     MOVE WS-DAS-SPECIFIC-SIGNON-LEN  TO DASWCB64-INP-AREA-LEN     
     SET  DASWCB64-OUT-AREA-ADDR      TO ADDRESS OF WS-EBCDIC-DATA 
     MOVE SPACES                      TO WS-EBCDIC-DATA            
     MOVE LENGTH OF WS-EBCDIC-DATA    TO DASWCB64-OUT-AREA-LEN     
     SET DASWCB64-CNVRT-FR-BASE64     TO TRUE                      
                                                                   
     CALL 77-DAS-WEB-BASE64-PGM    USING DASWCB64-PARAMETERS  
                                                                   
     MOVE RETURN-CODE                 TO DASWCB64-RETN-CODE        
                                                                   
     IF  DASWCB64-RETN-NORMAL                                      
         MOVE SPACES                  TO WS-DAS-SIGNON-DATA        
         MOVE WS-EBCDIC-DATA(1:LENGTH OF WS-DAS-SIGNON-DATA)       
                                      TO WS-DAS-SIGNON-DATA        
     ELSE                                                          
         SET  88-PROCESS-ERROR             TO TRUE                 
         . . . (error handling)
     END-IF                                                        
     .


 7820-CNVRT-EBCDIC-TO-BASE64.                                     
                                                                  
     MOVE LOW-VALUES                  TO DASWCB64-PARAMETERS      
     SET  DASWCB64-INP-AREA-ADDR      TO ADDRESS OF WS-EBCDIC-DATA
     MOVE WS-DAS-SIGNON-DATA          TO WS-EBCDIC-DATA           
     MOVE LENGTH OF WS-DAS-SIGNON-DATA                            
                                      TO DASWCB64-INP-AREA-LEN    
     SET  DASWCB64-OUT-AREA-ADDR      TO ADDRESS OF WS-BASE64-DATA
     MOVE SPACES                      TO WS-BASE64-DATA           
     MOVE LENGTH OF WS-BASE64-DATA    TO DASWCB64-OUT-AREA-LEN    
     SET DASWCB64-CNVRT-TO-BASE64     TO TRUE                     
                                                                  
     CALL 77-DAS-WEB-BASE64-PGM    USING DASWCB64-PARAMETERS 
                                                                  
     MOVE RETURN-CODE                 TO DASWCB64-RETN-CODE       
     IF  DASWCB64-RETN-NORMAL                                     
         CONTINUE                                                 
     ELSE                                                         
         SET  88-PROCESS-ERROR             TO TRUE                 
         . . . (error handling)
     END-IF                                                        
     .