edkir98 wrote: |
I tried creating a PDS called <USERNAME>.CLIST and i created a member called initial. But its not executing when i start up. Can anyone help. Hope i made it clear. |
Code: |
/*REXX*/
" ALLOCATE F(SYSEXEC1) DSN('T.INDIA.REXX') SHR REUS " " ALLOCATE F(SYSEXEC2) DSN('T.INDIA2.REXX') SHR REUS " " ALLOCATE F(SYSEXEC3) DSN('T.INDIA.REXX.BACKUP') SHR REUS " " ALLOCATE F(SYSEXEC4) DSN('T.AUTO.REXX') SHR REUS " " ALLOCATE F(SYSPROC1) DSN('T.INDIA.CLIST') SHR REUS " " ALLOCATE F(SYSPROC2) DSN('T.INDIA.CLIST') SHR REUS " " ALLOCATE F(ISPPLIB1) DSN('T.INDIA.ISPPLIB') SHR REUS " " ALLOCATE F(ISPPLIB2) DSN('T.INDIA.PANEL') SHR REUS " " ALLOCATE F(ISPPLIB3) DSN('T.AUTO.PANEL') SHR REUS " " ALLOCATE F(ISPMLIB1) DSN('T.INDIA.ISPMLIB') SHR REUS " " ALLOCATE F(ISPMLIB2) DSN('T.INDIA.MESSAGE') SHR REUS " " ALLOCATE F(ISPMLIB3) DSN('T.AUTO.MESSAGE') SHR REUS " " ALLOCATE F(ISPSLIB1) DSN('T.INDIA.ISPSLIB') SHR REUS " " ALLOCATE F(ISPSLIB2) DSN('T.INDIA.SKELS') SHR REUS " " ALLOCATE F(ISPSLIB3) DSN('T.PTGDOC.TOOLS.ISPSLIB') SHR REUS " " ALLOCATE F(ISPTLIB1) DSN('T.INDIA.ISPTLIB') SHR REUS " " ALLOCATE F(ISPTLIB2) DSN('T.PTGDOC.TOOLS.ISPTLIB') SHR REUS " " ALLOCATE F(ISPTABL1) DSN('T.INDIA.ISPTABL') SHR REUS " " ALLOCATE F(ISPTABL2) DSN('T.PTGDOC.TOOLS.ISPTABL') SHR REUS " " CONCAT (SYSEXEC SYSEXEC1 SYSEXEC2 SYSEXEC3 SYSEXEC4) " " CONCAT (SYSPROC SYSPROC1 SYSPROC2 ) " " CONCAT (ISPPLIB ISPPLIB1 ISPPLIB2 ISPPLIB3 ) " " CONCAT (ISPMLIB ISPMLIB1 ISPMLIB2 ISPMLIB3 ) " " CONCAT (ISPSLIB ISPSLIB1 ISPSLIB2 ISPSLIB3 ) " " CONCAT (ISPTLIB ISPTLIB1 ISPTLIB2 ) " " CONCAT (ISPTABL ISPTABL1 ISPTABL2 ) " IF RC=0 THEN DO CLEAR SCREEN RECEIVE END ELSE DO SAY "NOT ALLOCATED" END "ISPF" EXIT(0) |
Code: |
Enter LOGON parameters below:
Userid ===> ELVIS Password ===> Procedure ===> HEARTBRK Acct Nmbr ===> (SEQUIN,12345) Size ===> REALLY FAT Perform ===> NOT ANYMORE Command ===> exec 'ELVIS.CLIST(INITIAL)' |
Code: |
------------------------------- TSO/E LOGON -----------------------------------
Enter LOGON parameters below: RACF LOGON parameters: Userid ===> TSOID Password ===> New Password ===> Procedure ===> IKJSPFD Group Ident ===> Acct Nmbr ===> XYZABC Size ===> Perform ===> Command ===> EX 'TSOID.CLIST(INITIAL)' Enter an 'S' before each option desired below: -Nomail -Nonotice -Reconnect -OIDcard PF1/PF13 ==> Help PF3/PF15 ==> Logoff PA1 ==> Attention PA2 ==> Reshow You may request specific help information by entering a '?' in any entry field |
Code: |
/*REXX*/
" ALLOCATE F(SYSEXEC) DSN('TSOID.MY.REXX') SHR REUS " IF RC=0 THEN DO CLEAR SCREEN RECEIVE END ELSE DO SAY "NOT ALLOCATED" END "ISPF" EXIT(0) |
Code: |
/*REXX*/
SAY 'HI EDWARD' |
edkir98 wrote: |
hi Taltyman,
The proc which is used while login is IKJSPFD. i found this proc in SYS1.LOGPROC library. Since this is the common proc for the entire firm, if i would change this, then it would affect everyone!!. One way i could do this is to copy this proc and put it under a new name in the same library and change the procedure name while logon. But again i'm putting a new member in SYS1.LOGPROC which is common for the firm. What i wanted to know is, is there a place where i could change the logon PDS library from SYS1.LOGPROC to something like TSOID.LOGPROC so that i could execute this startup procedure from my PDS. Also i also have the LSTPROC from Lionel's website, but i'm not sure how to use it.. can you please help. |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours