PROC 0 PANEL()                                                                 
/*********************************************************************/        
/* NAME = OPRPROF                                                    */        
/* LAST UPDATED BY MS 01/17/01                                       */        
/* 1/29/01 CHG PANEL  DG                                             */        
/* 02/03/01 DG ADD LOGOFF                                            */        
/* 02/26/01 JS CHG ZEKE & OASIS DSN'S                                */        
/*                                                                   */        
/* USED BY LOGON PROC IKJACCNT IN SYS3.TSO.PROCLIB9                  */        
/*********************************************************************/        
CONTROL NOFLUSH NOMSG MAIN                                                     
PROFILE MODE WTPMSG MSGID                                                      
FREE FILE(ISPLLIB,ISPPLIB,ISPMLIB,ISPTLIB,ISPSLIB,SYSHELP,SYSLBC, +            
          ISPPROF,ISPTABL,SMPTABL,IPCSPARM,ISPPALT,ISPMALT,ISPILIB)            
FREE FI(SYSPROC)                                                               
ALLOC FI(SYSPROC) SHR DA( +                                                    
                         'SYS3.TSO.CLIST9'                            +        
                         'SYS3.TSO.CLIST'                             +        
                         'SYS1.SBLSCLI0'                              +        
                         'SYS1.SERBCLS'                               +        
                         'EOY.SEOYCLIB'                               +        
                         'GIM.SGIMCLS0'                               +        
                         'CBC.SCBCUTL'                                +        
                         'ISP.SISPCLIB'                               +        
                         'GDDM.SADMSAM'                               +        
                         'FFST.V120ESA.SEPWCENU'                      +        
                         'PDP.ZEKE.V45.CMDPROC'                       +        
                         'SYS1.SBDTCLI0'                              +        
                         'ICQ.ICQCCLIB')                                       
FREE FI(SYSEXEC)                                                               
ALLOC FI(SYSEXEC) SHR DA( +                                                    
                         'ISF.SISFEXEC'                               +        
                         'EOY.SEOYCLIB'                               +        
                         'SYS1.SBPXEXEC'                              +        
                         'ISP.SISPEXEC'                               +        
                         'FFST.V120ESA.SEPWSRC1'                      +        
                         'SYS1.SEDGEXE1'                              +        
                         'SOMMVS.SGOSREXX'                            +        
                         'EWX.SEWXEXEC')                                       
SET &DSNAME = &SYSUID..ISPF.ISPPROF                                            
ALLOC FI(ISPPROF) SHR  DA('&DSNAME.')                                          
IF &LASTCC ^= 0 THEN +                                                         
  DO                                                                           
    FREE FI(ISPCRTE)                                                           
    CONTROL MSG                                                                
    ATTRIB ISPCRTE DSORG(PO) RECFM(F B) LRECL(80) BLKSIZE(6160)                
    ALLOC DA('&DSNAME.') SP(5,1) CYLINDERS DIR(20) USING(ISPCRTE) +            
        FI(ISPPROF)                                                            
    IF &LASTCC = 0 THEN +                                                      
      WRITE *** ISPF PROFILE DATA SET '&DSNAME.' HAS BEEN CREATED              
    ELSE +                                                                     
     DO                                                                        
      WRITE  *** UNABLE TO ALLOCATE ISPF PROFILE DATA SET '&DSNAME.'           
      FREE FI(ISPCRTE)                                                         
      EXIT CODE(12)                                                            
     END                                                                       
    FREE FI(ISPCRTE)                                                           
  END                                                                          
CONTROL MSG                                                                    
ERROR EXIT                                                                     
IF &PANEL = &STR() THEN +                                                      
  SET &PNL = PANEL(OPR@PRIM)                                                   
ELSE +                                                                         
  SET &PNL = PANEL(&PANEL)                                                     
ALLOC FI(ISPTABL) SHR DA( +                                                    
                         '&DSNAME'                                    +        
                                )                                              
ALLOC FI(SMPTABL) SHR DA('&DSNAME.')                                           
ALLOC FI(ISPLLIB) SHR DA( +                                                    
                         'SYS1.DGTLLIB'                               +        
                         'ISP.SISPLOAD'                               +        
                         'SYS1.SCBDHENU'                              +        
                         'CBC.SCBCCMP'                                +        
                         'GIM.SGIMLMD0'                               +        
                         'PSYS.CAI.SORT.CAIISPL'                      +        
                         'PSYS.CAI.CA1.CAIISPL'                       +        
                         'PDP.OASIS.V21.LINKLIB'                      +        
                         'PDP.ZEKE.V45.LINKLIB'                       +        
                         'SYS1.DFQLLIB')                                       
