I felt that the SPEC doesn't and much complication to the pipeline:
"PIPE (endchar ?)",
"| STEM SYS.",
"|0:PICK 6.3 \== /54B/",
"|2:PICK W-1 == /1/",
"|s:PICK 9.1 \== /S/",
"|p:PICK 9.1 \== /P/",
"| SPEC /VM1/ 1.8 1-* NW RECNO FROM" X2D(2000) "D2X NW.4 RIGHT
/C/ NW",
"|i:FANINANY",
"| SPEC W2 X2C 1.2 W1 N.8 W2 NW.4 W3 NW.6 W4 NW.8 W5 NW.4 W6 NW.7
W7 NW.8 RIGHT W10-* NW",
"| SORT 3.8 1.2",
"| SPEC 3-* 1",
"| PREFACE STRLITERAL '*Phase rCCUU VolSer User Id. vCCUU
DevType Cyls New How'",
"| PREFACE STRLITERAL
'*---------------------------------------------------------------'",
"| PREFACE STRLITERAL '* How: (C)opy, (R)eassign & (F)ormat
for VM usage'",
"| PREFACE STRLITERAL '* VM0 - Prior to any migration
(testing)'",
"| PREFACE STRLITERAL '* VM1 - z/VM system'",
"| PREFACE STRLITERAL '* VM2 - Misc. VM volumes'",
"| PREFACE STRLITERAL '* UAGLOBE - UA/Globe migration'",
"| PREFACE STRLITERAL '* AIL2 - AIL test volumes
(reassigned)'",
"| PREFACE STRLITERAL '* AIL1 - AIL production volumes and
flashcopy'",
"| > MIGDASD TABLE A",
"?s:",
"| SPEC /VM1/ 1.8 1-* NW RECNO FROM" X2D(200C) "D2X NW.4 RIGHT W7
NW",
"|i:",
"?p:",
"| SPEC /VM1/ 1.8 1-* NW RECNO FROM" X2D(2010) "D2X NW.4 RIGHT W7
NW",
"|i:",
"?2:",
"| SPEC /VM2/ 1.8 1-* NW RECNO FROM" X2D(2040) "D2X NW.4 RIGHT W7
NW",
"|q:FANINANY",
"|i:",
"?0:",
"| SPEC /VM0/ 1.8 1-* NW RECNO FROM" X2D(2020) "D2X NW.4 RIGHT W7
NW",
"|q:",
"? STEM AIL.",
"|t:PICK W3 \== /AILTEST/",
"|f:PICK 1.1 \== /9/",
"| SPEC /AIL1/ 1.8 1-* NW RECNO FROM" X2D(2100) "D2X NW.4 RIGHT
W7 NW",
"|i:",
"?f:",
"| SPEC /AIL1/ 1.8 1-* NW RECNO FROM" X2D(F100) "D2X NW.4 RIGHT
a: 6.3 .",
'IF a=="MOD" THEN',
"/C/ NW",
'ELSEIF a=="MVS" THEN',
"/C/ NW",
"ELSE",
"/R/ NW",
"ENDIF",
"|i:",
"?t:",
"| SPEC /AIL2/ 1.8 1-* NW RECNO FROM" X2D(2500) "D2X NW.4 RIGHT
/R/ NW",
"|i:",
"? STEM UA.",
"|j:PICK 1.1 \== /7/",
"|k:PICK 1.1 \== /8/",
"|b:PICK W6 == /10017/",
"| SPEC /UAGLOBE/ 1.8 1-* NW RECNO FROM" X2D(2800) "D2X NW.4
RIGHT W7 NW",
"|i:",
"?j:",
"| SPEC /UAGLOBE/ 1.8 1-* NW RECNO FROM" X2D(FA00) "D2X NW.4
RIGHT a: 6.3 .",
'IF a=="MOD" THEN',
"/C/ NW",
'ELSEIF a=="MVS" THEN',
"/C/ NW",
"ELSE",
"/R/ NW",
"ENDIF",
"|i:",
"?k:",
"| SPEC /UAGLOBE/ 1.8 1-* NW RECNO FROM" X2D(F800) "D2X NW.4
RIGHT a: 6.3 .",
'IF a=="MOD" THEN',
"/C/ NW",
'ELSEIF a=="MVS" THEN',
"/C/ NW",
"ELSE",
"/R/ NW",
"ENDIF",
"|i:",
"?b:",
"| SPEC /UAGLOBE/ 1.8 1-* NW RECNO FROM" X2D(2A00) "D2X NW.4
RIGHT W7 NW",
"|i:"
Translation: I have three STEM variables that represent categories of
DASD. (We are migrating from DS8100 to a DS8870.) This further
categories the DASD into "production", "flashcopy" (Fxxx), etc. and
assigns an address (using an address converted to a decimal for RECNO).
These MOD & MVS prefixed volume serial number need to be (C)opied
(rather than just (R)edefined in the VM directory).
I know TMI!
Since this is a conversion, I don't expect any more usage of this PIPE
(EXEC) after the conversion is complete.
Okay, I've opened myself up now...completely exposed....let the games
(criticisms) begin!
Frank M. Ramaekers Jr.
(remainder truncated due to: Your message cannot be distributed to the
CMS-PIPELINES list because it exceeds the maximum message size of
1,000 lines)
