//FSUPP17  JOB (ACCT#),CLASS=F,MSGCLASS=W,NOTIFY=FSUPP17                        
//JOBCAT   DD  DSN=TSOCAT,DISP=SHR                                              
//A       EXEC PGM=IEV90,PARM=OBJECT,REGION=2000K                               
//SYSIN    DD  *                                                                
         START                                                                  
         DC   C'<< HexToChar Conv >> Version 6 ( '                              
OSV      DC   CL6'v6r1m1'                                                       
         DC   C' ) _ Kimu  // Compiled Date : &SYSDATE _ &SYSTIME '             
         PRINT NOGEN                                                            
@OS#6HC  CSECT                                                                  
         SAVE  (14,12),T,*                                                      
         BALR  R03,0                                                            
         USING *,R03                       Base Reg. R03                        
         ST    R13,SAVEAREA+4              Save A(OLD SaveArea)                 
         LR    R12,R13                                                          
         LA    R13,SAVEAREA                                                     
         ST    R13,8(R12)                  Save A(NEW SaveArea)                 
* --- from characher ---                                                        
         L     R07,0(R01)                                                       
* --- to character ---                                                          
         L     R08,4(R01)                                                       
* --- convert length ---                                                        
         L     R09,8(R01)                                                       
*        LA    R07,ALLOCER                                                      
*        LA    R08,ERRMSG02+30                                                  
*        LA    R09,4                                                            
*        BAL   R14,@CO_HEX                     CALL CONVERT HEX-CHAR            
@CO_HEX  EQU   *                               CONVERT HEX-CHARACTER            
         LA    R15,5                                                            
@CO_HC   EQU   *                                                                
         LTR   R09,R09                                                          
         BZ    @CO_EXIT                                                         
         BCT   R15,@CO_SKIP                                                     
*                                                                               
         MVI   0(R08),X'40'                                                     
         LA    R08,1(R08)                                                       
         LA    R15,4                                                            
@CO_SKIP EQU   *                                                                
         SR    R01,R01                                                          
         IC    R01,0(R07)                                                       
         SRL   R01,4                                                            
         A     R01,A_TR                                                         
         ICM   R02,B'0010',0(R01)                                               
         IC    R01,0(R07)                                                       
         N     R01,=F'15'                                                       
         A     R01,A_TR                                                         
         ICM   R02,B'0001',0(R01)                                               
         STCM  R02,B'0011',0(R08)                                               
         LA    R07,1(R07)                                                       
         LA    R08,2(R08)                                                       
         BCTR  R09,0                                                            
         B     @CO_HC                                                           
@CO_EXIT EQU   *                                                                
         L     R13,SAVEAREA+4                                                   
         RETURN (14,12),RC=0                                                    
*                                                                               
SAVEAREA DS    18F                               WORK SAVEAREA                  
TR       DC    C'0123456789ABCDEF'               CHAR TRUNC TABLE               
A_TR     DC    A(TR)                                                            
         LTORG                                                                  
R00      EQU   00                                                               
R01      EQU   01                                                               
R02      EQU   02                                                               
R03      EQU   03                                                               
R04      EQU   04                                                               
R05      EQU   05                                                               
R06      EQU   06                                                               
R07      EQU   07                                                               
R08      EQU   08                                                               
R09      EQU   09                                                               
R10      EQU   10                                                               
R11      EQU   11                                                               
R12      EQU   12                                                               
R13      EQU   13                                                               
R14      EQU   14                                                               
R15      EQU   15                                                               
         END   @OS#6HC                                                          
/*                                                                              
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                         
//         DD  DSN=SYS1.AMODGEN,DISP=SHR                                        
//SYSUT1   DD  UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)),DSN=&SYSUT1           
//SYSPUNCH DD  DUMMY                                                            
//*YSPUNCH DD  SYSOUT=*,DCB=(BLKSIZE=800),SPACE=(CYL,(5,5,0))                   
//SYSPRINT DD  SYSOUT=*,DCB=(BLKSIZE=3509),                                     
//         UNIT=(,SEP=(SYSUT1,SYSPUNCH))                                        
//*YSLIN   DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)),                     
//*        DCB=(BLKSIZE=400),DSN=&&LOADSET                                      
//SYSLIN   DD  DSN=DDMS.V1R2M1.OBJLIB(@OS#6HC),DISP=SHR                         
//L       EXEC PGM=IEWL,PARM='MAP,LET,LIST,NCAL',                               
//         REGION=1M,COND=(8,LT,A)                                              
//*YSLIN   DD  DSN=*.A.SYSLIN,DISP=SHR                                          
//SYSLIN   DD  DDNAME=SYSIN                                                     
//*YSLMOD  DD  DISP=(,PASS),UNIT=SYSDA,                                         
//*        SPACE=(CYL,(2,1,2)),DSN=&GOSET(GO)                                   
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(3,2)),DSN=&SYSUT1                         
//SYSPRINT DD  SYSOUT=*,DCB=(RECFM=FB,BLKSIZE=3509)                             
//LINK     DD  DSN=ISP.V3R5M0.ISPLOAD,DISP=SHR                                  
//OBJ      DD  DISP=SHR,UNIT=SYSDA,                                             
//         DSN=DDMS.V1R2M1.OBJLIB                                               
//SYSLMOD  DD  DISP=SHR,UNIT=SYSDA,                                             
//         DSN=DDMSL.V1R2M1.LOADLIB                                             
//SYSIN    DD  *                                                                
 INCLUDE LINK(ISPLINK)                                                          
 INCLUDE OBJ(@OS#6)                                                             
 INCLUDE OBJ(@OS#6DA)                                                           
 INCLUDE OBJ(@OS#6DC)                                                           
 INCLUDE OBJ(@OS#6HC)                                                           
 INCLUDE OBJ(@OS#6TC)                                                           
 ENTRY   @OS#6                                                                  
 NAME    @OS#6(R)                                                               
//