diff --git a/.zigi/PDSEGEN.EXEC b/.zigi/PDSEGEN.EXEC index 9e63729..acacdcd 100644 --- a/.zigi/PDSEGEN.EXEC +++ b/.zigi/PDSEGEN.EXEC @@ -3,14 +3,14 @@ PDSEGBAK 16/07/14 22/11/09 1 99 14:56:04 849 845 0 PDSE PDSEGCMD 20/10/20 22/11/09 1 2 14:54:46 136 133 0 PDSE PDSEGCPR 16/09/27 23/03/18 1 90 13:52:52 285 275 0 PDSE PDSEGDSL 20/07/25 22/06/03 1 66 11:18:55 502 492 0 PDSE -PDSEGEN 21/02/23 23/11/25 1 94 13:10:54 7056 6668 0 PDSE +PDSEGEN 21/02/23 24/01/04 1 97 08:54:24 7075 6668 0 PDSE PDSEGENC 16/07/18 22/11/10 1 99 10:16:32 869 867 0 PDSE PDSEGENM 16/06/02 23/03/08 1 99 14:30:19 303 288 0 PDSE -PDSEGENS 16/06/27 23/11/26 1 65 14:19:58 185 63 0 PDSE +PDSEGENS 16/06/27 24/01/04 1 65 12:18:09 185 63 0 PDSE PDSEGENX 16/06/20 21/11/25 1 19 12:24:00 41 41 0 PDSE PDSEGFND 16/08/02 22/10/26 1 24 13:15:40 178 174 0 PDSE PDSEGRST 17/09/22 21/02/23 1 23 02:07:00 391 391 0 PDSE PDSEGVAL 16/08/01 17/11/06 1 9 10:01:00 133 133 0 PDSE -PDSEGVER 21/02/23 23/11/26 1 48 13:57:08 29 26 0 PDSE +PDSEGVER 21/02/23 24/01/04 1 50 08:54:05 29 26 0 PDSE PG 16/06/24 17/06/14 1 1 12:01:00 3 3 0 PDSE TRYIT 17/06/20 23/07/09 1 53 12:57:37 1079 1054 0 PDSE diff --git a/.zigi/PDSEGEN.PANELS b/.zigi/PDSEGEN.PANELS index 541aaf3..32987ae 100644 --- a/.zigi/PDSEGEN.PANELS +++ b/.zigi/PDSEGEN.PANELS @@ -37,12 +37,12 @@ PDSEGFND 17/04/04 19/02/28 1 11 10:47:29 24 22 0 PDSE PDSEGFP 19/08/13 19/08/13 1 0 08:07:01 19 19 0 PDSE PDSEGHAG 01/12/12 19/12/11 1 61 09:30:18 24 55 0 PDSE PDSEGHAT 17/01/18 17/12/27 1 26 12:59:00 32 23 0 PDSE -PDSEGHAU 21/02/24 23/11/26 1 45 14:13:33 44 42 0 PDSE +PDSEGHAU 21/02/24 24/01/04 1 46 08:56:09 44 42 0 PDSE PDSEGHBE 17/08/18 18/04/25 1 23 12:59:00 42 33 0 PDSE PDSEGHBJ 01/12/12 17/12/27 1 77 13:21:18 78 55 0 PDSE PDSEGHBR 01/12/12 17/12/27 1 69 12:59:04 50 55 0 PDSE PDSEGHC 01/12/12 19/08/13 1 72 08:36:36 92 55 0 PDSE -PDSEGHCG 21/02/24 23/11/26 1 59 14:14:40 365 846 0 PDSE +PDSEGHCG 21/02/24 24/01/04 1 60 08:57:50 370 846 0 PDSE PDSEGHD 01/12/12 17/12/27 1 64 12:59:04 30 55 0 PDSE PDSEGHDT 20/07/26 22/06/03 1 3 11:21:41 49 45 0 PDSE PDSEGHEC 01/12/12 17/12/27 1 68 12:59:04 38 55 0 PDSE diff --git a/.zigi/PDSEGEN.PDS b/.zigi/PDSEGEN.PDS index 3124bb8..4287981 100644 --- a/.zigi/PDSEGEN.PDS +++ b/.zigi/PDSEGEN.PDS @@ -1,5 +1,5 @@ $$$DOC 16/06/10 22/04/12 1 28 09:42:03 430 177 0 PDSE -$CHANGES 21/02/24 23/11/26 1 45 14:21:30 1966 1729 0 LBDYCK +$CHANGES 21/02/24 24/01/04 1 46 12:17:11 1971 1729 0 PDSE $INSTALL 16/08/04 20/02/02 1 12 11:02:00 76 21 0 PDSE $MODULES 16/08/05 18/03/19 1 4 10:52:00 63 48 0 PDSE $MONITOR 19/11/01 19/11/01 1 0 06:35:00 11 11 0 PDSE diff --git a/.zigi/PDSEGEN.SAMPLE.BACKUP b/.zigi/PDSEGEN.SAMPLE.BACKUP index b4f3ed2..0171d5f 100644 --- a/.zigi/PDSEGEN.SAMPLE.BACKUP +++ b/.zigi/PDSEGEN.SAMPLE.BACKUP @@ -1,6 +1,6 @@ -$ALLOC 23/11/26 23/11/26 1 0 14:20:01 1 1 0 PDSE -$BACKUP 23/11/26 23/11/26 1 0 14:20:01 40 40 0 PDSE -$INDEX 23/11/26 23/11/26 1 0 14:20:01 28 28 0 PDSE +$ALLOC 24/01/04 24/01/04 1 0 12:18:13 1 1 0 PDSE +$BACKUP 24/01/04 24/01/04 1 0 12:18:13 40 40 0 PDSE +$INDEX 24/01/04 24/01/04 1 0 12:18:13 28 28 0 PDSE @0000001 16/08/15 16/08/15 1 3 08:22:00 18 11 0 PDSE @0000002 16/08/15 18/03/20 1 5 06:20:00 18 11 0 PDSE @0000003 16/08/15 18/03/20 1 5 06:26:00 18 11 0 PDSE diff --git a/PDSEGEN.EXEC/PDSEGEN b/PDSEGEN.EXEC/PDSEGEN index de91ec7..3354dce 100644 --- a/PDSEGEN.EXEC/PDSEGEN +++ b/PDSEGEN.EXEC/PDSEGEN @@ -174,6 +174,8 @@ * and have incorporated as PDSEGMAT. * * * * History: * + * 01/04/24 - v6.3.1 - Allow unqualified dsnames on * + * entry or change (fix if so) * * 11/25/23 - v6.2.9 - Improve Orphan/Ghost to only * * display orphan elements * * 11/21/23 - v6.2.8 - Count Ghost members fix * @@ -693,7 +695,7 @@ * 05/26/16 - v0.1 - creation * * * * ---------------------------------------------------------- * - * Copyright (c) 2017-2022 by Lionel B. Dyck * + * Copyright (c) 2017-2024 by Lionel B. Dyck * * ---------------------------------------------------------- * * Support is on a best effort and time available basis which * * is why the complete source is provided for this application* @@ -708,6 +710,7 @@ * http://www.gnu.org/licenses/ * * ---------------------------------------------------------- * * ------------------- Soli Deo Gloria ---------------------- */ + arg options /* -------------------------------- * @@ -1011,6 +1014,16 @@ Restart: exit 0 end else do + /* ------------------------------------------------------- * + | Test if the input dataset is not qualified if it exists | + | when qualified within quotes. | + * ------------------------------------------------------- */ + if left(pdsedsn,1) /= "'" then + if sysdsn("'"pdsedsn"'") = 'OK' then do + pdsedsn = "'"pdsedsn"'" + call start + exit 0 + end zerrsm = 'Error' zerrlm = pdsedsn sysdsn(pdsedsn) 'setmsg msg(isrz003)' @@ -1076,6 +1089,12 @@ Start: * ------------------------------------------------------ */ call fixup_pdsedsn if sysdsn(pdsedsn) /= 'OK' then do + if left(pdsedsn,1) /= "'" then + if sysdsn("'"pdsedsn"'") = 'OK' then do + pdsedsn = "'"pdsedsn"'" + call start + exit 0 + end zerrsm = null zerrlm = 'Error.' pdsedsn sysdsn(pdsedsn) 'setmsg msg(isrz003)' diff --git a/PDSEGEN.EXEC/PDSEGVER b/PDSEGEN.EXEC/PDSEGVER index 50b3948..3f991fe 100644 --- a/PDSEGEN.EXEC/PDSEGVER +++ b/PDSEGEN.EXEC/PDSEGVER @@ -1,5 +1,5 @@ /* -------------------- rexx procedure -------------------- */ - ver = '6.3.0' + ver = '6.3.1' return ver /* Name: PDSEGVER | | | @@ -12,7 +12,7 @@ | Author: Lionel B. Dyck | | | | History: (most recent on top) | - | 11/26/23 - 6.3.0 - Reflect updates to package | + | 01/04/24 - 6.3.1 - Reflect updates to package | | 11/26/23 - 6.3.0 - Reflect updates to package | | 11/21/23 - 6.2.8 - Reflect updates to package | | 07/09/23 - 6.2.7 - Reflect updates to package | diff --git a/PDSEGEN.PANELS/PDSEGHAU b/PDSEGEN.PANELS/PDSEGHAU index 54bb9cd..5491a72 100644 --- a/PDSEGEN.PANELS/PDSEGHAU +++ b/PDSEGEN.PANELS/PDSEGHAU @@ -23,8 +23,8 @@ | Contributors: John Kalinich Greg Price Bill Smith | | Bruce Koss Thomas Conley Salvador Carrasco | |----------------------------------------------------------------------| -| Version number: 6.3.0 | -| Date : Nov 26, 2023 | +| Version number: 6.3.1 | +| Date : Jan 04, 2024 | |----------------------------------------------------------------------| | | | Support of PDSEGEN is as time allows. | @@ -40,5 +40,5 @@ &zcont = PDSEGHD )Proc )End -/* Copyright (c) 2020-2023 by Lionel B. Dyck */ +/* Copyright (c) 2020-2024 by Lionel B. Dyck */ /* GNU GENERAL PUBLIC LICENSE V3 */ diff --git a/PDSEGEN.PANELS/PDSEGHCG b/PDSEGEN.PANELS/PDSEGHCG index 5996eeb..a80639e 100644 --- a/PDSEGEN.PANELS/PDSEGHCG +++ b/PDSEGEN.PANELS/PDSEGHCG @@ -17,6 +17,11 @@ +The following is a list of the changes and enhancements that have been +made to the~PDSEGEN+package.+ + ++~Version 6.3.1 Jan 04, 2024 ++ - Exec changes ++ PDSEGEN - Allow non-quoted fully qualified datasets on entry and change ++ and add quotes if needed. ++ +~Version 6.3.0 Nov 26, 2023 + - Panel changes + PDSEGHHW - update for Orphan command diff --git a/PDSEGEN.PDS/$CHANGES b/PDSEGEN.PDS/$CHANGES index 99db3a3..bd49049 100644 --- a/PDSEGEN.PDS/$CHANGES +++ b/PDSEGEN.PDS/$CHANGES @@ -5,6 +5,11 @@ Change History PDSEGHCG - Change for release update (Panel) PDSEGVER - Change for release update (Exec) + Version 6.3.1 Jan 04, 2024 + - Exec changes + PDSEGEN - Allow non-quoted fully qualified datasets on entry and + change and add quotes if needed. + Version 6.3.0 Nov 26, 2023 - Panel changes PDSEGHHW - update for Orphan command diff --git a/PDSEGEN.SAMPLE.BACKUP/$BACKUP b/PDSEGEN.SAMPLE.BACKUP/$BACKUP index 120f4b8..f7ec62e 100644 --- a/PDSEGEN.SAMPLE.BACKUP/$BACKUP +++ b/PDSEGEN.SAMPLE.BACKUP/$BACKUP @@ -1,7 +1,7 @@ Processing backup from PDSEGEN.SAMPLE.PDS to PDSEGEN.SAMPLE.BACKUP -Time: 14:20:00 Date: 26 Nov 2023 +Time: 12:18:13 Date: 4 Jan 2024 Preparing to backup: 28 members/generations @@ -37,4 +37,4 @@ Backing up base member LINEOPS to @0000028 Backed up 28 members from PDSEGEN.SAMPLE.PDS to PDSEGEN.SAMPLE.BACKUP -Elapsed time: 00:00.15 (mm:ss:th) +Elapsed time: 00:00.00 (mm:ss:th)