ALLOC FI(ISPPLIB) SHR DA( +                                                    
                         'SYS3.TSO.ISPPLIB2'                          +        
                         'SYS3.TSO.ISPPLIB'                           +        
                         'CPAC.ISPPLIB'                               +        
                         'ISP.SISPPENU'                               +        
                         'ISF.SISFPLIB'                               +        
                         'SYS1.SERBPENU'                              +        
                         'SYS1.DGTPLIB'                               +        
                         'SYS1.V2R8M0.SHASPNL0'                       +        
                         'SYS1.SCBDPENU'                              +        
                         'SYS1.SBLSPNL0'                              +        
                         'SYS1.SBPXPENU'                              +        
                         'CBC.SCBCPNL'                                +        
                         'GDDM.SADMPNL'                               +        
                         'FFST.V120ESA.SEPWPENU'                      +        
                         'SYS1.DFQPLIB'                               +        
                         'SYS1.SEDGPENU'                              +        
                         'EOY.SEOYPENU'                               +        
                         'SYS1.SBDTPNL0'                              +        
                         'SOMMVS.SGOSPNLS'                            +        
                         'SYS1.SISTPNL0'                              +        
                         'SYS1.SISTPNL1'                              +        
                         'ICQ.ICQPLIB'                                +        
                         'TCPIP.SEZAPENU'                             +        
                         'BFS.SBFSPLIB'                               +        
                         'PDP.OASIS.V21.ISPPLIB'                      +        
                         'PDP.ZEKE.V45.ISPPLIB'                       +        
                         'PSYS.CAI.SORT.CAIISPP'                      +        
                         'PSYS.CAI.CA1.CAIISPP'                       +        
                         'EWX.SEWXPLIB')                                       
ALLOC FI(ISPMLIB) SHR DA( +                                                    
                         'SYS1.SERBMENU'                              +        
                         'SYS1.HRFMSG'                                +        
                         'SYS1.DGTMLIB'                               +        
                         'ISF.SISFMLIB'                               +        
                         'SYS1.SCBDMENU'                              +        
                         'CSF.SCSFMSG0'                               +        
                         'EOY.SEOYBENU'                               +        
                         'SYS1.SBLSMSG0'                              +        
                         'SYS1.SBPXMENU'                              +        
                         'GIM.SGIMMENU'                               +        
                         'CBC.SCBCIMG'                                +        
                         'ISP.SISPMENU'                               +        
                         'GDDM.SADMMSG'                               +        
                         'SYS1.DFQMLIB'                               +        
                         'SYS1.SEDGMENU'                              +        
                         'EOY.SEOYMENU'                               +        
                         'SYS1.SBDTMSG'                               +        
                         'SOMMVS.SGOSMSGS'                            +        
                         'SYS1.SISTMSG0'                              +        
                         'ICQ.ICQMLIB'                                +        
                         'TCPIP.SEZAMENU'                             +        
                         'PDP.OASIS.V21.ISPMLIB'                      +        
                         'PDP.ZEKE.V45.ISPMLIB'                       +        
                         'PSYS.CAI.SORT.CAIISPM'                      +        
                         'PSYS.CAI.CA1.CAIISPM'                       +        
                         'EWX.SEWXMLIB')                                       
ALLOC FI(ISPTLIB) SHR DA( +                                                    
                         '&DSNAME'                                    +        
                         'ISP.SISPTENU' +                                      
                         'SYS1.SERBTENU' +                                     
                         'SYS1.SERBT' +                                        
                         'ISF.SISFTLIB' +                                      
                         'BFS.SBFSTLIB' +                                      
                         'SYS1.SBPXTENU' +                                     
                         'SYS1.DGTTLIB' +                                      
                         'SYS1.SCBDTENU' +                                     
                         'ICQ.ICQTABLS'  +                                     
                         'EOY.SEOYTENU' +                                      
                         'PDP.OASIS.V21.ISPTLIB'                      +        
                         'PDP.ZEKE.V45.ISPTLIB'                       +        
                         'PSYS.CAI.SORT.CAIISPT'                      +        
                         'PSYS.CAI.CA1.CAIISPT'                       +        
                         'EWX.SEWXTLIB')                                       
ALLOC FI(ISPSLIB) SHR DA( +                                                    
                         'ISP.SISPSLIB'                               +        
                         'ISP.SISPSENU'                               +        
                         'ISF.SISFSLIB'                               +        
                         'EWX.SEWXSLIB'                               +        
                         'SYS1.HRFSKEL'                               +        
                         'SYS1.DGTSLIB'                               +        
                         'CBC.SCBCSKL'                                +        
                         'SYS1.SEDGSKL1'                              +        
                         'SOMMVS.SGOSSKEL'                            +        
                         'PSYS.CAI.SORT.CAIISPS'                      +        
                         'PSYS.CAI.CA1.CAIISPS'                       +        
                         'ICQ.ICQSLIB')                                        
ALLOC FI(ISPILIB) SHR DA( +                                                    
                         'ISP.SISPSAMP')                                       
ALLOC FI(SYSHELP) SHR DA( +                                                    
                         'SYS1.HELP'                                  +        
                         'ISP.SISPHELP'                               +        
                         'SYS1.SBDTHELP'                              +        
                         'SYS1.SEDGHLP1'                              +        
                         'TCPIP.SEZAHELP')                                     
ERROR RETURN                                                                   
PDF &PNL                                                                       
LOGOFF