Re: Searching for a process to clean my VTS
Hi, If category code 0002 doesn't have Expire Hold=On, you don't have to wait the expire time passes before eject request. Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2023/06/03 23:54, Tom Longfellow wrote: I have had some progress. Here is the sequence of command for one of my volumes. DELETE 'VTD0900' VOLUMEENTRY IDC3012I ENTRY VTD0900 NOT FOUND+ IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42 IDC0551I ** ENTRY VTD0900 NOT DELETED IDC0014I LASTCC=8 CREATE VOLUMEENT(NAME(VTD0900) LIBRARYNAME(JISVTS1) LOCATION(LIBRARY) STORGRP(*SCRTCH*) MEDIATYPE(MEDIA2) RECORDING(36TRACK) USEATTRIBUTE(SCRATCH) RMM DV 'TD0900' FORCE RMM AV TD0900 STATUS(VOLCAT) RMM CV TD0900 RETPD(0) STATUS(USER) RELEASEACTION(SCRATCH) RETENTIONMETHOD(EXPDT) RMM DV TD0900 RELEASE This also works on volumes in Category 001F (PRIVATE). These commands were then followed by EDGPLSCS with the command. SQ TD0900 The final results are tapes in Category 0002. My next decision is when to try the EQ commands. Some are still holding space until internal VTS reclaim process cleans the cache ( Prefer Keep) status. Some have a 'Expire Time' of two weeks. Others have an 'Expire Time' of 'Not Set'. I may just go ahead and give it a try after waiting for a RMM Housekeeping to have a pass or two through the CDS. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Searching for a process to clean my VTS
Hi, If you show us the RMM LV result, we could investigate the volume status. Anyway, the current RMM Volume registry must be unreliable. So could you execute RMM DELETEVOLUME volser FORCE NOEJECT prior to RMM ADDVOLUME & RMM DELETEVOLUME RELEASE ? Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2023/06/03 7:18, Tom Longfellow wrote: The symptoms I am seeing are confusing me. If I try to do an RMM AV for a volume. RMM says it is already there. If I try to search for the volumes under the ISPF interface, nothing is found. The entries are there because they show up in the RELEASE list. They refuse to show up in any Volume Search request. The limited information I have is that they are in OPEN as a status. These tapes are not being opened. EDGCPLSC gives the error message I posted Earlier that RMM is preventing the action. Does a an IDCAMS DEFINE VOLUMEENT automatically generate an RMM AV action? ( I think I have seen that action happen a long time ago when tapes were Moved from INSERT to SCRATCH at the old 3494 libraries). So far, nothing I can do gets the VTS to move a tape out of USER or OPEN to SCRATCH. And the library refuses to ever move anything from SCRATCH to EJECT and PURGE the volume. This is presented in the documentation as a 'Feature' of the hardware because at least once in its life, it was written to and technically contains data (despite the SCRATCH/PRIVATE/MASTER status of RMM or any tape management software. I continue to try to find the right sequence to get the RMM CV commands that will allow them to pass through the entire Life Cycle of the tape. I fear that the VTS is placing a block in the process once a tape has been 'used' and there is data stored in the disk cache. Goals being to end up with a RELEASE EJECT followed by a Delete and the tape goes away from the physical disk cache and internal storage usage. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Searching for a process to clean my VTS
Hi, EDG8194I means the volume status is not "pending release" but master or user. Have you executed the following steps before EDGSPLCS SQ ? Were they successful ? Could you give me "RMM LISTVOLUME volser ALL" result ? 3. Add volume entry in RMM CDS as follows. RMM ADDVOLUME volcat STATUS(VOLCAT) 4. Release volumes in RMM as follows. RMM DELETEVOLUME volser RELEASE Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2023/06/02 3:38, Tom Longfellow wrote: Thank you. This is very helpful and mirrors my own attempts to get these tapes removed. RMM is still fighting me with its split personality on whether those tapes exist or not. The SQ commands are failing with EDG8194I CHANGE USE OF VOLUME TD0080 REFUSED - VOLUME STATUS MAY ONLY BE CHANGED FROM PRIVATE TO SCRATCH BY DFSMSrmm The path around this is not yet available to me. RMM seems to thinks that it DOES and DOES NOT know about the volumes.I get the above complaint, but cannot retrieve the details from the RMM CDS. I have suspicions that it has something to do with the use of 'Categories' in the physical library cluster members. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Searching for a process to clean my VTS
Hi, You can delete them as follows. 1. Ensure the scratch category codes in DEVSUPxx is defined on the target VTS. 2. Create volume entry in the VOLCAT as follows. If LIBNAME and/or SGNAME is not defined, define them before CREATE VOLENT. CREATE VOLUMEENTRY (NAME(Vvolser) LIBRARYNAME(libname) - MEDIATYPE(MEDIAn) LOCATION(LIBRARY) - STORAGEGROUP(sgname) USEATTRIBUTE(PRIVATE) RECORDING(36TRACK)) 3. Add volume entry in RMM CDS as follows. RMM ADDVOLUME volcat STATUS(VOLCAT) 4. Release volumes in RMM as follows. RMM DELETEVOLUME volser RELEASE 5. Return to scratch by EDGSPLCS with INDD as follows. SQ volser 6. Eject the volumes as follows. Only 1,000 volumes eject request can be accepted at a time. RMM DELETEVOLUME volser REMOVE EJECT or EDGSPLCS with INDD as follows. EQ volser Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2023/05/31 2:37, Tom Longfellow wrote: Yes I have the list -- I know them by naming standard and I can do a Virtual Volume Search to the Cluster and get a downloadable list of volume names and their current category status.I already have a REXX roughed out that generates the command I think I need. But I really need to find the set of actions that have be performed so I can generate all the commands I need. Along with RMM/IDCAMS/LI requests to kill these zombies for good and eject them from my life. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM VTS category definition
Hi, "Expire time" in TS7700 scratch category means when TS7700 deletes the scratched volume file on the TVC after the volume's category was changed from private to scratch. Before the scratched volume file on the TVC is deleted, you can reuse the volume data by changing the volume attribute from scratch to private. But "Expire Time" is based on the best effort. If all scratch volumes which exceed expire time are exhausted, scratch volumes which don't exceed expire time will be selected as scratch volume. In this situation, you can't reuse the volume data before overwritten. So if you want to ensure that scratch volumes which don't exceed expire time are not selected for scratch volume, you need to check "Expire Hold". Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2023/05/11 23:24, Radoslaw Skorupka wrote: I just RTFM, but I'm not sure about scratch category definition in VTS TS7700. I mean Expire Hold Settings and Expire Hold checkbox. My understanding: No expiration - scratch will *never* be reused. ...or maybe it means the scratch is available for reuse immediately after transition from private to scratch? Expire Hold, let's say 48h. That means the scratch will be available two days after the transition from private to scratch. Q: What is the meaning of Expire Hold checkbox? Regards -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to use LISTDSI from Rexx under Unix shell?
How about the following ? /* REXX */ X = LISTDSI("'SYS1.MODGEN'" DIRECTORY) SAY 'FUNCTION CODE FROM LISTDSI IS: ' X SAY 'THE DATA SET NAME IS: ' SYSDSNAME SAY 'THE DEVICE UNIT ON WHICH THE VOLUME RESIDES IS:' SYSUNIT SAY 'THE RECORD FORMAT IS: ' SYSRECFM SAY 'THE LOGICAL RECORD LENGTH IS: ' SYSLRECL SAY 'THE BLOCK SIZE IS: ' SYSBLKSIZE SAY 'THE ALLOCATION IN SPACE UNITS IS: ' SYSALLOC SAY 'TYPE OF RACF PROTECTION IS: ' SYSRACFA SAY 'THE NUMBER OF ALLOCATED BLOCKS IS: ' SYSADIRBLK SAY 'THE NUMBER OF USED BLOCKS IS: ' SYSUDIRBLK SAY 'THE NUMBER OF MEMBER IS: ' SYSMEMBERS The result is as folows. FUNCTION CODE FROM LISTDSI IS: 0 THE DATA SET NAME IS: SYS1.MODGEN THE DEVICE UNIT ON WHICH THE VOLUME RESIDES IS: 3390 THE RECORD FORMAT IS: FB THE LOGICAL RECORD LENGTH IS: 80 THE BLOCK SIZE IS: 27920 THE ALLOCATION IN SPACE UNITS IS: 567 TYPE OF RACF PROTECTION IS: NONE THE NUMBER OF ALLOCATED BLOCKS IS: 57 THE NUMBER OF USED BLOCKS IS: 47 THE NUMBER OF MEMBER IS: 723 Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/08/25 12:44, Farley, Peter x23353 wrote: Posted earlier today on MVS-OE but got no responses there. I know this has probably been discussed previously but I can't seem to get the Marist MVS-OE archive search to work for me. Is there any way to use the LISTDSI TSO external function from "address tso" in a Rexx program run under the Unix shell? I can only get it to return RC = -3, "routine not found". Sample code below. RTFM seems to indicate that "address tso" in a REXX program run under the Unix shell will run a TSO TMP in a separate address space, which is OK, I can capture the output from that as needed, but I am not getting any execution of LISTDSI at all. Peter Sample code to get LISTDSI information on 'profilename.EXEC': /* Rexx */ Address tso Myrc = LISTDSI('EXEC') Say 'RC='Myrc',reason='SYSREASON This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: MCDS CDS BACKVOL fails
Hi, "MIGRATION, BACKUP, FRBACKUP, DUMP, AND RECYCLE HELD." is not the cause but the result of this error. Even if all function is held, only BACKVOL CDS can be executed. ARC0744E RC=36 says backup version data sets can not be located. Could you pre-allocate all backup version data sets in the correct name ? LLQ=V0 seems bad. It should be V000, V001, V002 etc depend on the specified backup version number (SETSYS BACKUPCOPIES(n)). Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/08/21 15:58, kekronbekron wrote: Second line tells you what it is. Functions within HSM (including backup) are held. - KB --- Original Message --- On Sunday, August 21st, 2022 at 12:15 PM, Jake Anderson wrote: Hello All, Good morning I tried running HSEND BACKVOL CDS but I got failed with below message, infact I tried allocating the dataset with LLQ V0 but still it fails ARC0744E MCDS COULD NOT BE BACKED UP, RC=0036, REAS=. MIGRATION, BACKUP ARC0744E (CONT.) FRBACKUP, DUMP, AND RECYCLE HELD. ARC0101I QUERY CDSVERSIONBACKUP COMMAND STARTING ON HOST=1 ARC0375I CDSVERSIONBACKUP, MCDSBACKUPDSN=DFHSM.MCDS.BACKUP, ARC0375I (CONT.) BCDSBACKUPDSN=DFHSM.BCDS.BACKUP, ARC0375I (CONT.) OCDSBACKUPDSN=DFHSM.OCDS.BACKUP, ARC0375I (CONT.) JRNLBACKUPDSN=DFHSM.JRNL.BACKUP ARC0376I BACKUPCOPIES=0003, BACKUPDEVICECATEGORY=DASD, ARC0376I (CONT.) LATESTFINALQUALIFIER=V000, DATAMOVER=HSM ARC0101I QUERY CDSVERSIONBACKUP COMMAND COMPLETED ON HOST=1 As per manual for return code 36 it says an error was encountered in locating the backup data set indicated by DSID. reason code Regards Jake -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to set time parameter in TSO/E REXX getmsg function
Hi Dale, Thank you for your comments. But as I reported in another mail, I can't recreate the problem now. The reason is unknown. If the problem happens again, I will try it. Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/08/18 11:21, Dale R. Smith wrote: On Wed, 17 Aug 2022 10:54:16 +0900, Nobuhiko Furuya wrote: Hi ALL, Thank you for your all suggestions. But my explanation seemed poor. What I would like to do is specifying the wait time indirectly in getmsg as follows. But the following code gets errors as I reported. ARG hsmcmd':'seconds <- get wait seconds as a parameter hsmid = 'DFHSM' <- set hsmid address console "F "hsmid","hsmcmd <- issue command msghsm = getmsg('resp.','SOL','HSM',,seconds) <- wait the specified seconds Of course when I specified the wait time directly as follows, it was OK. msghsm = getmsg('resp.','SOL','HSM',,20) Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. Try changing this line from: ARG hsmcmd':'seconds to ARG hsmcmd':'seconds . it's possible that the the parameter was entered with a trailing space and now it does not have a trailing space. Try the original program with a trailing space, if it fails then try changing the line as I suggested and execute it again with a trailing space. It should work correctly after the change. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to set time parameter in TSO/E REXX getmsg function
Hi Shmuel, Thank you for your comments. As I reported in another mail, the problem disappeared. The reason is unknown. I will try to use TRACE I when the problem happens again. Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/08/18 0:00, Seymour J Metz wrote: What happened to 'CONSOLE ACTIVATE'? I don't believe that it worked correctly without that, regardless of how you coded getmsg. Again, TRACE I is your friend. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Nobuhiko Furuya [furu...@v-sol.co.jp] Sent: Tuesday, August 16, 2022 9:54 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How to set time parameter in TSO/E REXX getmsg function Hi ALL, Thank you for your all suggestions. But my explanation seemed poor. What I would like to do is specifying the wait time indirectly in getmsg as follows. But the following code gets errors as I reported. ARG hsmcmd':'seconds<- get wait seconds as a parameter hsmid = 'DFHSM' <- set hsmid address console "F "hsmid","hsmcmd<- issue command msghsm = getmsg('resp.','SOL','HSM',,seconds) <- wait the specified seconds Of course when I specified the wait time directly as follows, it was OK. msghsm = getmsg('resp.','SOL','HSM',,20) Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/08/17 5:32, Mark Zelden wrote: On Tue, 16 Aug 2022 14:18:41 +0900, Nobuhiko Furuya wrote: Thanks. But I can't find how to code it. I would line to change time value depend on the logic. How can I resolve this ? Are you trying to do something that requires the REXX "interpret" instruction? Is that what you mean? https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.4.0%3Ftopic%3Dexpression-using-interpret-instruction&data=05%7C01%7Csmetz3%40gmu.edu%7Cba611a742b994e6d461d08da7ff373ce%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C637962980844423734%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=veLyUq8PnkRIAurC7Hibz73ehYrzb1mePSfiMzSv8lo%3D&reserved=0 Best Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: http://secure-web.cisco.com/1ac7hX8Wn6rc-3nk8Q9nCsTyPIQhH5DvT8Wup6Ld5tNLbCC_RBgOdbse-u1jN7G4T5_Oc6IqaW5SW48PdDkRVANXQw4mOKKbyLDGcRlhlCTOrc7nnqXMX8FczRUNVUtIdCKx-eanO6MFTqcn2jpOOjQ7swYuZTHkuUyePAqTSLrc-sWIwu87cyLMsv5gdOAc_y-uMUhM44mkjq6SWQo6VxcD5cFFLJjBPEYdLXWRvnpI9-QNX74LrXesOMPZ9k9tIDY21LaAWrq-VqhwJRUjCOy2417qCZlBOYFIPV8Jo53Iq3CA8uctZb7CJxSOg7g-f7z8WeAx3x9BF2JQ06fY_jMqnWLJVithmkLAGQ_s579k026S1MlVp85GiizsUgamislC6aQSQY2ZotLipgEbzzzjTV2C47IuwL2nuX5IB3LThUO6_n1fz-HHb3FhAbu82/http%3A%2F%2Fwww.mzelden.com%2Fmvsutil.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to set time parameter in TSO/E REXX getmsg function
Hi Willy, Thank you for your idea. I believe "seconds" was entirely numeric. After I insert your code, it was OK. But even after I removed your code, it was also OK. So the problem disappeared. I'm very confused. There might be some garbages in the string. Anyway I will try to diagnose if the problem happens again. Best reagrds, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/08/17 21:17, Willy Jensen wrote: You have the statement ARG hsmcmd':'seconds Could it be that the seconds value is not entirely numeric? Maybe do something like this: seconds=word(seconds 2,1) /* set default =2 */ if datatype(seconds)<>'NUM' then call error 'bad seconds value "'seconds"'"' -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to set time parameter in TSO/E REXX getmsg function
Hi ALL, Thank you for your all suggestions. But my explanation seemed poor. What I would like to do is specifying the wait time indirectly in getmsg as follows. But the following code gets errors as I reported. ARG hsmcmd':'seconds <- get wait seconds as a parameter hsmid = 'DFHSM' <- set hsmid address console "F "hsmid","hsmcmd <- issue command msghsm = getmsg('resp.','SOL','HSM',,seconds) <- wait the specified seconds Of course when I specified the wait time directly as follows, it was OK. msghsm = getmsg('resp.','SOL','HSM',,20) Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/08/17 5:32, Mark Zelden wrote: On Tue, 16 Aug 2022 14:18:41 +0900, Nobuhiko Furuya wrote: Thanks. But I can't find how to code it. I would line to change time value depend on the logic. How can I resolve this ? Are you trying to do something that requires the REXX "interpret" instruction? Is that what you mean? https://www.ibm.com/docs/en/zos/2.4.0?topic=expression-using-interpret-instruction Best Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to set time parameter in TSO/E REXX getmsg function
Hi Willy, Thank you for your suggestion. I have confirmed that delay time(isfdeley) can be set from argue indirectly. But why do you recommend the REXX/SDSF API rather than TSO GETMSG, i.e ? Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/08/16 21:22, Willy Jensen wrote: In any case, I will strongly recommend that you use the REXX/SDSF API rather than TSO GETMSG, i.e.: /* Demo REXX/SDSF API system command */ zz=isfcalls('ON') isfdelay=2 /* value for WAIT */ Address SDSF ISFSLASH "'d prog,apf' (WAIT)" if rc<>0 then say 'Console failed rc' rc else do n=1 to isfulog.0 say '->'isfulog.n end -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to set time parameter in TSO/E REXX getmsg function
Thanks. But I can't find how to code it. I would line to change time value depend on the logic. How can I resolve this ? For example, when I coded as follows, T=60 msghsm = getmsg('resp.','SOL','HSM',,T) the following messages appeared. IKJ55303I THE CONSOLE COMMAND HAS TERMINATED.+ IKJ55303I AN ERROR OCCURRED DURING CONSOLE INITIALIZATION. THE MCSOPER RETURN CODE WAS X'0004' AND THE REASON CODE WAS X''. 25 *-* address console "CART HSM" +++ RC(-3) +++ 31 *-* address console "F "hsmid","hsmcmd +++ RC(-3) +++ IKJ55323I GETMSG PROCESSING HAS TERMINATED. A CONSOLE SESSION IS NOT ACTIVE. IKJ55307I THE CONSOLE COMMAND HAS TERMINATED.+ Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/08/16 13:33, Seymour J Metz wrote: There is nothing special about getmsg; the time parameter can be any expression that evaluates to a positive number. Note: specifying the CART in hexadecimal is certainly valid, but it makes the code harder to read. ________ From: IBM Mainframe Discussion List on behalf of Nobuhiko Furuya Sent: Monday, August 15, 2022 9:54 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: How to set time parameter in TSO/E REXX getmsg function Hi all, Can we set variable time parameter in TSO/E REXX getmsg function ? We would like to specify wait time value from argue. But getmsg seems to accept only specific numeric seconds as follows. msgrett = getmsg(’dmsg’,’sol’,’C1D7D7D3F2F9F6F8’X,,60) time the amount of time, in seconds, that GETMSG should wait, if the requested message has not yet been routed to the user's console. If you specify a time value and the time expires before the message is routed to the user's console, GETMSG does not retrieve the message. Otherwise, if the message is available before the time expires, GETMSG retrieves the message. If you do not specify time, GETMSG uses a time value of 0 seconds. If the message has not been routed to the user's console, GETMSG does not retrieve the message. Best regarss, Nobuhiko Furuya(古谷信彦) V-SOL Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
How to set time parameter in TSO/E REXX getmsg function
Hi all, Can we set variable time parameter in TSO/E REXX getmsg function ? We would like to specify wait time value from argue. But getmsg seems to accept only specific numeric seconds as follows. msgrett = getmsg(’dmsg’,’sol’,’C1D7D7D3F2F9F6F8’X,,60) time the amount of time, in seconds, that GETMSG should wait, if the requested message has not yet been routed to the user's console. If you specify a time value and the time expires before the message is routed to the user's console, GETMSG does not retrieve the message. Otherwise, if the message is available before the time expires, GETMSG retrieves the message. If you do not specify time, GETMSG uses a time value of 0 seconds. If the message has not been routed to the user's console, GETMSG does not retrieve the message. Best regarss, Nobuhiko Furuya(古谷信彦) V-SOL Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to keep the response from HSENDCMD batch
Hi Glenn, Thank you so much. Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. e-mail:furu...@v-sol.co.jp On 2022/05/27 13:31, Glenn Wilcock wrote: Glad that you were able to solve it! If you have other questions, please feel free to reach out directly... wilc...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to keep the response from HSENDCMD batch
Hi Glenn, Thank you for your comment. There is no HSM command requester except me because the system is in POK. But I have understood the reason because QUERYSET is coded as follows. Sorry I have not checked the rexx correctly. msghsm = getmsg('resp.','SOL','HSM',,22) The last "22" is wait time from console interface. When I changed the value to 3, the response was reasonable. "22" seems too long as a sample. Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. e-mail:furu...@v-sol.co.jp On 2022/05/26 4:50, Glenn Wilcock wrote: Hi, I'm not familiar with QUERYSET, but there is a single thread that processes certain commands (QUERY, LIST, etc), so it's possible that the QUERY was queued up behind one or more other commands that took longer to run. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Tape drive sharing
Hi Kobayashi-san, If your environment is not a sysplex configuration, you can't vary the tape drives online from multiple MVSes at a time. If you are using sysplex configuration, you can implement AutoSwitch. AutoSwicth can be implemented with AutoSwitch parameter in IODF(not IOCP but MVSCP) definition or VARY cuuu,AS,ON command. If the tape drives are defined with AutoSwich attribute, you can vary online them from multiple MVSes at a time. Of course even in AutoSwitch, a tape drive can be used from only 1 MVS physically at a time. Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. e-mail:furu...@v-sol.co.jp On 2022/05/26 13:18, (K.K.Paradox)T.Kobayashi wrote: Hello, Can IBM 3590 tape drive be online at the same time with both LPARs? If there is an LPAR that currently brought the *all drives* online, another LPAR will issue an IEE791I. IEE791I cuu VARY REJECTED - ASSIGNED TO ANOTHER SYSTEM I understand that both LPARs cannot use tape drives at the same time. I know there are products like CA-MIM to prevent this. Please do not consider separating the some drives and assigning it to both LPARs. Shared DASD can be online at the same time on both LPARs. Is it correct to recognize that the tape drives can also be online with both LPARs at the same time? If this is possible, could you please advise what settings are required? Current IOCP setting is bellow: CHPID PATH=(CSS(1),63),TYPE=FC,SHARED, X PARTITION=((CSS(1), X (PROD,TEST), X (=))), X PCHID=1EC CHPID PATH=(CSS(1),BA),TYPE=FC,SHARED, X PARTITION=((CSS(1), X (PROD,TEST), X (=))), X PCHID=2D0 E3590A10 CNTLUNIT CUNUMBR=3590,PATH=((CSS(1),63,BA)),CUADD=0, X UNIT=3590,UNITADD=((00,016)) EMIF0A10 IODEVICE CUNUMBR=3590,ADDRESS=(0A10,016),UNITADD=00, X UNIT=3590,STADET=Y Besy regards, Toyokazu Kobayashi -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to keep the response from HSENDCMD batch
Hi Glenn, Thank you for your information. By the way, why does QUERYSET rexx require more than 20 seconds to complete ? Best regrads, Nobuhiko Furuya(古谷信彦) V-SOL Inc. e-mail:furu...@v-sol.co.jp On 2022/05/20 11:28, Glenn Wilcock wrote: FYI - Here's a link to 8+ hours of video recordings of DFSMShsm Education: https://ibm.ent.box.com/v/DFSMS-Academ-DFSMShsm2021/folder/133296597964 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to keep the response from HSENDCMD batch
Hello Mike, Thank you for your comment. But QUERY command doesn't support ODS parameter and HSENDCMD itself has no option. I have found the solution provided in HSM.SAMPLE.TOOL(QUERYSET) which uses extended console support. Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. e-mail:furu...@v-sol.co.jp On 2022/05/18 17:01, Mike Schwab wrote: HSEND Q CDS ODS(my.output.file) On Wed, May 18, 2022 at 6:08 AM Nobuhiko Furuya wrote: Hello all, Could you give me your advice ? We are converting CA-Disk to DFSMShsm. In this situation, we are to use HSENDCMD in TSO batch as follows. //STEP1EXEC PGM=IKJEFT01 //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * HSENDCMD WAIT SETSYS SSMSTART(0005 0100) HSENDCMD WAIT QUERY SETSYS /* But the response from SETSYS or QUERY commands from HSENDCMD returned to just the TSO terminal where we submitted the job. So we can't keep the response from the above job as sysout or so. Can anyone give me your advice to keep the response ? Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. e-mail:furu...@v-sol.co.jp -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
How to keep the response from HSENDCMD batch
Hello all, Could you give me your advice ? We are converting CA-Disk to DFSMShsm. In this situation, we are to use HSENDCMD in TSO batch as follows. //STEP1 EXEC PGM=IKJEFT01 //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * HSENDCMD WAIT SETSYS SSMSTART(0005 0100) HSENDCMD WAIT QUERY SETSYS /* But the response from SETSYS or QUERY commands from HSENDCMD returned to just the TSO terminal where we submitted the job. So we can't keep the response from the above job as sysout or so. Can anyone give me your advice to keep the response ? Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. e-mail:furu...@v-sol.co.jp -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ZSORT support for program invoked sort
Hi Kolusu, I'm very sorry because I had missed the description. I understand ZSORT is accept Db2 Reorg Utility ZSORT from the beginning. Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/01/28 9:26, Sri h Kolusu wrote: Which APAR changed DFSORT to accept Db2 Reorg Utility with variable data length ZSORT as the exception ? Or is the above logic included from the beginning(PH03027) even though it is not stated ? Nobuhiko, If you have read the embedded "User Guide IBM Integrated Accelerator for Z Sort" PDF from https://www.ibm.com/support/pages/node/6335819 you would have found this sentence "Users of the Db2 Utilities for z/OS Suite with the application of APAR PH28183 will also be able to take advantage of this new function during REORG TABLESPACE if applied in conjunction with DFSORT APAR PH03207." Thanks, Kolusu DFSORT Development IBM Corporation -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ZSORT support for program invoked sort
Hi Dave, Thank you for you quick answer. OK, I understand the Db2 Reorg Utility in variable length data sort is the only exception. But basically DFSORT is to reject program invoked ZSORT with ICE267I RSN=200 (DFSORT was invoked via a program and is not supported with the use of the IBM Integrated Accelerator for Z Sort). Which APAR changed DFSORT to accept Db2 Reorg Utility with variable data length ZSORT as the exception ? Or is the above logic included from the beginning(PH03027) even though it is not stated ? Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/01/27 20:34, David Betten wrote: Db2 Utilities is the only exception to the program invoked restriction. And reading the APAR, you'll notice even that is limited to "variable length data sort of the REORG TABLESPACE utility". The reason for these restrictions is that data has to be fed into the sort at a high speed to realize benefit from the accelerator. The DFSORT and Db2 Utility teams had to do extensive work to optimize the interface of passing records between the utility and sort tasks to achieve that. A user program invoking DFSORT would not have that optimization and thus would not realize benefit from the accelerator. Dave Betten z/OS Performance Specialist Worldwide z Technical Sales IBM Technology Sales email: bet...@us.ibm.com "IBM Mainframe Discussion List" wrote on 01/26/2022 09:40:33 PM: From: "Nobuhiko Furuya" To: IBM-MAIN@LISTSERV.UA.EDU Date: 01/26/2022 09:40 PM Subject: [EXTERNAL] ZSORT support for program invoked sort Sent by: "IBM Mainframe Discussion List" Hello all, With APAR PH03207, ZSORT has been enabled as follows. https://www.ibm.com/support/pages/sites/default/files/inline-files/ DFSORT%20User%20Guide%20for%20PH03207.pdf In the above, some restrictions are described as follows. Below is a list of restrictions that will disable DFSORT's use of the IBM Integrated Accelerator for Z Sort and will revert to DFSORT traditional sorting technique: SORTL Facility is not enabled on the processor ZSORT is not enabled for the DFSORT job COPY Operation specified INREC specified JOINKEYS specified MERGE FIELDS specified MODS(EXITS) statement specified OUTREC specified OUTFIL specified SUM FIELDS specified DFSORT invoked from program Memory Objects cannot be create So it clearly states that "DFSORT invoked from program" is NOT supported as ZSORT. On the other hand, APAR PH28183 is to support ZSORT within Db2 Reorg utility as follows. https://www.ibm.com/support/pages/apar/PH28183 Ibelieve Db2 Reorg utility should invoke DFSORT with ZSORT option with the above APAR. Does PH28183 or some prerequisites eliminate the original DFSORT restriction ? Or do I misunderstand something ? Can anyone comment on this ? Nobuhiko Furuya(古谷信彦) V-SOL Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ZSORT support for program invoked sort
Hello all, With APAR PH03207, ZSORT has been enabled as follows. https://www.ibm.com/support/pages/sites/default/files/inline-files/DFSORT%20User%20Guide%20for%20PH03207.pdf In the above, some restrictions are described as follows. Below is a list of restrictions that will disable DFSORT's use of the IBM Integrated Accelerator for Z Sort and will revert to DFSORT traditional sorting technique: SORTL Facility is not enabled on the processor ZSORT is not enabled for the DFSORT job COPY Operation specified INREC specified JOINKEYS specified MERGE FIELDS specified MODS(EXITS) statement specified OUTREC specified OUTFIL specified SUM FIELDS specified DFSORT invoked from program Memory Objects cannot be create So it clearly states that "DFSORT invoked from program" is NOT supported as ZSORT. On the other hand, APAR PH28183 is to support ZSORT within Db2 Reorg utility as follows. https://www.ibm.com/support/pages/apar/PH28183 Ibelieve Db2 Reorg utility should invoke DFSORT with ZSORT option with the above APAR. Does PH28183 or some prerequisites eliminate the original DFSORT restriction ? Or do I misunderstand something ? Can anyone comment on this ? Nobuhiko Furuya(古谷信彦) V-SOL Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFDSS Restore IGD306I problem
Hi -san, You can find the reason code 1013 in DFSMSdfp Diagnosis as follows. 1013 (X'03F5') No storage group was assigned by the storage group routine. IGD306I message manual directs you to check the above manual. Also you can find the following messages in your joblog. 0ADR709E (001)-VDSS (01), AN ERROR OCCURRED IN THE STORAGE MANAGEMENT SUBSYSTEM WHILE ALLOCATING DATA SET SAMPLE.WORK1. SMS MESSAGES FOLLOW. IGD01013I DATA SET ALLOCATION REQUEST FAILED - THE ACS STORAGE GROUP ROUTINE DID NOT ASSIGN A STORAGE GROUP IGD17354I UNEXPECTED RETURN CODE FROM AUTOMATIC CLASS SELECTION SERVICES RETURN CODE IS 8 REASON CODE IS 1013 DATA SET BEING PROCESSED IS SAMPLE.WORK1 It clearly states that your SG acs routine in the restoring environment doesn't assign a storage group to the data set. Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. e-mail:furu...@v-sol.co.jp Mobile:+81-90-4096-7700 2-14-5-1001, Ohkubo, Narashino, Chiba, Japan 275-0011 On 2021/10/07 12:58, (K.K.Paradox)T.Kobayashi wrote: Hello, I was restoring multiple dumps but ran into an issue where only one dump could not be restored due to IGD306I error. The dumped and restored environments are different. I could not find any details of the REASON CODE 1013 and issued messages (IGD1 and IGD2). Is there a cause and solution for this problem? Issued Messages: 14.02.45 JOB00887 IGD306I UNEXPECTED ERROR DURING IGDACS00 PROCESSING 061 061 RETURN CODE 8 REASON CODE 1013 061 THE MODULE THAT DETECTED THE ERROR IS IGDVTSCM 061 SMS MODULE TRACE BACK - VTSCM VTSCR SSIRT 061 SYMPTOM RECORD CREATED, PROBLEM ID IS IGD1 14.02.48 JOB00887 IGD306I UNEXPECTED ERROR DURING IGDACS00 PROCESSING 062 062 RETURN CODE 8 REASON CODE 1013 062 THE MODULE THAT DETECTED THE ERROR IS IGDVTSCM 062 SMS MODULE TRACE BACK - VTSCM VTSCR SSIRT 062 SYMPTOM RECORD CREATED, PROBLEM ID IS IGD2 Detail: 1PAGE 0001 5695-DF175 DFSMSDSS V2R01.0 DATA SET SERVICES 2021.279 14:01 - RESTORE - DATASET( - INCLUDE( ** - )) - BYPASSACS( ** - )) - INDD(INTAPE1) - OUTDD(DO1) CAT REP ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE ' ADR109I (R/I)-RI01 (01), 2021.279 14:01:38 INITIAL SCAN OF USER CONTROL STATEMENTS COMPLETED ADR106W (001)-RI01 (01), TOO MANY RIGHT PARENTHESES FOUND. EXCESS IGNORED ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK 0ADR006I (001)-STEND(01), 2021.279 14:01:38 EXECUTION BEGINS 0ADR780I (001)-TDDS (01), THE INPUT DUMP DATA SET BEING PROCESSED IS IN LOGICAL DATA SET FORMAT AND WAS CREATED BY Z/OS DFSMSDSS VERSION 1 RELEASE 13 MODIFICATION LEVEL 0 ON 2015.323 06:30:28 0ADR396I (001)-NEWDS(01), DATA SET SAMPLE.SYSPUNCH ALLOCATED, ON VOLUME(S): AD3710 0ADR465I (001)-DALOC(01), DATA SET SAMPLE.SYSPUNCH HAS BEEN CATALOGED IN CATALOG MCAT.ZOSV2 0ADR474I (001)-TDNVS(01), DATA SET SAMPLE.SYSPUNCH CONSISTS OF 0001 TARGET TRACKS AND 0001 SOURCE TRACKS 0ADR489I (001)-TDLOG(01), DATA SET SAMPLE.SYSPUNCH WAS RESTORED 0ADR396I (001)-NEWDS(01), DATA SET SAMPLE.SYSREC00 ALLOCATED, ON VOLUME(S): AD3710 0ADR465I (001)-DALOC(01), DATA SET SAMPLE.SYSREC00 HAS BEEN CATALOGED IN CATALOG MCAT.ZOSV2 0ADR474I (001)-TDNVS(01), DATA SET SAMPLE.SYSREC00 CONSISTS OF 3972 TARGET TRACKS AND 3972 SOURCE TRACKS 0ADR489I (001)-TDLOG(01), DATA SET SAMPLE.SYSREC00 WAS RESTORED 0ADR396I (001)-NEWDS(01), DATA SET SAMPLE.SORTOUT ALLOCATED, ON VOLUME(S): AD3710 0ADR465I (001)-DALOC(01), DATA SET SAMPLE.SORTOUT HAS BEEN CATALOGED IN CATALOG MCAT.ZOSV2 0ADR474I (001)-TDNVS(01), DATA SET SAMPLE.SORTOUT CONSISTS OF 3972 TARGET TRACKS AND 3972 SOURCE TRACKS 0ADR489I (001)-TDLOG(01), DATA SET SAMPLE.SORTOUT WAS RESTORED 0ADR396I (001)-NEWDS(01), DATA SET SAMPLE.SYSPUNCH ALLOCATED, ON VOLUME(S): AD3710 0ADR465I (001)-DALOC(01), DATA SET SAMPLE.SYSPUNCH HAS BEEN CATALOGED IN CATALOG MCAT.ZOSV2 0ADR474I (001)-TDNVS(01), DATA SET SAMPLE.SYSPUNCH CONSISTS OF 0001 TARGET TRACKS AND 0001 SOURCE TRACKS 0ADR489I (001)-TDLOG(01), DATA SET SAMPLE.SYSPUNCH WAS RESTORED 0ADR709E (001)-VDSS (01), AN ERROR OCCURRED IN THE STORAGE MANAGEMENT SUBSYSTEM WHILE ALLOCATING DATA SET SAMPLE.WORK1. SMS MESSAGES FOLLOW. IGD01013I DATA SET ALLOCATION REQUEST FAILED - THE ACS STORAGE GROUP ROUTINE DID NOT ASSIGN A STORAGE GROUP IGD17354I UNEXPECTED RETURN CODE FROM AUTOMATIC CLASS SELECTION SERVICES RETURN CODE IS 8 REASON CODE IS 1013 DATA SET BEING PROCESSED IS SAMPLE.WORK1 1PAGE 0002 5695-DF175 DFSMSDSS V2R01.0 DATA SET SERVICES 2021.279 14:01 - IGD306I UNEXPECTED ERROR DURING IGDACS00 PROCESSING RETURN CODE 8 REASON CODE 1013 THE MODULE THAT DETECTED THE ERROR IS IGDVTSCM SMS MODULE TRACE BACK - VTSCM VT