Using ISPSTART and dealing with the Log Data Set
Page 1 of 1
Using ISPSTART and dealing with the Log Data Set
Posted: Tue Nov 06, 2012 11:10 am Post subject: Using ISPSTART and dealing with the Log Data Set
Greetings,
I am writing a REXX (JERECALL) that will be called via MYLOGON to recall migrated datasets.
I would like to call this REXX via MYLOGON, so it happens automatically. I have used LMDINIT & LISTDSI in JERECALL to retrieve a list of datasets, then iterate through them only recalling datasets that are flagged as migrated. However, I found that the certain commands can only be execute during an ISPF session and MYLOGON executes before ISPF is loaded. I could call the JERECALL rexx via the ISPSTART command and the LMDINIT & LISTDSI commands work. My next hurdle was the JERECALL was interrupted by the "Specify Disposition of Log Data Set" screen, which requests manual intervention to select a process option and press enter to continue past this screen. I overcame this by disabling the Log Data Set in my ISPF Settings under Log Dataset defaults.
My questions are:
1. Is there a way to call ISPSTART with a /nolog option, or a way to close the dataset manually?
2. Is there a better way to do what I am doing?
MYLOGON looks like this:
Code:
"ISPSTART CMD(%JERECALL USERID) MODE(FSCR) NEWAPPL(LALA)"
JERECALL looks like this:
Code:
ADDRESS TSO
ARG UID
DSN = UID || '.*'
MSGVAL = MSG('OFF')
"ISPEXEC LMDINIT LISTID(LID) LEVEL(&DSN)"
DO I = 1 TO 1000
"ISPEXEC LMDLIST LISTID("LID") OPTION(LIST) DATASET(DSN)"
IF RC = 0 THEN
DO
QDSN = "'" || DSN || "'"
FC = LISTDSI(QDSN NORECALL)
IF FC = 16 & SYSREASON = 9 THEN "HRECALL" QDSN "NOWAIT"
END
ELSE LEAVE
END /* DO I */
MSGVAL = MSG(MSGVAL)
EXIT 0
For those interested, to disable the Log Data Set:
At the ISPF main menu.
0 Settings Terminal and user parameters
Log/List - Top left menu
1. Log Data set defaults
Code:
EsssssssssssssssssssssssssssssssssssssN
e 1 1. Log Data set defaults e
e 2. List Data set defaults e
e 3. List Data set characteristics e
e 4. JCL... e
DsssssssssssssssssssssssssssssssssssssM
Change the Primary pages and Secondary pages to 0.
Code:
Essssssssssssssssssssssssssss ISPF Settings ssssssssssssssssssssssssssssN
e Log Data Set Defaults e
e More: + e
e Process option . . . . 2 1. Print data set and delete e
e 2. Delete data set (without printing) e
e 3. Keep data set (append subsequent e
e information to same data set) e
e 4. Keep data set and allocate new data set e
e Batch SYSOUT class . . e
e Local printer ID or e
e writer-name . . . . . e
e Local SYSOUT class . . e
e Lines per page . . . . 60 e
e Primary pages . . . . 0 e
e Secondary pages . . . 0 e
e Log Message ID . . . . (/ = Yes) e
e F1=Help F2=Split F3=Exit F7=Backward F8=Forward e
e F9=Swap F12=Cancel e
DsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssM
Please note: If you have performed actions in the ISPF session, the log/list dataset will have already been created. This means you will see the "Specify Disposition of Log Data Set" screen 1 last time. The next time you log in and perform actions, the dataset will NOT be created and the screen will not appear when you go to exit.
Thank you for your assistance.
Greetings,
I am writing a REXX (JERECALL) that will be called via MYLOGON to recall migrated datasets.
I would like to call this REXX via MYLOGON, so it happens automatically. I have used LMDINIT & LISTDSI in JERECALL to retrieve a list of datasets, then iterate through them only recalling datasets that are flagged as migrated. However, I found that the certain commands can only be execute during an ISPF session and MYLOGON executes before ISPF is loaded. I could call the JERECALL rexx via the ISPSTART command and the LMDINIT & LISTDSI commands work. My next hurdle was the JERECALL was interrupted by the "Specify Disposition of Log Data Set" screen, which requests manual intervention to select a process option and press enter to continue past this screen. I overcame this by disabling the Log Data Set in my ISPF Settings under Log Dataset defaults.
My questions are:
1. Is there a way to call ISPSTART with a /nolog option, or a way to close the dataset manually?
2. Is there a better way to do what I am doing?
MYLOGON looks like this:
Code:
"ISPSTART CMD(%JERECALL USERID) MODE(FSCR) NEWAPPL(LALA)"
JERECALL looks like this:
Code:
ADDRESS TSO
ARG UID
DSN = UID || '.*'
MSGVAL = MSG('OFF')
"ISPEXEC LMDINIT LISTID(LID) LEVEL(&DSN)"
DO I = 1 TO 1000
"ISPEXEC LMDLIST LISTID("LID") OPTION(LIST) DATASET(DSN)"
IF RC = 0 THEN
DO
QDSN = "'" || DSN || "'"
FC = LISTDSI(QDSN NORECALL)
IF FC = 16 & SYSREASON = 9 THEN "HRECALL" QDSN "NOWAIT"
END
ELSE LEAVE
END /* DO I */
MSGVAL = MSG(MSGVAL)
EXIT 0
For those interested, to disable the Log Data Set:
At the ISPF main menu.
0 Settings Terminal and user parameters
Log/List - Top left menu
1. Log Data set defaults
Code:
EsssssssssssssssssssssssssssssssssssssN
e 1 1. Log Data set defaults e
e 2. List Data set defaults e
e 3. List Data set characteristics e
e 4. JCL... e
DsssssssssssssssssssssssssssssssssssssM
Change the Primary pages and Secondary pages to 0.
Code:
Essssssssssssssssssssssssssss ISPF Settings ssssssssssssssssssssssssssssN
e Log Data Set Defaults e
e More: + e
e Process option . . . . 2 1. Print data set and delete e
e 2. Delete data set (without printing) e
e 3. Keep data set (append subsequent e
e information to same data set) e
e 4. Keep data set and allocate new data set e
e Batch SYSOUT class . . e
e Local printer ID or e
e writer-name . . . . . e
e Local SYSOUT class . . e
e Lines per page . . . . 60 e
e Primary pages . . . . 0 e
e Secondary pages . . . 0 e
e Log Message ID . . . . (/ = Yes) e
e F1=Help F2=Split F3=Exit F7=Backward F8=Forward e
e F9=Swap F12=Cancel e
DsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssM
Please note: If you have performed actions in the ISPF session, the log/list dataset will have already been created. This means you will see the "Specify Disposition of Log Data Set" screen 1 last time. The next time you log in and perform actions, the dataset will NOT be created and the screen will not appear when you go to exit.
Thank you for your assistance.
kasthuri- Posts : 212
Join date : 2013-01-27
Similar topics
» Data structure in CL
» XCTL - Sending and receiving data of different size
» Fetch Unique and sorted data from two Cobol tables
» Restoring Spooled File Data After a System Restore
» XCTL - Sending and receiving data of different size
» Fetch Unique and sorted data from two Cobol tables
» Restoring Spooled File Data After a System Restore
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|