Skip to content

Commit

Permalink
Update to 6.3.1
Browse files Browse the repository at this point in the history 
---------------
On entry, or change, if the dataset is not qualified in quotes and
thus fails the sysdsn() test but would work with quotes then
quotes are added.
  • Loading branch information
@lbdyck
lbdyck committed Jan 4, 2024
1 parent 3aac5bf commit 878031d
Show file tree
Hide file tree
Showing 10 changed files with 46 additions and 17 deletions.
6 changes: 3 additions & 3 deletions .zigi/PDSEGEN.EXEC
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
4 changes: 2 additions & 2 deletions .zigi/PDSEGEN.PANELS
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion .zigi/PDSEGEN.PDS
View file
Original file line number Diff line number Diff line change
@@ -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
Expand Down
6 changes: 3 additions & 3 deletions .zigi/PDSEGEN.SAMPLE.BACKUP
View file
Original file line number Diff line number Diff line change
@@ -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
Expand Down
21 changes: 20 additions & 1 deletion PDSEGEN.EXEC/PDSEGEN
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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 *
Expand Down Expand Up @@ -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*
Expand All @@ -708,6 +710,7 @@
* http://www.gnu.org/licenses/ *
* ---------------------------------------------------------- *
* ------------------- Soli Deo Gloria ---------------------- */

arg options

/* -------------------------------- *
Expand Down Expand Up @@ -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)'
Expand Down Expand Up @@ -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)'
Expand Down
4 changes: 2 additions & 2 deletions PDSEGEN.EXEC/PDSEGVER
View file
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
/* -------------------- rexx procedure -------------------- */
ver = '6.3.0'
ver = '6.3.1'
return ver
/* Name: PDSEGVER |
| |
Expand All @@ -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 |
Expand Down
6 changes: 3 additions & 3 deletions PDSEGEN.PANELS/PDSEGHAU
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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. |
Expand All @@ -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 */
5 changes: 5 additions & 0 deletions PDSEGEN.PANELS/PDSEGHCG
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
5 changes: 5 additions & 0 deletions PDSEGEN.PDS/$CHANGES
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
4 changes: 2 additions & 2 deletions PDSEGEN.SAMPLE.BACKUP/$BACKUP
View file
Original file line number Diff line number Diff line change
@@ -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

Expand Down Expand Up @@ -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)

0 comments on commit 878031d

Please sign in to comment.