PRINT GEN                                                              
         TITLE 'ALC$CHAR - REMOVE UNPRINTABLE CHARACTERS'                       
R0       EQU   0                                                                
R1       EQU   1                                                                
R2       EQU   2                                                                
R3       EQU   3                                                                
R4       EQU   4                                                                
R5       EQU   5                                                                
R6       EQU   6                                                                
R7       EQU   7                                                                
R8       EQU   8                                                                
R9       EQU   9                                                                
R10      EQU   10                                                               
R11      EQU   11                                                               
R12      EQU   12                                                               
R13      EQU   13                                                               
R14      EQU   14                                                               
R15      EQU   15                                                               
R00      EQU   0                                                                
R01      EQU   1                                                                
R02      EQU   2                                                                
R03      EQU   3                                                                
R04      EQU   4                                                                
R05      EQU   5                                                                
R06      EQU   6                                                                
R07      EQU   7                                                                
R08      EQU   8                                                                
R09      EQU   9                                                                
         EJECT                                                                  
         AMODE 31                                                               
         RMODE ANY                                                              
ALC$CHAR CSECT                                                                  
         USING *,R11,R12               R11,R12=BASE REGISTERS                   
         STM   R14,R12,12(R13)         SAVE REGISTERS                           
         LR    R11,R15                 ADDRESSIBILITY                           
         LA    R12,2048(0,R11)                                                  
         LA    R12,2048(0,R12)                                                  
         LR    R1,R13                  SAVE SAVE AREA POINTER                   
         LA    R13,SAVEAREA            POINT TO MY SAVEAREA                     
         ST    R13,8(0,R1)             SET FORW CHAIN IN CALLERS SAREA          
         ST    R1,4(0,R13)             SET BACK CHAIN IN MY SAVEAREA            
         L     R1,24(0,R1)             REACQUIRE R1 AS IT CAME HERE             
         LM    R8,R9,0(R1)             GET PASSED PARMS                         
         USING $$PARMS,R8              R8 =INPUT PARMS                          
*                                      R9 =INPUT DATA LOCATION                  
         B     START                                                            
         DS    0F                                                               
         DC    C'*'                                                             
PGMID    DC    CL8'ALC$CHAR'                                                    
         DC    C'*'                                                             
COMPDATE DC    CL8'&SYSDATE'                                                    
COMPTIME DC    CL8'&SYSTIME'                                                    
SAVEAREA DC    18F'0'                                                           
START    EQU   *                                                                
         TR    $$PARM,TRTTBL                                                    
$GOBACK1 EQU   *                                                                
         L     R13,4(0,R13)            POINT BACK TO CALLERS SAVEAREA           
         LM    R14,R12,12(R13)         RESTORE REGISTERS                        
         XR    R15,R15                 CLEAR RETURN CODE                        
         BR    R14                     GOBACK TO MOMMA                          
         EJECT                                                                  
         LTORG                                                                  
**********************************************************************          
*        CONSTANTS,DSECTS                                            *          
**********************************************************************          
         DS    0D                                                               
*                .0.1.2.3.4.5.6.7.8.9.A.B.C.D.E.F                               
TRTTBL   EQU   *                                                                
TRT000F  DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'                              
TRT101F  DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'                              
TRT202F  DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'                              
TRT303F  DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'                              
TRT404F  DC    X'404B4B4B4B4B4B4B4B4B4A4B4C4D4E4F'                              
TRT505F  DC    X'504B4B4B4B4B4B4B4B4B5A5B5C5D5E5F'                              
TRT606F  DC    X'60614B4B4B4B4B4B4B4B6A6B6C6D6E6F'                              
TRT707F  DC    X'4B4B4B4B4B4B4B4B4B797A7B7C7D7E7F'                              
TRT808F  DC    X'4B8182838485868788894B4B4B4B4B4B'                              
TRT909F  DC    X'4B9192939495969798994B4B4B4B4B4B'                              
TRTA0AF  DC    X'4BA1A2A3A4A5A6A7A8A94B4B4B4B4B4B'                              
TRTB0BF  DC    X'B04B4B4B4B4B4B4B4B4BBABB4B4BBE4B'                              
TRTC0CF  DC    X'C0C1C2C3C4C5C6C7C8C94B4B4B4B4B4B'                              
TRTD0DF  DC    X'D0D1D2D3D4D5D6D7D8D94B4B4B4B4B4B'                              
TRTE0EF  DC    X'E0E1E2E3E4E5E6E7E8E94B4B4B4B4B4B'                              
TRTF0FF  DC    X'F0F1F2F3F4F5F6F7F8F94B4B4B4B4B4B'                              
* LAYOUT OF INPUT PARMS FIELDS                                                  
$$PARMS  DSECT                                                                  
$$PARM   DS    CL256        RETURN CODE                                         
$$LENGTH EQU   *-$$PARMS          LENGTH OF PARM AREA                           
         END   ALC$CHAR