Thursday, January 19, 2017

How to install a custom Image into BASE24-eps Desktop

After a BASE24-eps Service Pack upgrade, the custom BASE24-eps Desktop image will be overwritten with the product image.

Therefore, you have to follow the procedure below to replace the BASE24-eps Desktop image with the  custom one (attached).


1) Using a file explorer, go to $ES_HOME/ESUI/Server/Repository/Desktop/UIF

2) Ftp in binary mode the uif_dt.jar to your PC.

3) Open the jar file using 7-Zip(select file and right click) and drag in the two attached files, replacing the existing ones.


4) FTP the jar back to the Server.

Sample JCL to do codepage conversion between z/OS datasets, and also z/OS Unix files.


Sample JCL to do codepage conversion between z/OS datasets, and also z/OS Unix files.


//ICONV    PROC INFILE=,         < INPUT DATA SET            
//   REGSIZ='6M',                < ICONV REGION SIZE          
//   OUTFILE=,                   < OUTPUT DATA SET            
//   FROMC=,                     < INPUT CODE SET NAME         
//   TOC=                        < OUTPUT CODE SET NAME       
//*                                                           
//ICONV     EXEC PGM=EDCICONV,REGION=&REGSIZ,                 
//          PARM=('FROMCODE(&FROMC),TOCODE(&TOC)')             
//SYSUT1    DD DSNAME=&INFILE,DISP=SHR                        
//SYSUT2    DD PATH=&OUTFILE,                                 
//          PATHOPTS=(OCREAT,OWRONLY),PATHMODE=(SIRUSR,SIWUSR)
//SYSPRINT  DD SYSOUT=*                                        
//STDOUT DD SYSOUT=*                                          
//STDERR DD SYSOUT=*                                          
//SYSIN     DD DUMMY                                           
// PEND                                                       
//S1       EXEC ICONV,                                        
//         INFILE='YOUR.INPUT.DATASET',                        
//         OUTFILE='''/your/output/iconvtstd''',  
//         FROMC='IBM-037',
//         TOC='01200'     


//*-----------------------------------------------------------------
//* Convert UNICODE to EBCDIC                                      
//*-----------------------------------------------------------------
//ICONV     EXEC PGM=EDCICONV,REGION=0M,                           
//          PARM=('FROMCODE(01200),TOCODE(IBM-037)')               
//SYSUT1    DD DSNAME=GB41.TEST.UNICODE,DISP=SHR                    
//SYSUT2    DD DSNAME=GB41.TEST.EBCDIC,DISP=(,CATLG,CATLG),        
//             AVGREC=M,SPACE=(15,(15,15),RLSE),                   
//             RECFM=FB,LRECL=15                                   
//SYSPRINT  DD SYSOUT=*                                            
//STDOUT    DD SYSOUT=*                                            
//STDERR    DD SYSOUT=*                                            

//SYSIN     DD DUMMY