./ ADD NAME=$NOARC *** DUMMY RECORD *** KEEP FOR "NOARC" PROCESSING *** ./ ADD NAME=$P@DAL & TYPE(typeval) INTENS(intensval) CAPS(capsval) JUST(justval) PAD/PADC(padval) SKIP(skipval) ATTN(attnval) COLOR(colval) HILITE(hilval) FORMAT(formval) NUMERIC(numval) OUTLINE(outval) REP(repval) PAS(pasval) CKBOX(ckboxval) RADIO(radioval) LISTBOX(lb-val) DDLIST(dd-val) COMBO(cl-val) CSRGRP(cgrp-val) WIDTH(wid-val) DEPTH(dep-val) UNAVAIL(unav-val) CUADYN(cdynval) VER (&MEMBER MEMBER) VER (&AO1 LIST Y N) VER (&ELEMENT LIST Y N) VER (&AO2 LIST Y N) VER (&AO3 LIST Y N) VER (&AO4 LIST Y N) VER (&LOGOPER LIST '=' '>' '<' '>=' '<=' '¬=' ' ') VER (&LOGMM NUM) VER (&AO5 LIST Y N) VER (&RFPOPER LIST '=' '>' '<' '>=' '<=' '¬=' ' ') VER (&RFPMM NUM) VER (&AO6 LIST Y N) VER (&PRDOPER LIST '=' '>' '<' '>=' '<=' '¬=' ' ') VER (&PRDMM NUM) VER (&AO7 LIST Y N) ./ ADD NAME=ABENDLG2 )ATTR . TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) @ TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) . TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) PAD(' ') CAPS(ON) * TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) PAD(' ') CAPS(OFF) )BODY EXPAND({{) %{-{ ABEND DETAIL {-{ %OPTION ==>_ZCMD % . Abending Job ==>.JOBNAME .Abend Type ==>.Z\(S/U).On-call SE ==>.SEID .Abending Program ==>.PROGRAM .Abend Code ==>.Z . Cycle Date ==>.MM.DD.YY. . IDMS DML Code Error Status ==>.Z \(If Any) MM DD YY .Additional Info (e.g. who/when SE notified, what step, problem, solution, etc.) \>*DSC01 \>*DSC02 \>*DSC03 \>*DSC04 \>*DSC05 \>*DSC06 \>*DSC07 \>*DSC08 \>*DSC09 \>*DSC10 \>*DSC11 \>*DSC12 \>*DSC13 \>*DSC14 \>*DSC15 .Press%.to save your changes or use the%END.command to quit )INIT &ZCMD = &Z .ZVARS = '(SUFLAG ABNDCODE IACODE)' )PROC VPUT (ZSCML) PROFILE VER (&SUFLAG,NB,LIST,?,S,U,MSG=UTLM002B) VER (&PROGRAM,NB) VER (&ABNDCODE,NB) VER (&JOBNAME,NB) VER (&SEID,NB) VER (&MM,NB,NUM,MSG=UTLM002C) VER (&MM,RANGE,1,12,MSG=UTLM002C) VER (&DD,NB,NUM,MSG=UTLM002D) VER (&DD,RANGE,1,31,MSG=UTLM002D) VER (&YY,NB,NUM,MSG=UTLM002E) )END ./ ADD NAME=ABENDLOG )ATTR @ TYPE(OUTPUT) INTENS(LOW) + TYPE(TEXT) INTENS(LOW) SKIP(ON) $ TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) ? TYPE(OUTPUT) INTENS(HIGH) JUST(RIGHT) PAD(0) _ TYPE(INPUT) INTENS(HIGH) CAPS(IN) )BODY EXPAND({{) %{-{ ABEND LOG {-{ %OPTION ===>_ZCMD %SCROLL ===>_Z + % $To see the table in a different order type >>>%SORT column1 column2 ... etc $Valid primary commands are :%I-Insert L-Locate$and%SORT $Valid line commands are :%I-Insert D-Delete$and%S-Select + +SEL JOB PROGRAM SYS/USER ABEND IDMS/CODE DATE SE + V --------- -------- -------- ----- --------- ------ ------- )MODEL _Z+ @JOBNAME @PROGRAM @Z @Z @Z @CYCDATE @SEID )INIT &ZHTOP = UTILH033 .ZVARS = '(ZSCML SEL SUFLAG ABNDCODE IACODE)' &ZCMD = &Z &SEL = &Z )REINIT IF (.MSG = ' ') &SEL = &Z &ZCMD = &Z )PROC VPUT (ZSCML) PROFILE &ZEDLMSG = 'Valid commands: I-nsert, D-elete, S-elect' VER (&SEL,LIST,I,D,S,MSG=UTLZ001) )END ./ ADD NAME=ADDRCMDS )ATTR /********************************************************************** /* PANEL: ADDRCMDS * /* AUTHOR: DAVID LEIGH * /* FUNCTION: THIS IS A POP-UP TABLE DISPLAY OF VALID COMMANDS FOR THE * /* ADDRESS TABLE SYSTEM. * /********************************************************************** _ TYPE(INPUT) INTENS(NON) @ TYPE(OUTPUT) INTENS(HIGH) . TYPE(OUTPUT) INTENS(LOW) /* )BODY WINDOW(70,14) )BODY @ZWINTTL _ZCMD )MODEL @ADCMD .ADCMDDES % )END ./ ADD NAME=ADDRESS )ATTR + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(OFF) ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) PAD('_') . TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) . TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) )BODY EXPAND({{) %{-{ Address Table {-{ %COMMAND ==>_ZCMD %SCROLL ==>_Z + % )MODEL ROWS(&SCANALL) ~Z.ID1:.ID1 .1st:_FNAME1 .Last:_LNAME1 .Maiden:.Z. .ID2:.ID2 .1st:_FNAME2 .Last:_LNAME2 .Maiden:.Z. .Addr1:_ADDRESS1 . .Addr2:_ADDRESS2 . .City:_CITY .StatProv:_STATPROV . .ZipPost:_ZIPPOST .Country:.COUNTRY .Category:.CATEGORY. .Phone1:_PHONE1 .Phone2:_PHONE2 . )INIT &ZHTOP = UTILH047 .ZVARS = '(ZSCML ZSEL MAIDEN1 MAIDEN2)' &ZCMD = &Z &ZSEL = &Z VGET (SCANALL) SHARED )REINIT VGET (SCANALL) SHARED )PROC VPUT (ZSCML) PROFILE )END ./ ADD NAME=ADDRESSX )ATTR ? TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) . TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) } TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(OFF) PAD(NULLS) HILITE(USCORE) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(OFF) PAD(NULLS) ~ TYPE(INPUT) INTENS(HIGH) COLOR(RED) CAPS(OFF) PAD(NULLS) . TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(IN) PAD(NULLS) )BODY EXPAND({{) %{-{ Address/Letter Maintenance {-{ %COMMAND ===>~ZCMD %SCROLL ===>_Z + .Type%COMMAND.for a list of valid commands. )MODEL .Z?ID-1}ID1 ?1st-1}FNAME1 ?2nd-1}LNAME1 ?Maiden-1.Z? .ID-2_ID2 .1st-2_FNAME2 .2nd-2_LNAME2 .Maiden-2.Z. .Addr1_ADDRESS1 . .Addr2_ADDRESS2 . .City_CITY .State_STATPROV .Zip.ZIPPOST . .Phone1_PHONE1 .Country.COUNTRY . .Phone2_PHONE2 .Category.CATEGORY . )INIT .ZVARS = '(ZSCML ZSEL MAIDEN1 MAIDEN2)' &ZSEL = &Z &ZCMD = &Z )REINIT IF (.MSG = ' ') &ZCMD = &Z &ZSEL = &Z )PROC IF (&ZSEL > &Z) VER (&ZSEL,LIST,D,L,S) VER (&MAIDEN1,NONBLANK,LIST,Y,N) VER (&MAIDEN2,NONBLANK,LIST,Y,N) IF (&FNAME1 = &Z) IF (&LNAME1 = &Z) &ZEDLMSG = 'FIRST NAME LINE MUST BE USED BEFORE SECOND NAME LINE' VPUT ZEDLMSG SHARED VER (&FNAME2,LIST, ,MSG=UTLZ001) VER (&LNAME2,LIST, ,MSG=UTLZ001) VPUT (ZSCML) PROFILE VPUT (ZCMD) SHARED )END ./ ADD NAME=ADDRESS2 )ATTR . TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) ? TYPE(TEXT) INTENS(LOW) COLOR(PINK) SKIP(ON) $ TYPE(TEXT) INTENS(LOW) COLOR(GREEN) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(OFF) PAD(NULLS) . TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(IN) PAD(NULLS) \ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(OFF) PAD(NULLS) HILITE(USCORE) )BODY EXPAND({{) %{-{ Address/Letter Maintenance Permanent Address/Notes {-{ %COMMAND ===>_ZCMD . % ?Current Name :%&XNAME ${ { Type%COPY ADDRESS$to copy the regular address here { { .In Care of%==>_INCAREOF . .Addr1_ICOADDR1 . .Addr2_ICOADDR2 . .City_ICOCITY .State_ICOSTATE .Zip.ICOZIP . .Phone_ICOPHONE .Country.ICOCNTRY . % %Miscellaneous Notes : \NOTE1 . \NOTE2 . \NOTE3 . \NOTE4 . \NOTE5 . \NOTE6 . \NOTE7 . \NOTE8 . \NOTE9 . \NOTE10 . )INIT &ZCMD = &Z )REINIT IF (.MSG = ' ') &ZCMD = &Z )PROC VPUT (ZCMD) SHARED )END ./ ADD NAME=APPLGEN )ATTR DEFAULT(.._) /********************************************************************** /* Panel: APPLGEN * /* Author: David Leigh * /* Function: Functions with the APPLGEN CLIST to create CSP skeleton * /* applications automatically * /********************************************************************** ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) PAD('_') % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) )BODY EXPAND({{) %{-{ Unistar CSP Application Skeleton Generator {-{ %COMMAND ==>_ZCMD % .Application Name ==>~APPLNAME% . .Input MSL ==>~INMSL . .Target MSL ==>~OUTMSL . .Edit Generated JCL ==>~Z%(Y/N) . % .Press%ENTER.to process your selections,%END.to quit without processing. )INIT &ZCMD = &Z .CURSOR = APPLNAME .ZVARS = '(JCLREVEW)' )PROC IF (&APPLNAME > &Z) &ZEDSMSG = 'Invalid Application Name' VER (&APPLNAME DSNAME MSG=UTLZ001W) ELSE VER (&APPLNAME NB) VER (&INMSL DSNAME NB) VER (&OUTMSL DSNAME NB) VER (&JCLREVEW NB LIST Y N) )END ./ ADD NAME=AVGBLKIN )BODY %--------------------- Average Blocksize Space Calculation -------------------- %OPTION ===>_ZCMD + % +USERID - &ZUSER % % This panel will allow a person to input a record length and the projected % number of records for both a primary and secondary allocations. A clist % will take the variables and display a projected space parameter in Average % Block Allocation. The algorithm is: ( (LRECL * # RECS) / 10796 ). % + +CURRENT RECORD LENGTH => _RECL + + +NUMBER OF PRIMARY RECORDS => _PRIR + + +NUMBER OF SECONDARY RECORDS => _SECR + % % % Command may be executed from main menu )INIT .CURSOR = RECL .HELP = ISR00003 &ZSEL = ' ' )PROC VER (&RECL,NUM) VER (&PRIR,NUM) VER (&SECR,NUM) )END ./ ADD NAME=AVGBLKOT )BODY %--------------------- Average Blocksize Space Calculation -------------------- +OPTION ===>_ZCMD + % +USERID - &ZUSER % To Exit Clist enter a 'Y' _ex + +CURRENT RECORD LENGTH => _RECL + +PRIMARY RECORD NUMBER => _PRIR + +PRIMARY SPACE ALLOCATION => _ANSW % +SECONDARY RECORD NUMBER => _SECR + +SECONDARY SPACE ALLOCATION => _ANS2 % +SETUP THE SPACE PARAMETER AS FOLLOWS: % _SPCE % )INIT .CURSOR = EX .HELP = ISR00003 &ZSEL = ' ' )END ./ ADD NAME=BINDCOPY )ATTR DEFAULT(%+\) /**********************************************************************/ /* Panel: BINDCOPY */ /* Author: David Leigh/Janet Frederick */ /* Function: Control Parameters for DB2 personal testing database */ /* setup. It is used by the BINDCOPY REXX exec. */ /**********************************************************************/ /* % TYPE(TEXT) INTENS(HIGH) defaults displayed for */ /* + TYPE(TEXT) INTENS(LOW) information only */ /* \ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) */ + TYPE(TEXT) INTENS(LOW) COLOR(YELLOW) SKIP(ON) # TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) $ TYPE(INPUT) INTENS(LOW) PAD(_) ` TYPE(INPUT) INTENS(LOW) PAD(_) JUST(RIGHT) )BODY EXPAND({{) %{-{ UNISTAR DB2 Package BIND Copying {-{ %COMMAND ==>\ZCMD + % %{-{ Target Package Changes {-{ +Collection ==>$COLLECTN + +Qualifier ==>$QUALIFYR+ +Owner ==>$OWNER + +Explain ==>$EXP+(YES/NO) % +Review JCL Prior To Submitting?$Z#(Y/N) +Create JCL Now?$Z#(Y/N) % %{-{ Source Package Selection Criteria {-{ +USSTRP00.ADM40T_GRPPROF GRP_ID ==>$GRPID + % +Enter a fully qualified dataset name without quotes which contains a list of +program names in column 1 which will be used to search for plans and packages +with those names. % +Dataset ==>$PGMDSN + +Edit this dataset?$Z+(Y/N) )INIT .ZVARS = '(JCLREVEW GENJCL EDITDSN)' &JCLREVEW = 'N' &GENJCL = 'N' &EDITDSN = 'N' )PROC VER (&COLLECTN,NONBLANK) VER (&QUALIFYR,NONBLANK) VER (&OWNER,NONBLANK) VER (&EXP,NONBLANK,LIST,YES,NO) VER (&JCLREVEW,NONBLANK,LIST,Y,N) VER (&GENJCL,NONBLANK,LIST,Y,N) VER (&GRPID,NONBLANK) VER (&PGMDSN,NONBLANK,DSNAME) VER (&EDITDSN,NONBLANK,LIST,Y,N) VPUT (COLLECTN QUALIFYR OWNER EXP GRPID PGMDSN EDITDSN) SHARED )END ./ ADD NAME=CA11TABL )ATTR DEFAULT(%+_) /********************************************************************** /* Panel: CA11TABL * /* Author: David Leigh * /* Function: This help panel gives a narrative overview of the * /* CA11TABL utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) | TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY EXPAND({{) %TUTORIAL {-{ CA11TABL Help {-{ %COMMAND ===>_ZCMD + % %CA11TABL+allows the user to "capture" the contents of the%CA11+ISPF interface output. When you use the CA11 ISPF interface, the results of each command are placed in a%temporary ISPF table+named%CA11ITBL.+ When you are viewing the results in the CA11 ISPF interface, you type%TSO CA11TABL+on the command line and press%.+ The contents of CA11ITBL are dumped into an%FB 80 sequential file+with the name format of %&ZUSER..TEMP.CA11TABL.date.time+ where "date.time" is a current time/date stamp. Once the table is dumped into the file, you are taken into an%ISPF edit session +on the file. From here, you may use this file like any other file. Note: the file is placed on%"work" DASD,+so it will be scratched at night. It would be up to you to save any contents for longer rentention. %END+to return to%CA11TABL )END ./ ADD NAME=COMPILE )ATTR DEFAULT(|¬_) /********************************************************************** /* Panel: COMPILE * /* Author: David Leigh * /* Function: Functions with the COMPILE CLIST/EDIT MACRO to allow * /* user input of compile parameters. * /********************************************************************** ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) PAD('_') % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) )BODY EXPAND({{) %{-{ Compile Utility {-{ %COMMAND ==>_ZCMD % ¬Source Dataset ==>~CMPDSN ¬ ¬Alternate Load Library ==>~CMPALOAD ¬ ¬Listing Dataset ==>~CMPLDSN ¬ ¬Listing Print Configuration ==>~CMPPCONF%?¬to see valid print configurations % ¬Compile Language Type ==>~Z ¬ %+------- Valid Language Types -------+ ¬Test, XPEDITER, or RFP ==>~Z%(T/X/R) %³ %COB2 ¬Batch COBOL2 Pgms %³ ¬Application System ==>~Z %GSS¬or %³ %CCOB2 ¬CICS COBOL2 Pgms %³ %SLSS %³ %MAP ¬CICS BMS Maps %³ ¬Review JCL ? ==>~Z%(Y/N) %³ %ASM ¬ALC Pgms %³ ¬Job Name Suffix ==>~Z ¬ %³ %CASM ¬CICS ALC Pgms %³ ¬Job Cost Center ==>~Z ¬ %³ %ASM31 ¬ALC 31 Bit Addressing %³ ¬Job Class ==>~Z¬ %³ %CASM31¬CICS ALC 31 Bit Addressing%³ ¬Sysout Delivery Box ==>~Z ¬ %+------------------------------------+ ¬Project Request Number ==>~Z ¬ % ¬Type%OPTIONS¬and press%ENTER¬to change%default¬options for this utility. ¬Press%ENTER¬to process your selections,%END¬to quit without processing. )INIT &ZCMD = &Z .HELP = HELPCM00 .CURSOR = CMPDSN .ZVARS = '(CMPTYPE CMPTYPFX CMPAPPL JCLREVEW CMPJSUFF CCNTR + CMPCLASS BINNM CMPPR)' &TYPEHOLD = &Z IF (&CMPTYPE = 'MAP') IF (&CMPTYPFX = 'X') &TYPEHOLD = &CMPTYPFX &CMPTYPFX = 'T' )PROC IF (&ZCMD = &Z) VER (&CMPDSN NB DSNAME MSG=CMPM000A) VER (&CMPALOAD DSNAME MSG=CMPM000E) VER (&CMPLDSN DSNAME MSG=CMPM000L) VER (&CMPTYPE NB LIST COB2 CCOB2 MAP ASM CASM + ASM31 CASM31 MSG=CMPM000B) IF (&CMPTYPE = 'MAP','ASM','CASM','ASM31','CASM31') VER (&CMPTYPFX NB LIST T R MSG=CMPM000U) ELSE VER (&CMPTYPFX NB LIST X T R MSG=CMPM000C) VER (&CMPAPPL NB LIST SLSS GSS MSG=CMPM000K) VER (&JCLREVEW NB LIST Y N MSG=CMPM000D) VER (&CMPJSUFF NB MSG=CMPM000F) VER (&CCNTR NB MSG=CMPM000G) &XBYTE = TRUNC (&CMPTYPE,1) IF (&XBYTE = 'C') IF (&CMPTYPE ¬= 'COB2') &CMPCICS = Y &CMPTPARM = TRANS (&CMPCLASS A,',TIME=(0,15)' B,',TIME=(5,00)' C,',TIME=(5,00)' D,'' E,'' F,'' G,'' H,'' P,'' R,'' S,'' T,'' U,'' V,',TIME=(0,05)' Z,'' 1,',TIME=(1,00)' 4,',TIME=(0,15)' 5,',TIME=(5,00)' MSG=CMPM000J) VER (&BINNM NB MSG=CMPM000H) VER (&CMPPR NB MSG=CMPM000I) VPUT (CMPPCONF CMPTYPE CMPTYPFX CMPAPPL CMPJSUFF) PROFILE VPUT (CMPCLASS CMPPR) PROFILE VPUT (TYPEHOLD CMPALOAD) SHARED )END ./ ADD NAME=COMPILE2 )ATTR /********************************************************************** /* Panel: COMPILE2 * /* Author: David Leigh * /* Function: Functions with the COMPILE CLIST/EDIT MACRO to show which* /* print configurations are available. * /********************************************************************** + TYPE(TEXT) COLOR(BLUE) SKIP(ON) % TYPE(TEXT) COLOR(WHITE) SKIP(ON) . TYPE(TEXT) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) COLOR(YELLOW) SKIP(ON) ~ TYPE(INPUT) COLOR(RED) CAPS(ON) PAD('_') _ TYPE(INPUT) COLOR(RED) CAPS(ON) $ TYPE(INPUT) COLOR(YELLOW) CAPS(ON) INTENS(HIGH) ! TYPE(INPUT) COLOR(YELLOW) CAPS(OFF) › TYPE(OUTPUT) COLOR(WHITE) SKIP(ON) . TYPE(OUTPUT) COLOR(GREEN) SKIP(ON) CAPS(OFF) )BODY EXPAND({{) %{-{ Compile Utility (Print Configurations) {-{ %COMMAND ==>_ZCMD %SCROLL ==>_Z + % \{={ Select a print configuration below and press ENTER to return {={ % +Sel Config. Configuration Description )MODEL ~Z.›PTCONNAM.PTDESC )INIT .HELP = HELPCM15 .ZVARS = '(ZSCML CMPSEL)' &ZCMD = &Z )PROC VER (&CMPSEL LIST S MSG=CMPM000M) VPUT (ZSCML) PROFILE )END ./ ADD NAME=COMPILE3 )ATTR DEFAULT(.._) /********************************************************************** /* Panel: COMPILE3 * /* Author: David Leigh * /* Function: Functions with the COMPILE CLIST/EDIT MACRO to allow * /* user input of compile parameters. * /********************************************************************** ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) PAD('_') % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) )BODY EXPAND({{) %{-{ Compile Utility (Options) {-{ %COMMAND ==>_ZCMD % .Automatically Generate A Listing Dataset Name ==>~Z%(Y/N) . % .DASD Type For Listing Dataset (Permanent/Temporary) ==>~Z%(P/N) . % .Include CICS Translate Step Output When Printing ==>~Z%(Y/N) . % .Include CICS Translate Step Output In Dataset Capture ==>~Z%(Y/N) . % .Include Link Edit Step Output When Printing ==>~Z%(Y/N) . % .Include Link Edit Step Output In Dataset Capture ==>~Z%(Y/N) . % .JCL Review Default ==>~Z%(Y/N) . % .Press%ENTER.to process your selections and return to the main%COMPILE.screen. % )INIT &ZCMD = &Z .HELP = HELPCM16 .ZVARS = '(CMPALIST CMPLDASD CMPPTRN CMPDTRN CMPPLKED CMPDLKED + CMPJCLR)' .CURSOR = CMPALIST )PROC VER (&CMPALIST NB LIST Y N MSG=CMPM000N) VER (&CMPLDASD NB LIST P T MSG=CMPM000O) VER (&CMPPTRN NB LIST Y N MSG=CMPM000P) VER (&CMPDTRN NB LIST Y N MSG=CMPM000Q) VER (&CMPPLKED NB LIST Y N MSG=CMPM000R) VER (&CMPDLKED NB LIST Y N MSG=CMPM000S) VER (&CMPJCLR NB LIST Y N MSG=CMPM000T) VPUT (CMPALIST CMPPTRN CMPDTRN CMPPLKED CMPDLKED CMPJCLR) PROFILE )END ./ ADD NAME=COMPMARK )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) ¬ TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(ON) | TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) )BODY WINDOW(50,11) ¬ ¬Type "0" in the field(s) to not mark a ¬certain type(s) of compiler message: ¬ ¬INFORMATION messages to mark ==>_CMNUMINF¬ ¬WARNING messages to mark ==>_CMNUMWAR¬ ¬ERROR messages to mark ==>_CMNUMERR¬ ¬SEVERE messages to mark ==>_CMNUMSEV¬ ¬UNABLE TO CONTINUE messages to mark ==>_CMNUMUNA¬ % ¬Press%¬to continue processing. )PROC &ZEDLMSG = '*** MUST BE A NUMBER FROM 0 TO +9999 ***' VER (&CMNUMINF NONBLANK RANGE 0 9999 MSG=UTLZ001W) VER (&CMNUMWAR NONBLANK RANGE 0 9999 MSG=UTLZ001W) VER (&CMNUMERR NONBLANK RANGE 0 9999 MSG=UTLZ001W) VER (&CMNUMSEV NONBLANK RANGE 0 9999 MSG=UTLZ001W) VER (&CMNUMUNA NONBLANK RANGE 0 9999 MSG=UTLZ001W) VPUT (CMNUMINF CMNUMWAR CMNUMERR CMNUMSEV CMNUMUNA) SHARED )END ./ ADD NAME=COPYANY )ATTR /********************************************************************** /* PANEL: COPYANY * /* AUTHOR: DAVE LEIGH * /* FUNCTION: THIS PANEL WORKS WITH THE COPYANY UTILITY TO PROMPT USERS* /* FOR A DATASET NAME. * /********************************************************************** + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) SKIP(ON) % TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,2) +Dataset Name ==>_COPYDSN + Member Name ==>_COPYMBR %(Optional)+Truncate/Wrap:_Z%(T/W) )INIT .ZVARS = '(TRNKWRAP)' IF (&TRNKWRAP = &Z) &TRNKWRAP = 'T' )PROC VER (©DSN,NB,DSNAME) VER (©MBR,NAME) VER (&TRNKWRAP,NB,LIST,'T','W') )END ./ ADD NAME=COPYBIND )ATTR DEFAULT(%+\) /**********************************************************************/ /* Panel: COPYBIND */ /* Author: David Leigh */ /* Function: Control Parameters for DB2 personal testing database */ /* setup. It is used by the COPYBIND REXX exec. */ /**********************************************************************/ /* % TYPE(TEXT) INTENS(HIGH) defaults displayed for */ /* + TYPE(TEXT) INTENS(LOW) information only */ /* \ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) */ + TYPE(TEXT) INTENS(LOW) COLOR(YELLOW) SKIP(ON) # TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) $ TYPE(INPUT) INTENS(LOW) PAD(_) ` TYPE(INPUT) INTENS(LOW) PAD(_) JUST(RIGHT) )BODY EXPAND({{) %{-{ UNISTAR DB2 Package BIND Copying {-{ %COMMAND ==>\ZCMD + % %{-{ Target Package Changes {-{ +Collection ==>$COLLECTN + +Qualifier ==>$QUALIFYR+ +Owner ==>$OWNER + +Explain ==>$EXP+(YES/NO) % +Review JCL Prior To Submitting?$Z#(Y/N) +Create JCL Now?$Z#(Y/N) % %{-{ Source Package Selection Criteria {-{ +USSTRP00.ADM40T_GRPPROF GRP_ID ==>$GRPID + % +Enter a fully qualified dataset name without quotes which contains a list of +program names in column 1 which will be used to search for plans and packages +with those names. % +Dataset ==>$PGMDSN + +Edit this dataset?$Z+(Y/N) )INIT .ZVARS = '(JCLREVEW GENJCL EDITDSN)' &JCLREVEW = 'N' &GENJCL = 'N' &EDITDSN = 'N' )PROC VER (&COLLECTN,NONBLANK) VER (&QUALIFYR,NONBLANK) VER (&OWNER,NONBLANK) VER (&EXP,NONBLANK,LIST,YES,NO) VER (&JCLREVEW,NONBLANK,LIST,Y,N) VER (&GENJCL,NONBLANK,LIST,Y,N) VER (&GRPID,NONBLANK) VER (&PGMDSN,NONBLANK,DSNAME) VER (&EDITDSN,NONBLANK,LIST,Y,N) VPUT (COLLECTN QUALIFYR OWNER EXP GRPID PGMDSN EDITDSN) SHARED )END ./ ADD NAME=COPYDB )ATTR DEFAULT(@+_) /********************************************************************** /* PANEL: COPYDB * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "COPYDB" utility and allows * /* the user to select a source and target database for * /* creating dsn1copy jcl to do an image copy to database * /* copy with "sysxlat" cards. * /********************************************************************** + TYPE(TEXT) COLOR(BLUE) SKIP(ON) @ TYPE(TEXT) COLOR(WHITE) SKIP(ON) ¬ TYPE(TEXT) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) COLOR(YELLOW) SKIP(ON) ` TYPE(TEXT) COLOR(GREEN) SKIP(ON) ~ TYPE(TEXT) COLOR(PINK) SKIP(ON) _ TYPE(INPUT) COLOR(RED) CAPS(ON) $ TYPE(INPUT) COLOR(YELLOW) CAPS(ON) INTENS(HIGH) › TYPE(OUTPUT) COLOR(WHITE) SKIP(ON) | TYPE(OUTPUT) COLOR(GREEN) SKIP(ON) CAPS(OFF) )BODY EXPAND({{) @{-{ DB2 "Copy Database" DSN1COPY Build Utility {-{ @COMMAND ==>_ZCMD @SCROLL ==>_Z + @ +SYSCOPY Creator ==>$SYSCRETR¬("SYSIBM" or "DBAUTIL") `Source Subsystem ==>$Z ¬ ("DSNT", "DSNP" or "DSNS") `Source Database ==>$SDBNAME ¬(Use "%" or partial name w/"%" for a list) `Source Tablespace ==>$STSNAME ¬("%" for all or partial name w/"%" for subset) ~Target Subsystem ==>$Z ¬ ("DSNT", "DSNP" or "DSNS") ~Target Database ==>$TDBNAME ¬(Use "%" or partial name w/"%" for a list) @ ¬Enter a range of timestamps for selecting image copies from the source SYSCOPY: @Note: Enter a partial value in either/both timestamps to see a selection list. @(A "partial value" in a timestamp is specified by blanks in one of the fields) @ `From Timestamp ==>$Z ¬-$Z ¬-$Z ¬-$Z ¬.$Z ¬.$Z ¬.$Z ¬ ` 1995- 01- 01- 00- 00- 00- 000000- <==Valid Ranges ` 9999 12 31 23 59 59 999999 ~ To Timestamp ==>$Z ¬-$Z ¬-$Z ¬-$Z ¬.$Z ¬.$Z ¬.$Z ¬ ~ 1995- 01- 01- 00- 00- 00- 000000- <==Valid Ranges ~ 9999 12 31 23 59 59 999999 `First Or Last Image Copy Within Timestamp Range?$Z¬("F"irst/"L"ast) +Create JCL Now ==>$Z¬(Y/N) +Review Created JCL ==>$Z¬(Y/N) (i.e. the job to create DSN1COPY JCL) )INIT .ZVARS = '(ZSCML SSSID TSSID + FTSYYYY FTSMM FTSDD FTSHH FTSMN FTSSS FTSMLSS + TTSYYYY TTSMM TTSDD TTSHH TTSMN TTSSS TTSMLSS + MINMAX CREATJCL JCLREVEW)' &CREATJCL = 'N' IF (&SYSCRETR = &Z) &SYSCRETR = 'SYSIBM' IF (&JCLREVEW = &Z) &JCLREVEW = 'N' IF (&MINMAX = &Z) &MINMAX = 'L' IF (&SSSID = &Z) &SSSID = 'DSNP' IF (&SDBNAME = &Z) &SDBNAME = '%' IF (&STSNAME = &Z) &STSNAME = '%' IF (&TDBNAME = &Z) &TDBNAME = '%' IF (&TSSID = &Z) &TSSID = 'DSNT' .CURSOR = SYSCRETR &ZCMD = &Z )PROC VER (&SYSCRETR NB LIST SYSIBM DBAUTIL) VER (&SSSID NB LIST DSNT DSNP DSNS) VER (&TSSID NB LIST DSNT DSNP DSNS) VER (&SDBNAME NB) VER (&STSNAME NB) VER (&TDBNAME NB) VER (&MINMAX NB LIST F L) VER (&JCLREVEW NB LIST Y N) VER (&FTSYYYY RANGE 1995 9999) VER (&FTSMM RANGE 01 12) VER (&FTSDD RANGE 01 31) VER (&FTSHH RANGE 00 23) VER (&FTSMN RANGE 00 59) VER (&FTSSS RANGE 00 59) VER (&FTSMLSS RANGE 000000 999999) VER (&TTSYYYY RANGE 1995 9999) VER (&TTSMM RANGE 01 12) VER (&TTSDD RANGE 01 31) VER (&TTSHH RANGE 00 23) VER (&TTSMN RANGE 00 59) VER (&TTSSS RANGE 00 59) VER (&TTSMLSS RANGE 000000 999999) VPUT (ZSCML SSSID TSSID SDBNAME STSNAME TDBNAME SYSCRETR) SHARED VPUT (FTSYYYY FTSMM FTSDD FTSHH FTSMN FTSSS FTSMLSS) SHARED VPUT (TTSYYYY TTSMM TTSDD TTSHH TTSMN TTSSS TTSMLSS) SHARED VPUT (MINMAX JCLREVEW) SHARED )END ./ ADD NAME=CPYDBPOP )ATTR + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(TURQ) ¬ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) JUST(RIGHT) ~ TYPE(OUTPUT) INTENS(HIGH) COLOR(PINK) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) ³ TYPE(INPUT) INTENS(NON) COLOR(YELLOW) )BODY WINDOW(35,19) CMD(ZCMD) LMSG(LMSGFLD) ~LMSGFLD +Sel Database³Z+ )MODEL ROWS(ALL) _Z+ ¬POPFIELD )INIT &ZWINTTL = 'Select A Database' .ZVARS = '(ZCMD SEL)' &SEL = &Z .CURSOR = SEL )REINIT &ZTDSELS = 0 .CURSOR = SEL )PROC &ZEDLMSG = 'Use "S" To Select' VER (&SEL,LIST,'S','s',MSG=UTLZ001W) )END ./ ADD NAME=CPYDBPO2 )ATTR + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(TURQ) ¬ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) JUST(RIGHT) ~ TYPE(OUTPUT) INTENS(HIGH) COLOR(PINK) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) ³ TYPE(INPUT) INTENS(NON) COLOR(YELLOW) )BODY WINDOW(43,19) CMD(ZCMD) LMSG(LMSGFLD) ~LMSGFLD +Sel Tablspce Timestamp³Z+ )MODEL ROWS(ALL) _Z+ ¬POPFIELD )INIT &ZWINTTL = 'Select A Timestamp' .ZVARS = '(ZCMD SEL)' &SEL = &Z .CURSOR = SEL )REINIT &ZTDSELS = 0 .CURSOR = SEL )PROC &ZEDLMSG = 'Use "S" To Select' VER (&SEL,LIST,'S','s',MSG=UTLZ001W) )END ./ ADD NAME=DATEUTIL )ATTR /********************************************************************** /* Panel: DATEUTIL * /* Author: David Leigh * /* Function: Functions with the DATEUTIL CLIST and DATEUTIL program * /* to allow interactive date processing. * /********************************************************************** › TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) SKIP(ON) COLOR(RED) HILITE(USCORE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) % TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) SKIP(ON) \ TYPE(TEXT) INTENS(LOW) COLOR(GREEN) SKIP(ON) ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) PAD('_') )BODY EXPAND({{) %{-{ Date Utility {-{ %COMMAND ==>_ZCMD % +Enter the appropriate values and press%ENTER+to invoke the date processing. % +Function ==>~DUFUNC %(BETWEEN, CONVERT, INCREMENT, DECREMENT, SYSTEM) +Number ==>~Z %(Input for INCREMENT/DECREMENT, Result for BETWEEN) % +Date 1 ==>~DUDATE1 %(Leave Blank To Get The SYSTEM Date) +Date 1\DAY+Format ==>~Z %(DD, ZD, DDD, ZZD) +Date 1\MONTH+Format ==>~Z %(MM, ZM, MMM, MONTH) +Date 1\YEAR+Format ==>~Z %(YY, YYYY)+ Switch Year ==>~Z %(00-99) +Date 1\DATE+Format ==>~DUDT1FMT +Or Format Code ==>~Z %? for list % +Date 2 ==>~DUDATE2 + +Date 2\DAY+Format ==>~Z %(DD, ZD, DDD, ZZD, D, DA, DAY) +Date 2\MONTH+Format ==>~Z %(MM, ZM, MMM, MONTH) +Date 2\YEAR+Format ==>~Z %(YY, YYYY)+ Switch Year ==>~Z %(00-99) +Date 2\DATE+Format ==>~DUDT2FMT +Or Format Code ==>~Z %? for list % +Error Message ==>›DUMSG % )INIT &ZCMD = &Z .ZVARS = '(DUNUMBER DUDY1FMT DUMO1FMT DUYR1FMT DUYR1SWT DUDT1FCD + DUDY2FMT DUMO2FMT DUYR2FMT DUYR2SWT DUDT2FCD)' )PROC &DUMSG = &Z VPUT (DUDATE1 DUDY1FMT DUMO1FMT DUYR1FMT DUDT1FMT DUNUMBER) SHARED VPUT (DUDATE2 DUDY2FMT DUMO2FMT DUYR2FMT DUDT2FMT DUFUNC) SHARED VPUT (DUYR1SWT DUYR2SWT DUDT1FCD DUDT2FCD DUMSG) SHARED VER (&DUFUNC,LIST,BETWEEN,SYSTEM,CONVERT,INCREMENT,DECREMENT) VER (&DUDY1FMT,LIST,DD,ZD,DDD,ZZD) VER (&DUMO1FMT,LIST,MM,ZM,MMM,MONTH) VER (&DUYR1FMT,LIST,YY,YYYY) VER (&DUYR1SWT,RANGE,00,99) VER (&DUDY2FMT,LIST,DD,ZD,DDD,ZZD,D,DA,DAY) VER (&DUMO2FMT,LIST,MM,ZM,MMM,MONTH) VER (&DUYR2FMT,LIST,YY,YYYY) VER (&DUYR2SWT,RANGE,00,99) )END ./ ADD NAME=DATEUTLF )ATTR /********************************************************************** /* PANEL: DATEUTLF * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "DATEUTIL" ISPF dialog and * /* shows a list of valid date format numbers and associated * /* formats. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(56,19) % PF3+to return % 1¬YYYY-MM-DD %19¬YY MM DD %37¬DD.MMM.YY % 2¬YYYY.MM.DD %20¬YYMMDD %38¬DD/MMM/YY % 3¬YYYY/MM/DD %21¬MM-DD-YY %39¬DD MMM YY % 4¬YYYY MM DD %22¬MM.DD.YY %40¬DDMMMYY % 5¬YYYYMMDD %23¬MM/DD/YY %41¬YYYY-MMM-DD % 6¬MM-DD-YYYY %24¬MM DD YY %42¬YYYY.MMM.DD % 7¬MM.DD.YYYY %25¬MMDDYY %43¬YYYY/MMM/DD % 8¬MM/DD/YYYY %26¬YY-DDD %44¬YYYY MMM DD % 9¬MM DD YYYY %27¬YY.DDD %45¬YYYYMMMDD %10¬MMDDYYYY %28¬YY/DDD %46¬YY-MMM-DD %11¬YYYY-DDD %29¬YY DDD %47¬YY.MMM.DD %12¬YYYY.DDD %30¬YYDDD %48¬YY/MMM/DD %13¬YYYY/DDD %31¬DD-MMM-YYYY%49¬YY MMM DD %14¬YYYY DDD %32¬DD.MMM.YYYY%50¬YYMMMDD %15¬YYYYDDD %33¬DD/MMM/YYYY%51¬FULLMONTH ZD, YYYY %16¬YY-MM-DD %34¬DD MMM YYYY%52¬FULLMONTH DD, YYYY %17¬YY.MM.DD %35¬DDMMMYYYY %53¬DAY-OF-THE-WEEK NUMBER %18¬YY/MM/DD %36¬DD-MMM-YY %54¬DAY-OF-THE-WEEK TEXT )END ./ ADD NAME=DB2LOAD )ATTR _ TYPE(INPUT) INTENS(HIGH) CAPS(IN) COLOR(YELLOW) ? TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(GREEN) SKIP(ON) JUST(ASIS) } TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(PINK) SKIP(ON) JUST(ASIS) * TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) SKIP(ON) . TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) INTENS(LOW) SKIP(ON) )BODY EXPAND({{) %{-{ LOAD DB2 TABLE UTILITY {-{ %OPTION ===>_ZCMD %SCROLL ===>_Z \ % .Table/View Name ==>_TVNAME .Subsystem ==>_DB2S.Database ==>_DB2DBASE .Load Table From ==>_LOADDSN .Curr Rec:*LINENUM .Load Dataset Scroll ==>_Z\(Up,Down,Left,Right).Rows/Columns Scroll # ==>_SCNUM .Find String ==>_FSTG .Prev/Next:_Z.(P/N) ?SCALE }IMAGE .Sort Card DSN ==>_SORTDSN .Edit ?_Z.(Y/N) .Execute Load Now ?_Z.(Y/N).Review JCL Prior to Submission ?_Z.(Y/N) \Key DB2 Field Name Col. 1 Col. 2 Default Value-if "not null" \--- ------------------ ------- ------- ------------------------------- )MODEL *Z *FIELD _COL1 _COL2 _DEFAULT *NULLS )INIT .HELP = UTILH076 .ZVARS = '(ZSCML LSCROLL PREVNEXT EDITYN LOADTYPE JCLREVEW KEY)' &ZCMD = &Z )PROC VER (&TVNAME,NONBLANK,MSG=UTLM002V) VER (&DB2S,NONBLANK,MSG=UTLM002W) VER (&DB2DBASE,NONBLANK,MSG=UTLM002X) VER (&EDITYN,LIST,Y,N,MSG=UTLM002Z) VER (&LSCROLL,LIST,U,D,L,R,MSG=UTLM003A) VER (&LOADTYPE,NONBLANK,LIST,Y,N,MSG=UTLM003B) VER (&JCLREVEW,NONBLANK,LIST,Y,N,MSG=UTLM003C) VER (&PREVNEXT,LIST,P,N,MSG=UTLM003D) VER (&LOADDSN,NONBLANK,MSG=UTLM003E) VER (&LOADDSN,DSNAME,MSG=UTLM003E) VER (&SORTDSN,DSNAME,MSG=UTLM003H) VER (&SCNUM,NUM,MSG=UTLM003F) VER (&COL1,NUM,MSG=UTLM003G) VER (&COL2,NUM,MSG=UTLM003G) IF (&NULLS = 'NOT NULL') IF (&COL1 = &Z) VER (&DEFAULT,NONBLANK,MSG=UTLM003G) IF (&COL2 = &Z) VER (&DEFAULT,NONBLANK,MSG=UTLM003G) VPUT (DB2S DB2DBASE TVNAME LINENUM LOADDSN LSCROLL) SHARED VPUT (FSTG SCNUM PREVNEXT EDITYN LOADTYPE SORTDSN JCLREVEW) SHARED VPUT (ZSCML) PROFILE )END ./ ADD NAME=DB2RCVRY )ATTR DEFAULT(\+#) /********************************************************************** /* Panel: DB2RCVRY * /* Author: David Leigh * /* Function: Functions with the DB2RCVRY utility to take the input * /* from the user for the utility to use in building JCL. * /********************************************************************** ~ TYPE(TEXT) INTENS(HIGH) COLOR(GREEN) CAPS(IN) ` TYPE(INPUT) INTENS(HIGH) COLOR(PINK) CAPS(IN) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) . TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) @ TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) SKIP(ON) ! TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) )BODY EXPAND({{) \{-{ Build DB2 Recovery JCL {-{ \COMMAND ==>#ZCMD \ @Code Type\==>`Z @Action\==>`Z\(R-Retrieve A-Add/Update E-Edit DB2 Table) . ~If the code type does not exist in ENDEVOR, you will be prompted to enter the ~name of the DB2 "stage" from which you wish to extract this code type group if ~this is a "RETRIEVE". . @DB2 Stage\==>`Z \(DEVL, QUAL, MODO.or\PROD) \ \ ! ENDEVOR CCID\==>`CCID \<== ! ENDEVOR Comment\==>`COMMENTS \<== ! Sign-in Element to\==>`SIGNIN \<== ! Generate JCL Now\==>`Z\(Y|N) !Review JCL Prior to Submit\==>`Z\(Y|N) \ \ \ &PFK.to quit\ENTER.and\GENERATE=Y.to process your request )INIT .HELP = CODEMGHA &ZCMD = &Z .ZVARS = '(CODETYPE ACTION DB2STAGE GENERATE JCLREVEW)' IF (&GENERATE = &Z) &GENERATE = 'N' IF (&ACTION = &Z) &ACTION = 'R' IF (&JCLREVEW = &Z) &JCLREVEW = 'N' &PFK = PFK(END) IF (&PFK = &Z) &PFK = 'END' .CURSOR = CODETYPE )REINIT &SAVETYPE = &CODETYPE .CURSOR = CODETYPE )PROC IF (&SAVETYPE ¬= &CODETYPE) &GETFROM = &Z &PASSED = 'N' IF (&CODETYPE = &Z) &ZEDSMSG = 'Code Type Required' &ZEDLMSG = 'A Code Type is always required' .MSG = UTLZ001W .CURSOR = CODETYPE ELSE IF (&ACTION ¬= 'R','A','E') &ZEDSMSG = 'Invalid Action' &ZEDLMSG = 'Valid Actions: R for RETRIEVE A for ADD/UPDATE E for EDIT' .MSG = UTLZ001W .CURSOR = ACTION ELSE IF (&GETFROM = DB2) IF (&DB2STAGE ¬= 'DEVL','QUAL','MODO','PROD') &ZEDSMSG = 'Invalid DB2 Stage' &ZEDLMSG = 'DB2 Stage must be "DEVL", "QUAL", "MODO", or "PROD"' .MSG = UTLZ001W .CURSOR = DB2STAGE ELSE IF (&CCID = &Z) IF (&GENERATE = 'Y') IF (&GETFROM = 'ENDEVOR') &ZEDSMSG = 'CCID Is Required' &ZEDLMSG = 'You must provide an ENDEVOR CCID + (Change Control Identifier)' .MSG = UTLZ001W .CURSOR = CCID ELSE IF (&COMMENTS = &Z) IF (&GENERATE = 'Y') IF (&GETFROM = 'ENDEVOR') &ZEDSMSG = 'A Comment Is Required' &ZEDLMSG = 'You must provide an ENDEVOR comment' .MSG = UTLZ001W .CURSOR = COMMENTS ELSE IF (&GENERATE ¬= 'Y','N') &ZEDSMSG = 'Must be "Y" or "N"' &ZEDLMSG = '"GENERATE" Must be "Y" for YES or "N" + for NO' .MSG = UTLZ001W .CURSOR = GENERATE ELSE IF (&JCLREVEW ¬= 'Y','N') &ZEDSMSG = 'Must be "Y" or "N"' &ZEDLMSG = '"REVIEW JCL" Must be "Y" for YES or "N" + for NO' .MSG = UTLZ001W .CURSOR = JCLREVEW ELSE &PASSED = 'Y' VPUT (CCID COMMENTS) SHARED )END ./ ADD NAME=DB2TABL )ATTR _ TYPE(INPUT) INTENS(HIGH) CAPS(IN) COLOR(YELLOW) ? TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(GREEN) SKIP(ON) JUST(ASIS) } TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(PINK) SKIP(ON) JUST(ASIS) * TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) SKIP(ON) . TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) INTENS(LOW) SKIP(ON) )BODY EXPAND({{) %{-{ &PID UTILITIES - LOAD DB2 TABLE UTILITY {-{ %OPTION ===>_ZCMD %SCROLL ===>_Z \ % .Table/View Name ==>_TVNAME .Subsystem ==>_DB2S.Database ==>_DB2DBASE .Load Table From ==>_LOADDSN .Curr Rec:*LINENUM .Load Dataset Scroll ==>_Z\(Up,Down,Left,Right).Rows/Columns Scroll # ==>_SCNUM .Find String ==>_FSTG .Prev/Next:_Z.(P/N) ?SCALE }IMAGE .Sort Card DSN ==>_SORTDSN .Edit ?_Z.(Y/N) ."Discard" DSN ==>_DISCDSN . .Execute Load Type:_Z.(I-Interactive/B-Batch/ until ready to load) \Key DB2 Field Name Col. 1 Col. 2 Default Value-if "not null" \--- ------------------ ------- ------- ------------------------------- )MODEL *Z *FIELD _COL1 _COL2 _DEFAULT *NULLS )INIT .ZVARS = '(ZSCML LSCROLL PREVNEXT EDITYN LOADTYPE KEY)' &ZCMD = &Z )PROC VER (&TVNAME,NONBLANK) VER (&DB2S,NONBLANK) VER (&DB2DBASE,NONBLANK) VER (&FCOMP,NONBLANK,LIST,Y,N) VER (&EDITYN,LIST,Y,N) VER (&LSCROLL,LIST,U,D,L,R) VER (&LOADTYPE,LIST,I,B) VER (&PREVNEXT,LIST,P,N) VER (&LOADDSN,NONBLANK) VER (&LOADDSN,DSNAME) VER (&SCNUM,NUM) VER (&COL1,NUM) VER (&COL2,NUM) IF (&NULLS = 'NOT NULL') IF (&COL1 = &Z) VER (&DEFAULT,NONBLANK) IF (&COL2 = &Z) VER (&DEFAULT,NONBLANK) VPUT (DB2S DB2DBASE TVNAME FCOMP LINENUM LOADDSN LSCROLL) SHARED VPUT (FSTG SCNUM PREVNEXT EDITYN LOADTYPE SORTDSN) SHARED VPUT (ZSCML) PROFILE )END ./ ADD NAME=DB2UNLD )ATTR _ TYPE(INPUT) INTENS(HIGH) CAPS(IN) COLOR(YELLOW) . TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) SKIP(ON) )BODY EXPAND({{) %{-{ UNLOAD DB2 TABLE UTILITY {-{ %OPTION ===>_ZCMD % . Table or View Name ==>_TVNAME . . DB2 Subsystem ==>_DB2S. . DB2 Database ==>_DB2DBASE. .Output Dataset Name ==>_OUTDSN . % Note : if left blank, this field will default to % &ZUSER..LOAD.viewname % %Place a non-blank character in 1, 2, or 3 of the following to select them _Z.Imbed the column descriptions in the output file before the data _Z.Print the column descriptions as a hardcopy report (Deliver to ==>_BOX .) _Z.Display the column descriptions in the job sysout % .DB2 LOAD Utility Format Dataset Name ==>_LOADDSN . % Note : if left blank, this field will default % to &ZUSER..LOAD.POSITION.viewname % .Review JCL Prior to Submission ==>_Z.(Y/N) % .Press%ENTER.to process. %END.to cancel request. )INIT .HELP = UTILH074 .ZVARS = '(IMBEDPOS PRINTPOS DISPOS JCLREVEW)' &ZCMD = &Z )PROC VER (&TVNAME,NONBLANK) VER (&DB2S,NONBLANK) VER (&DB2DBASE,NONBLANK) VER (&JCLREVEW,NONBLANK,LIST,Y,N) VER (&OUTDSN,DSNAME) VER (&LOADDSN,DSNAME) IF (&PRINTPOS > &Z) VER (&BOX,NONBLANK) VPUT (DB2S DB2DBASE TVNAME JCLREVEW OUTDSN) SHARED VPUT (IMBEDPOS PRINTPOS DISPOS BOX LOADDSN) SHARED )END ./ ADD NAME=ECHANGE )ATTR DEFAULT(|¬_) /********************************************************************** /* Panel: ECHANGE * /* Author: David Leigh * /* Function: Enter a string for changeing with the ECHANGE CLIST. * /********************************************************************** ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(OFF) › TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) )BODY EXPAND({{) %{-{ Extended Change Utility {-{ %COMMAND ==>_ZCMD % %Note:¬ Some strings must be enclosed in single quotes (i.e.%'¬) ¬ ....+....1....+....2....+....3....+....4....+....5....+....6... %From String¬==>~CFROM ¬ .+....7....+....8....+....9....+....0....+....1....+....2....+....3....+....4... % ¬ ....+....1....+....2....+....3....+....4....+....5....+....6... %To String¬==>~CTO ¬ .+....7....+....8....+....9....+....0....+....1....+....2....+....3....+....4... % % Parms¬==>›CPARM ¬ % ¬Press%ENTER¬to process your change,%END¬to quit without processing. )INIT &ZCMD = &Z IF (&CTO > &Z) .CURSOR = CTO )PROC VPUT (CFROM CTO CPARM) SHARED )END ./ ADD NAME=ESFRECD )ATTR DEFAULT(\+_) /********************************************************************** /* Panel: ESFRECD * /* Author: David Leigh * /* Function: Functions with the ESFRECD CLIST to create csp records in* /* esf format. * /********************************************************************** ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) PAD('_') ` TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) )BODY EXPAND({{) \{-{ CSP ESF DB2 Record Creator {-{ \COMMAND ==>_ZCMD \ ¬ DB2 Table/View Name ==>`TABLE ¬(Note: use\%¬at end of the ¬ DB2 CREATOR ==>`CREATOR ¬< TABLE/VIEW and/or the ¬ CREATOR to see a list to ¬ choose from) \ ¬ CSP Record Name ==>`RECORD ¬(Note: use\?¬in this field ¬ to find a CSP record) \ ¬ CSP Prologue Override ==>~Z¬Values: \N¬to indicate no prologue override \ Y¬to indicate a prologue override \ R¬to refresh the prologue override \ E¬to edit the prologue override \ ¬ ENDEVOR CCID ==>`CCID ¬< ¬ ENDEVOR Comment ==>`COMMENTS ¬< \ ¬ Generate JCL Now ?==>~Z¬(Y³N) ¬Review JCL Prior to Submit ?==>~Z¬(Y³N) \ \ &PFK¬to quit\ENTER¬and\GENERATE=Y¬to process your request )INIT &ZCMD = &Z .ZVARS = '(PROLOVRD GENERATE JCLREVEW)' IF (&PROLOVRD = &Z) &PROLOVRD = 'N' IF (&GENERATE = &Z) &GENERATE = 'N' IF (&JCLREVEW = &Z) &JCLREVEW = 'N' IF (&CREATOR = &Z) &CREATOR = 'USSTRD00' &PFK = PFK(END) IF (&PFK = &Z) &PFK = 'END' )PROC &PASSED = 'N' &LIKEVART = '&TABLE.LIKESTRINGISPRESENT' &NULLVAR = TRUNC(&LIKEVART,'%') &LIKEVART = .TRAIL &LIKEVARC = '&CREATOR.LIKESTRINGISPRESENT' &NULLVAR = TRUNC(&LIKEVARC,'%') &LIKEVARC = .TRAIL IF (&TABLE = &Z) &ZEDSMSG = 'DB2 Table Required' &ZEDLMSG = 'A DB2 Table Name Must Be Specified' .MSG = UTLZ001W .CURSOR = TABLE ELSE IF (&CREATOR = &Z) &ZEDSMSG = 'DB2 CREATOR Required' &ZEDLMSG = 'A DB2 CREATOR Must Be Specified' .MSG = UTLZ001W .CURSOR = CREATOR ELSE IF (&LIKEVART ¬= 'LIKESTRINGISPRESENT') IF (&LIKEVARC ¬= 'LIKESTRINGISPRESENT') IF (&RECORD = &Z) &ZEDSMSG = 'CSP Record Required' &ZEDLMSG = 'A CSP Record Name Must Be Specified' .MSG = UTLZ001W .CURSOR = RECORD ELSE IF (&PROLOVRD ¬= 'Y') IF (&PROLOVRD ¬= 'N') IF (&PROLOVRD ¬= 'R') IF (&PROLOVRD ¬= 'E') &ZEDSMSG = 'Invalid Override Value' &ZEDLMSG = 'Prologue Override Values Must Be + "Y","N","R", or "E"' .MSG = UTLZ001W .CURSOR = PROLOVRD ELSE IF (&CCID = &Z) IF (&GENERATE = 'Y') &ZEDSMSG = 'CCID Is Required' &ZEDLMSG = 'You must provide an ENDEVOR CCID + (Change Control Identifier)' .MSG = UTLZ001W .CURSOR = CCID ELSE IF (&COMMENTS = &Z) IF (&GENERATE = 'Y') &ZEDSMSG = 'A Comment Is Required' &ZEDLMSG = 'You must provide an ENDEVOR comment' .MSG = UTLZ001W .CURSOR = COMMENTS ELSE IF (&GENERATE ¬= 'Y','N') &ZEDSMSG = 'Must be "Y" or "N"' &ZEDLMSG = '"GENERATE" Must be "Y" for YES or "N" + for NO' .MSG = UTLZ001W .CURSOR = GENERATE ELSE IF (&JCLREVEW ¬= 'Y','N') &ZEDSMSG = 'Must be "Y" or "N"' &ZEDLMSG = '"REVIEW JCL" Must be "Y" for YES or "N" + for NO' .MSG = UTLZ001W .CURSOR = JCLREVEW ELSE &PASSED = 'Y' VPUT (TABLE RECORD CCID COMMENTS) SHARED )END ./ ADD NAME=ESFRECD2 )ATTR DEFAULT(\+_) /********************************************************************** /* Panel: ESFRECD2 * /* Author: David Leigh * /* Function: Functions with the ESFRECD CLIST to display DB2 tables to* /* select from. * /********************************************************************** ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) PAD('_') ` TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) @ TYPE(OUTPUT) INTENS(LOW) SKIP(ON) )BODY EXPAND({{) \{-{ CSP ESF DB2 Record Creator DB2 Table/View List{-{ \COMMAND ==>_ZCMD \SCROLL ==>_Z + ¬ ¬Place an\S¬next to the\one¬table you wish to "drag back" to the previous screen ¬ +SEL CREATOR TABLE + V ------- ----- )MODEL ~Z¬ @CREATOR @TABLE )INIT &ZCMD = &Z .ZVARS = '(ZSCML SEL)' )PROC VER (&SEL LIST 'S' ' ') )END ./ ADD NAME=EVFCMDS )ATTR /********************************************************************** /* PANEL: EVFCMDS * /* AUTHOR: DAVID LEIGH * /* FUNCTION: THIS IS A POP-UP TABLE DISPLAY OF VALID COMMANDS FOR THE * /* EVFINFO UTILITY. * /********************************************************************** _ TYPE(INPUT) INTENS(NON) CAPS(ON) @ TYPE(OUTPUT) INTENS(HIGH) ¬ TYPE(OUTPUT) INTENS(LOW) )BODY WINDOW(70,14) @ZWINTTL _ZCMD )MODEL @EVCMD ¬EVCMDDES % )INIT .HELP = EVFH0001 )END ./ ADD NAME=EVFH0001 )ATTR DEFAULT(%+_) /********************************************************************** /* Panel: EVFH0001 * /* Author: David Leigh * /* Function: This help panel gives a narrative overview of the EVFINFO* /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) | TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY EXPAND({{) %TUTORIAL {-{ EFVINFO Help {-{ %COMMAND ===>_ZCMD + % %EVFINFO+is a%TSO/ISPF based+interface to the%Edit Verification File (EVF) +system. EVFINFO provides a way to%display, print, and/or search+the contents and profile information of tables on the EVF files. Updating of%test+or %production+EVF tables is still accomplished in%CICS.+ EVFINFO is strictly a %"read only"+interface. There are some commands that can be typed on the%command lines+of the panels in EVFINFO. There are also one letter commands that can be typed%next to displayed rows+on EVFINFO panels in some instances. When EVFINFO provides commands, you can view a list of the valid commands by typing a%"?"+in the field. If you type an invalid command, this same list of valid commands will appear. You may view profile information and contents on EVF tables in test or production. You can do this by overtyping the name of the current%EVF VSAM file+on the first EVFINFO screen. When this VSAM file name changes, EVFINFO reloads the%ISPF tables+with new EVF table profile information. %END+to return to%EVFINFO )END ./ ADD NAME=EVFINFO )ATTR /********************************************************************** /* Panel: EVFINFO * /* Author: David Leigh * /* Function: This panel works with the EVFINFO Clist which displays * /* the EVF header records. * /********************************************************************** › TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(WHITE) # TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) | TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(PINK) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD('_') COLOR(WHITE) ~ TYPE(INPUT) INTENS(HIGH) CAPS(OFF) JUST(LEFT) PAD(' ') COLOR(WHITE) * TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(' ') COLOR(RED) ` TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) ! TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(RED) @ TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(TURQ) )BODY EXPAND({{) ›{={ EVFINFO Utility {={ +Command ==>~ZCMD +Scroll ==>*Z + % %?|on the command line or next to a row to see valid commands % +Current EVF ==>*EVFILE % +Cmd Co.ID Table Name Table Description or Header Record +=== ===== ========== ======================================== )MODEL _Z+ `EVFCOID `EVFTABLE `EVFDESC )INIT .HELP = EVFH0001 &ZCMD = &Z .ZVARS = '(ZSCML ZSEL)' .CURSOR = ZCMD &ZSEL = &Z )PROC VER (&EVFILE NB DSNAME) VPUT (ZSCML) PROFILE )END ./ ADD NAME=EVFINFO1 )ATTR DEFAULT(%#_) /********************************************************************** /* Panel: EVFINFO1 * /* Author: David Leigh * /* Function: This panel works with the EVFINFO Clist which displays * /* the EVF data records. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) SKIP(ON) # TYPE(TEXT) INTENS(LOW) SKIP(ON) | TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(PINK) _ TYPE(INPUT) INTENS(HIGH) CAPS(OFF) JUST(LEFT) PAD(' ') COLOR(WHITE) ! TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(RED) )BODY EXPAND({{) %{={ EVFINFO Utility {={ #Command ==>_ZCMD % #Table Name: !EVFTABLE #Company ID: !EVFCOID %{-{ Table Profile Information {-{ #Table Description: !EVFDESC #Description Last Updated By: !EVFNAMEU #On: !EVFNAMED % #Table Key Header: !EVFKEYH #Table Data Header: !EVFDATAH #Headers Last Updated By: !EVFHEADU #On: !EVFHEADD % % ....+....1....+....2....+....3....+....4 #Edit Mask: !EVFMASK #Edit Mask Last Updated By: !EVFMASKU #On: !EVFMASKD % #Edit Mask Flag: !EVFEDITF #Edit Exit Program: !EVFEEXIT #Default Flag: !EVFDFLTF #Protect Key Flag: !EVFPKEYF #Add Flag: !EVFADDF #Change Flag: !EVFCHGF #Delete Flag: !EVFDELF #Control Information Last Updated By: !EVFCNTLU #On: !EVFCNTLD )INIT .HELP = EVFH0001 &ZCMD = &Z .CURSOR = ZCMD )END ./ ADD NAME=EVFINFO2 )ATTR /********************************************************************** /* Panel: EVFINFO2 * /* Author: David Leigh * /* Function: This panel works with the EVFINFO Clist which displays * /* the EVF data records. * /********************************************************************** › TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(WHITE) # TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) | TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(PINK) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD('_') COLOR(WHITE) ~ TYPE(INPUT) INTENS(HIGH) CAPS(OFF) JUST(LEFT) PAD(' ') COLOR(WHITE) * TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(' ') COLOR(RED) ` TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) ! TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(RED) @ TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(TURQ) )BODY EXPAND({{) ›{={ EVFINFO Utility {={ +Command ==>~ZCMD +Scroll ==>*Z + % %?|on the command line to see valid commands +Table: &EVFTABLE +Company ID: &EVFCOID + Update Update +Key Value Data Value User Date +========== ======================================== ====== ======== )MODEL `EVFKEY `EVFDATA `EVFUSER `EVFDATE )INIT .HELP = EVFH0001 &ZCMD = &Z .ZVARS = '(ZSCML)' .CURSOR = ZCMD &ZSEL = &Z )PROC VPUT (ZSCML) PROFILE )END ./ ADD NAME=GETME )ATTR . TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(ON) . TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) CAPS(ON) ? TYPE(INPUT) INTENS(NON) CAPS(ON) )BODY EXPAND({{) %{-{ Fidelity Utilities - GETME Function {-{ %COMMAND ==>_ZCMD . % .Dataset To Retrieve ==>_GETMDSN . . .JES Node To Retrieve From ==>_GETMNODE. . .TSO Id At That JES Node ==>_GETMID . . .Password For That TSO Id ==>?GETMPASS. . .Batch Job Access Code To Use At That JES Node ==>_Z . . .Batch Job Class To Use Here ==>_Z. . .Batch Job Class To Use At That JES Node ==>_Z. . .Review JCL Prior to Submitting ==>_Z.%(Y - Yes or N - No) . .Press%.to Execute Function or%END.to Quit )INIT &ZCMD = &Z .ZVARS = '(GETMACDE GETMCLS1 GETMCLAS JCLREVEW)' )PROC VER (&GETMDSN NONBLANK DSNAME) VER (&GETMNODE NONBLANK) VER (&GETMID NONBLANK) VER (&GETMPASS NONBLANK) VER (&GETMACDE NONBLANK) VER (&GETMCLS1 NONBLANK) VER (&GETMCLAS NONBLANK) VER (&JCLREVEW NONBLANK LIST Y N) VPUT (GETMDSN GETMPASS JCLREVEW) SHARED VPUT (GETMNODE GETMID GETMACDE GETMCLS1 GETMCLAS) PROFILE )END ./ ADD NAME=HELPCM00 )ATTR /********************************************************************** /* Panel: HELPCM00 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The following topics are presented in sequence, or may be selected by number: %1.+Display an overview of the%COMPILE+utility %2.+Display information about available commands %3.+Display information about the input fields )PROC &ZHTOP = HELPCM00 &ZSEL = TRANS(&ZCMD 1,HELPCM01 2,HELPCM09 3,HELPCM10 *,'?' ) )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM01 )ATTR /********************************************************************** /* Panel: HELPCM01 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%COMPILE+utility is an%ISPF dialog+which facilitates the compile or assembly of programs and CICS maps. %COMPILE+takes care of creating and submitting the batch compile job%automatically.+ In many cases, typing "compile" and pressing ENTER a few times is all that's needed to compile a program. %COMPILE+is tailored to the%UNIPAC environment+and uses the%standard compile PROCs+stored in SYS2.PROCLIB, so it can be used as a%functional replacement+to maintaining one or more compile JCL members which are modified%each time+to compile a different program or map. %COMPILE+also manages the output from the various compile or assembly steps including the CICS translator (if necessary), the actual language processor step (i.e. either compile or assembly) and the linkage editor step. This output may go to the held queue, or it could be printed, or it could go to a dataset, or it could go to a dataset%and+be printed. % (Cont.) )PROC &ZUP = HELPCM00 &ZCONT = HELPCM02 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM02 )ATTR /********************************************************************** /* Panel: HELPCM02 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+may be invoked as a%CLIST+via the command%TSO COMPILE+at any ISPF command prompt, or as an%edit macro+while editing the program you wish to compile. If invoked as a CLIST, you will be required to enter the name of the dataset (and member if it's a PDS) which contains the source you want to compile or assemble. Once you've entered the appropriate information, pressing%ENTER+will submit the job. A more effective way of using%COMPILE+is to invoke it as an%edit macro.+ To invoke it as an edit macro, you type%COMPILE+on the command line of the program source dataset you are editing and press%ENTER.+ At this point, COMPILE%parses +the member you are editing to determine the%language+and if the program is a %CICS program.+ Once it does this, it presets the necessary fields on the COMPILE screen as well as what the source input dataset is. If all the options selected by COMPILE are appropriate and/or desired, all you need do is press %ENTER,+and your compile job is created and submitted automatically. % (Cont.) )PROC &ZUP = HELPCM01 &ZCONT = HELPCM04 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM04 )ATTR /********************************************************************** /* Panel: HELPCM04 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % +A note about sending your compile output to a dataset: There are a few %COBOL-oriented+utilities here at%UNIPAC+which will make use of a compile dataset if you have one, and if it is in the format which%COMPILE+generates. The format is%&SYSUID..COMPILE.LISTING.programname. +The utilities which use this dataset are all%edit macros+which, when invoked while editing your COBOL program in a PDS, will determine the PDS member name, construct the listing dataset name, and go out and access it in some way. The utilities are (at the time of this writing): %BC, EC, PC,+and%COMPMARK. BC, EC,+and%PC+will%edit, browse,+and%print+the compile dataset respectively. %PC+actually invokes the%PRINTIT+utility to do it's printing. %COMPMARK+uses the compile listing dataset to mark compiler messages in the program you are editing with edit%"message"+lines at the location of the code which caused the message. What this means is no more having to go back and forth between a%print out+or%SDSF listing+of a compile and the%source+to fix errors! % (Cont.) )PROC &ZUP = HELPCM02 &ZCONT = HELPCM05 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM05 )ATTR /********************************************************************** /* Panel: HELPCM05 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % +A typical scenario for using some of these utilities (and a few others) to develop a COBOL program might be as follows: First you might use%LABLPROF+to%"mark"+certain portions of your code and/or working storage. What%LABLPROF+does is allow you to set%edit labels+on lines you choose (e.g. a particular 01 level in working-storage, or maybe a given paragraph or section) and then it stores those labels in your%ISPF profile. +Each time you go back in your program to do some more work, you can invoke %LABLPROF,+and those labels are automatically established again. For those of you unfamiliar with%edit labels,+they allow you to use the edit %LOCATE+primary command (abbeviated L) to go directly to a specific label. For instance, if you've labeled your%"flag"+data elements in working storage with a label of%.FLAG,+you can type%L .FLAG+on the command line and go directly to them. You should label your current position first so that you can return directly to it. % (Cont.) )PROC &ZUP = HELPCM04 &ZCONT = HELPCM06 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM06 )ATTR /********************************************************************** /* Panel: HELPCM06 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % +Lets say you have the%MASTER+file layout copy member in your COBOL program %(MFWS01),+and you've labeled that%COPY+statement%.MFWS.+ You're working along in some section of code and you need to figure out a specific data name on the MASTER record. You would label your current position something like%.A,+type: %l .mfws;cpy;f whatyou'relookingfor +on the command line and press%ENTER.+ You will be taken directly into the MFWS01 copy member by virtue of the%CPY+edit macro. Your%find+command hopefully will take you where you want to go. Once you've found your desired dataname, you can type a%c+(or%cc-cc+block) on the line(s) you want and then on the command line you could type: %cut;;end;l .a;:a;paste;; +and viola, your desired text has been inserted into your COBOL program right where you can use it. The%CUT+and%PASTE+edit macros store your text and then place it where you want it. The%":a"+is just like placing an%a+line command on +a line.% (Cont.) )PROC &ZUP = HELPCM05 &ZCONT = HELPCM07 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM07 )ATTR /********************************************************************** /* Panel: HELPCM07 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % +Okay, now this program is perfect (oh sure!) and you're ready to compile. Instead of exiting this program, getting into some JCL, modifying it, and submitting it, you type%save;compile+on the command line and press%ENTER. +The%save+saves your program to disk, of course, and%compile+invokes the%COMPILE +utility. A screen comes up showing you the copile options which will be used. If everything is ok, you just press%ENTER+and your compile is on it way. You now go get a cup of coffee, or check your electronic mail or your voice mail, or do some other work. When the compile completes, you get%TSO messages +which indicate if the compile was successful or not. Since this was your first compile, and you're not God, it failed because of some dumb syntax error. What do you do? In this "Brave New World", you type%COMPMARK+on the command line and press %ENTER. % (Cont.) )PROC &ZUP = HELPCM06 &ZCONT = HELPCM08 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM08 )ATTR /********************************************************************** /* Panel: HELPCM08 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPMARK+goes off to your compile listing dataset just created by the compile job and searches for error messages. It picks up these messages and places them back into your COBOL program which you're editing%on the line(s) where the errors occurred!+ You use the%LOCATE SPECIAL+command (or set a PF key to this) and go right to the lines with the messages. You see your error immediately (because you are almost God), fix it, type %save;compile;;end+and press%ENTER.+ This saves your program, invokes%COMPILE, which submits the compile and brings you back into your program. The%TSO +messages now indicate that the compile was successful and you want to print the listing out, so you type%PC+on the command line and press%ENTER. +The%PRINTIT+utility is invoked by%PC+and the compile dataset name is prepopulated on the screen. You pick your print configuration (unless you've set up your%PRINTIT defaults+already and you want that default) and press %ENTER. +Your print job is on it's way and you'll have your listing just as soon as that printer can print it. )PROC &ZUP = HELPCM07 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM09 )ATTR /********************************************************************** /* Panel: HELPCM09 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+primary commands: +There are currently only three commands which are acceptable on the main panel of COMPILE: %OPTIONS, SHOW ERRORS,+and%HELP. HELP+simply brings you into this series of tutorial/help panels. %SHOW ERRORS+indicates that for this JCL creation session only, if an error is encountered, show the%ISPF system-generated error screen+which gives a better indication of the specific%ISPF file-tailoring+problem. This command would be useful to the individual maintaining%COMPILE+to aid in debugging a problem. Knowledge of%ISPF dialog programming+would be required to interpret the results. %OPTIONS+allows the user to specify some defaults which will be in place for each%COMPILE+session. The user is taken to a separate screen to indicate these default values. When they press%ENTER,+they are returned to the main%COMPILE+ screen, and the default options are updated. The option fields are described on other tutorial panels. )PROC &ZUP = HELPCM00 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM10 )ATTR /********************************************************************** /* Panel: HELPCM10 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+panel field explanations: %Source Dataset+- This is the%sequential dataset+or%PDS member+which contains the program or%CICS map+source code. It must be the%full+dataset name (with member name if applicable)%without+any quotes. %Alternate Load Library+- The standard compile PROCs will put the load module created by the%Link Edit+step of the compile job into your personal load library. This field allows you to specify a%one-time+alternate library. If you invoke%COMPILE+with the keyword%ISPF,+this field will be prepopulated with %&SYSUID..&CMPAPPL..ISPLLIB. %Listing Dataset+- This field allows you to specify a%sequential dataset+name where the compile job output may be sent. If you have the appropriate default option set, this field will be prepopulated each time with a dataset name in the format%&SYSUID..COMPILE.LISTING.membername. % (Cont.) )PROC &ZUP = HELPCM00 &ZCONT = HELPCM11 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM11 )ATTR /********************************************************************** /* Panel: HELPCM11 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+panel field explanations (cont.): %Listing Print Configuration+- This field contains the name of the%PRINTIT+print configuration which should be used to direct your printed output. A value in this field indicates that you wish to print your output. No value in this field indicates that you do not. If you specify an incorrect value, or a%"?"+ in this field, a list of the valid values is displayed. At this list of valid print configuration values, you may select one of them (with an%"s")+and press %ENTER,+and the value will be carried back to the main screen. You may have a value in%both+the print configuration%and+the listing dataset fields if you wish, and your output will be printed%and+capured in a dataset. %Compile Language Type+- This field helps determine which compile PROC is to be executed. It indicates what the%language+of the source is, whether it's%online +or%batch,+etc. If%COMPILE+is invoked as an%edit macro, COMPILE+will parse the source to attempt to pre-populate this field. % (Cont.) )PROC &ZUP = HELPCM10 &ZCONT = HELPCM12 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM12 )ATTR /********************************************************************** /* Panel: HELPCM12 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+panel field explanations (cont.): %Test, XPEDITER, or RFP+- This field helps to determine which compile PROC is invoked. The%"test"+PROCs are the usual PROCs to be used and are indicated by placing a%"T"+in this field. Placing an%"X"+in this field indicates that you wish to use the%XPEDITER+compile PROCs. XPEDITER PROCs only exist for the %COBOL+language types. An%"R"+indicates that you wish to use the%RFP+(Ready For Production) compile PROCs. To use the RFP PROCs with no dataset overrides, you will need proper%update authority+to the%RFP/Model Office+libraries. %Application System+-%COMPILE+attempts to prepopulate this based on userid and the name of the source dataset. Currently the valid values are%SLSS+and%GSS. %Review JCL ?+-If you place a%"Y"+here, you will be taken into an%edit+of the JCL which%COMPILE+created. You must submit the JCL yourself from here. You are welcome to save the JCL somewhere else, change it, etc. It is a normal %ISPF edit+session. If you place an%"N"+here (the default) the JCL is both created and submitted automatically for you and you never see it. % (Cont.) )PROC &ZUP = HELPCM11 &ZCONT = HELPCM13 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM13 )ATTR /********************************************************************** /* Panel: HELPCM13 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+panel field explanations (cont.): %Job Name Suffix+- The compile JCL created by%COMPILE+will have a job name which begins with your%TSO user id.+ You must enter a one to three character suffix to complete the job name. You may use%alphanumeric+and%"national"+characters for this suffix. %Job Cost Center+- This field will be pre-populated for you based on an %Assembler+table which%Systems+maintains which indicates what your valid batch cost center is. You may overtype this field, but to successfully submit a job, the value will need to be in this assembler table. In most situations, the default value will be what is used. %Job Class+- This is the execution class the job will run under. It is up to you as to what this field is. The default is%"1",+and any value entered must be a valid UNIPAC job class. % (Cont.) )PROC &ZUP = HELPCM12 &ZCONT = HELPCM14 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM14 )ATTR /********************************************************************** /* Panel: HELPCM14 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+panel field explanations (cont.): %Sysout Delivery Box+- This field also defaults to the value in an Assembler table maintained by Systems. Any value which is valid for%IBM JCL+may be entered here. %Project Request Number+- This field contains the%PR+or%SR+number associated with this compile (if any). It is required for UNIPAC batch jobs, though as of this writing, the information is not used anywhere. % (Cont.) )PROC &ZUP = HELPCM13 &ZCONT = HELPCM15 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM15 )ATTR /********************************************************************** /* Panel: HELPCM15 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+(Print Configurations) panel field explanations: Other than the command line, the only other%"enterable"+field on the%print configurations+panel is the line selection field. The only valid value in this field is%"S".+ When you place an%S+in this field next to a specific print configuration, that print configuration 1-8 character mnemonic is copied into the print configuration field on the main%COMPILE+panel. +The description of each print configuration is next to it on the same line. +These print configurations are maintained through the%PRINTIT+utility. % (Cont.) )PROC &ZUP = HELPCM14 &ZCONT = HELPCM16 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM16 )ATTR /********************************************************************** /* Panel: HELPCM16 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+"Options" panel choices: %Automatically Generate A Listing Dataset Name+- A%"Y"+in this field indicates that when the%COMPILE+utility is invoked as an%edit macro,+the source dataset name is parsed and a listing dataset name is created from it. This listing dataset name will then be inserted into the listing dataset field on the main %COMPILE+panel. An%"N"+indicates that no dataset name is to be automatically generated. %Include CICS Translate Step Output When Printing+- A%"Y"+in this field indicates that if a%CICS translate+step is part of this compile job, and if a print configuration has been selected, the translate step output will be part of the printed output. An%"N"+in this field, would cause any CICS translate output to be placed in the held queue with the rest of the job output. % (Cont.) )PROC &ZUP = HELPCM15 &ZCONT = HELPCM17 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM17 )ATTR /********************************************************************** /* Panel: HELPCM17 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+"Options" panel choices (cont.): %Include CICS Translate Step Output In Dataset Capture+- A%"Y"+in this field indicates that if a%CICS translate+step is part of this compile job, and if a listing dataset name is present, the translate step output will be part of the output captured in the dataset. An%"N"+in this field, would cause any CICS translate output to be placed in the held queue with the rest of the job output. %Include Link Edit Step Output When Printing+- A%"Y"+in this field indicates that the%link edit+step output will be part of the printed output. An%"N"+in this field, would cause any link edit output to be placed in the held queue with the rest of the job output. %Include Link Edit Step Output In Dataset Capture+- A%"Y"+in this field indicates that the%link edit+step output will be part of the output captured in the dataset. An%"N"+in this field, would cause any link edit output to be placed in the held queue with the rest of the job output. % (Cont.) )PROC &ZUP = HELPCM16 &ZCONT = HELPCM18 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPCM18 )ATTR /********************************************************************** /* Panel: HELPCM18 * /* Author: David Leigh * /* Function: This is one of the ISPF help panels for the COMPILE * /* utility. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ Help For COMPILE {-{ TUTORIAL %COMMAND ===>_ZCMD + % %COMPILE+"Options" panel choices (cont.): %JCL Review Default+- This field indicates what the default will be for the %Review JCL+field on the main%COMPILE+panel. You may always override the default, but this will allow you to specify what you want most of the time. %"Y"+sets%"Y"+for the default and%"N"+sets%"N"+for the default. )PROC &ZUP = HELPCM17 &ZCONT = HELPCM00 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPSC01 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP for the Schedule Admistration Utility {-{ TUTORIAL %COMMAND ==>_ZCMD + % +The%SCHEDULE+utility is a%CLIST-based ISPF dialog+which enables the%UNIPAC schedule administrator+to maintain a list of%PARMLIB+symbolic variables and their substitution values. %SCHEDULE+facilitates the establishment and on-going maintenance of these variables. %SCHEDULE+also automates the creation of%batch JCL+to process the copying of%PRD PARMLIBs+to%SCHD PARMLIBs+and then the replacing of symbolic variables with the assignment values maintained in the table. %SCHEDULE+allows a given symbolic variable to be%database specific+if desired. A variable may be specified just for%LIN51+and%USC10+for example, or a value may be specified one way for%USC10+and another way for all the other databases. %ENTER+to continue... )PROC &ZHTOP = HELPSC01 &ZCONT = HELPSC02 )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES.NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPSC02 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP for the Schedule Admistration Utility {-{ TUTORIAL %COMMAND ==>_ZCMD + % +A list of valid database%DSNQUALs+is maintained at the top of the%SCHEDULE +CLIST. Included in this list%(and it should not be removed)+is a special %DSNQUAL+called%*ALL.+ When this%DSNQUAL+is specified in the%DATABASE+column of the%SCHEDULE+panel, it indicates one of two things. If, for instance, the%VARIABLE RUNDAT+(the daily run date) is specified only once on the table and the database it is specified for is%*ALL,+it means that the%VALUE+specified will be the value used for%RUNDAT+in all the database %PARMLIBs.+ If, on the other hand, in addition to the%RUNDAT+row for%*ALL,+there is a %RUNDAT+row which specifies%USC10+as it's applicable database, the%VALUE +specified for the%USC10+row will be applicable%only+to the%USC10 PARMLIB,+and the%rest of the databases+will get the%VALUE+specified in the%*ALL+row. %ENTER+to continue... )PROC &ZHTOP = HELPSC01 &ZUP = HELPSC01 &ZCONT = HELPSC03 )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES.NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPSC03 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP for the Schedule Admistration Utility {-{ TUTORIAL %COMMAND ==>_ZCMD + % +The%SCHEDULE+CLIST also has a number of%PRESET VARIABLEs. PRESET VARIABLEs+are special variables which have a default value and a specific purpose. %RUNDAT+is such a variable. %RUNDAT+is the%UNIPAC+daily batch cycle run date in%YYMMDD +format. When you specify%RUNDAT+as the variable name on a row on the%SCHEDULE +panel, it will be processed in a specific way. +When the%SCHEDULE+CLIST is invoked, the%SCHEDULE ISPF table+is scanned for all the%PRESET VARIABLE+occurances. When one is found, it is given a default value. In the case of%RUNDAT,+the value is today's date in%YYMMDD+format. Once the SCHEDULE panel is displayed, any default values may be overtyped and set to a new value. The RESET command will re-process the%ISPF table+for all %PRESET VARIABLEs+and re-assign them their default values. The definition of/processing for%PRESET VARIABLEs+is hard-coded in the%SCHEDULE+CLIST. %ENTER+to continue... )PROC &ZHTOP = HELPSC01 &ZUP = HELPSC02 &ZCONT = HELPSC04 )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES.NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPSC04 )ATTR DEFAULT(%+.) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) . TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP for the Schedule Admistration Utility {-{ TUTORIAL %COMMAND ==>.ZCMD + % +The%SCHEDULE+utility also provides for the ability to%"edit"+variables for validity if you so choose. In the%SCHEDULE CLIST+is a section of code named %EDIT_ROW:.+ This section of code is where logic should be maintained which checks the%VARIABLE VALUE+in the current row against the%EDIT TYPE. +Like the%PRESET VARIABLEs+the%SCHEDULE+utility comes with some%EDIT TYPES +already defined. %YYMMDD+is an%EDIT TYPE+which requires the%VARIABLE VALUE+to be a valid date in%YYMMDD+format. %DAY+is an%EDIT TYPE+which requires the %VARIABLE VALUE+to be a valid full day of the week or a valid three day abbreviation of the week. %EDIT TYPE+is an optional field on any given row, and if absent, no editing will be performed on the%VARIABLE VALUE+of that row. If an%EDIT TYPE+is entered, it must be one of the types currently defined in the%EDIT_ROW:+section of the %SCHEDULE CLIST.+ Invalid%EDIT TYPEs+will receive an error message. %ENTER+to continue... )PROC &ZHTOP = HELPSC01 &ZUP = HELPSC03 &ZCONT = HELPSC05 )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES.NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=HELPSC05 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP for the Schedule Admistration Utility {-{ TUTORIAL %COMMAND ==>_ZCMD + % +The last major function of the%SCHEDULE+dialog is to create%JCL+to automatically process the%PARMLIB+for a given day's batch cycle. Once the %Schedule Administrator+has verified that the variable values are correct for that night's cycle, the%PROCESS+command can be used to create the%JCL.+ The user will be taken into an edit of the resulting created%JCL.+ At this point they may elect to%modify/not modify+the JCL and/or%submit/not submit+the %JCL.+ Output of the job will be placed in a member in a%SCHEDULE PARMLIB LOG PDS.+ This will preserve an audit trail of exactly what occurred in the%PARMLIB+ processing. The member name of a given run will be%#YYDDD+where%YYDDD+will be the current%Julian date.+ %END OF HELP )PROC &ZHTOP = HELPSC01 &ZUP = HELPSC04 &ZCONT = HELPSC01 )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES.NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=IDFIX )ATTR /********************************************************************** /* PANEL: IDFIX * /* AUTHOR: DAVE LEIGH * /* FUNCTION: THIS PANEL WORKS WITH THE IDFIX UTILITY TO PROMPT USERS * /* BEFORE PROCESSING. * /********************************************************************** + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) % TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(35,2) +Old Id To Change%FROM+==>_OLDID %END+to quit %ENTER+to process )END ./ ADD NAME=IDFIX2 )ATTR /********************************************************************** /* PANEL: IDFIX * /* AUTHOR: DAVE LEIGH * /* FUNCTION: THIS PANEL WORKS WITH THE IDFIX UTILITY TO PROMPT USERS * /* BEFORE PROCESSING. * /********************************************************************** + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) % TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(32,1) +Currently Processing: \MBR )END ./ ADD NAME=INFODSN )ATTR ¬ TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) ? TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) @ TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) | TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) $ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %{-{ DATASET INFORMATION {-{ %COMMAND ===>_ZCMD ¬ % ¬Retrieve Info for Dataset ==>_DSN ¬ ¬ Volume|Z ¬ Creation Date|Z ¬ ¬ Unit|Z ¬ Last Referenced Date|Z ¬ ¬ Tracks Per Cylinder|Z ¬ Updated|Z ¬ ¬ Dataset Organization|Z ¬ Space Units|Z ¬ ¬ Record Format|Z ¬ Allocated|Z ¬ ¬Logical Record Length|Z ¬ Used|Z ¬ ¬ Block Size|Z ¬ Primary|Z ¬ ¬ Key Length|Z ¬ Secondary|Z ¬ ¬ Password|Z ¬ Used Extents|Z ¬ ¬ RACF Protection|Z ¬ Expiration Date|Z ¬ ¬ @{={ PDS Specific Information {={ @Dir Blks/Trk$Z @Dir Blks Alloc$Z @Dir Blks Used$Z @# of Members$Z @ ?Ver #\Z ?Mod #\Z ?Created\ZLCDATE ?Updated\ZLMDATE \ZLMTIME?By\ZLUSER ?# of Initial Recs\Z ?# of Current Recs\Z ?# of Modified Recs\Z ¬ ¬Press%¬to see information or%END¬to quit )INIT &ZCMD = ' ' .ZVARS = '(XSYS1 XSYS2 XSYS3 XSYS4 XSYS5 XSYS6 XSYS7 XSYS8 XSYS9 + XSYS10 XSYS11 XSYS12 XSYS13 XSYS14 XSYS15 XSYS16 XSYS17 + XSYS18 XSYS19 XSYS20 XSYS21 XSYS22 XSYS23 XSYS24 ZLVERS + ZLMOD ZLCNORC ZLINORC ZLMNORC)' IF (&MBR = &Z) .ATTRCHAR('?') = 'INTENS(NON)' .ATTRCHAR('\') = 'INTENS(NON)' &PDSFLAG = TRUNC(&XSYS7,2) IF (&PDSFLAG ¬= 'PO') .ATTRCHAR('@') = 'INTENS(NON)' .ATTRCHAR('$') = 'INTENS(NON)' .CURSOR = DSN )REINIT &ZCMD = ' ' IF (&MBR = &Z) .ATTRCHAR('?') = 'INTENS(NON)' .ATTRCHAR('\') = 'INTENS(NON)' &PDSFLAG = TRUNC(&XSYS7,2) IF (&PDSFLAG ¬= 'PO') .ATTRCHAR('@') = 'INTENS(NON)' .ATTRCHAR('$') = 'INTENS(NON)' .CURSOR = DSN )PROC VER (&DSN DSNAME) VER (&DSN NONBLANK) &PDSFLAG = TRUNC(&XSYS7,2) VPUT (DSN PDSFLAG) SHARED )END ./ ADD NAME=ISPFTABL )ATTR /*** VARIABLE ATTRIBUTE FIELDS ***/ ¬ TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) SKIP(ON) | TYPE(INPUT) INTENS(HIGH) CAPS(IN) COLOR(YELLOW) 01 TYPE(INPUT) INTENS(HIGH) CAPS(OFF) COLOR(YELLOW) * TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) SKIP(ON) @ TYPE(TEXT) INTENS(LOW) SKIP(ON) ~ TYPE(INPUT) INTENS(HIGH) CAPS(IN) COLOR(YELLOW) ` TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) CAPS(OFF) /*** FIXED ATTRIBUTE FIELDS ***/ \ TYPE(TEXT) INTENS(LOW) SKIP(ON) $ TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(IN) COLOR(YELLOW) 02 TYPE(INPUT) INTENS(HIGH) CAPS(OFF) COLOR(YELLOW) } TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(PINK) SKIP(ON) JUST(ASIS) › TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(GREEN) SKIP(ON) JUST(ASIS) )BODY EXPAND({{) %{-{ CREATE/LOAD ISPF TABLE UTILITY {-{ %OPTION ===>_ZCMD %SCROLL ===>_Z \ % $Table Name ==>_TNAME $Load Now ?_Z\(Y/N) (i.e. are the fields completed) $Table Library ==>_TDSN $Load Table From ==>_LOADDSN @Curr Record :*LINENUM ¬Load Dataset Scroll ==>|Z@(Up,Down,Left,Right)¬Rows/Columns Scroll # ==>|SCNUM ¬Find String ==>|FSTG ¬Prev/Next :|Z¬(P/N) ›SCALE }IMAGE \ KEY FIELD COL 1 COL 2¬Sort/Strip Load Dsn With Sort Cards Dsn Listed Below `FLD\-------- ----- -----¬Dsn ==>|SORTDSN ¬Edit ?|Z¬ )MODEL ~Z\~FIELD _COL1 _COL2 \or|DEFAULT ¬ )INIT .ZVARS = '(ZSCML FCOMP LSCROLL PREVNEXT SORTEDIT KEY)' &FCOMP = 'N' &ZCMD = &Z &FLD = 'k³d' IF (&TSTAT < 2) .ATTRCHAR('~') = 'TYPE(OUTPUT) COLOR(RED) SKIP(ON)' .ATTRCHAR('`') = 'INTENS(LOW) COLOR(BLUE)' &FLD = '---' IF (&TSTAT > 1) .ATTRCHAR('~') = 'TYPE(INPUT) CAPS(IN) COLOR(YELLOW)' .ATTRCHAR('`') = 'INTENS(HIGH) COLOR(WHITE)' IF (&LOADDSN = &Z) .ATTRCHAR('¬') = 'INTENS(NON)' .ATTRCHAR('›') = 'INTENS(NON)' .ATTRCHAR('*') = 'INTENS(NON)' .ATTRCHAR('@') = 'INTENS(NON)' .ATTRCHAR('01') = 'INTENS(NON)' )REINIT IF (.MSG = ' ') &ZCMD = &Z &FLD = 'k³d' IF (&TSTAT < 2) .ATTRCHAR('~') = 'TYPE(OUTPUT) COLOR(RED) SKIP(ON)' .ATTRCHAR('`') = 'INTENS(LOW) COLOR(BLUE)' &FLD = '---' IF (&TSTAT > 1) .ATTRCHAR('~') = 'TYPE(INPUT) CAPS(IN) COLOR(YELLOW)' .ATTRCHAR('`') = 'INTENS(HIGH) COLOR(WHITE)' IF (&LOADDSN = &Z) .ATTRCHAR('¬') = 'INTENS(NON)' .ATTRCHAR('›') = 'INTENS(NON)' .ATTRCHAR('*') = 'INTENS(NON)' .ATTRCHAR('@') = 'INTENS(NON)' .ATTRCHAR('01') = 'INTENS(NON)' )PROC VER (&TNAME,NONBLANK) VER (&FCOMP,NONBLANK,LIST,Y,N) VER (&LSCROLL,LIST,U,D,L,R) VER (&KEY,LIST,K,D) VER (&PREVNEXT,LIST,P,N) VER (&TDSN,NONBLANK,DSNAME) VER (&LOADDSN,DSNAME) IF (&SORTDSN > &Z) VER (&SORTDSN,DSNAME) VER (&SORTEDIT,NONBLANK,LIST,Y,N) VER (&COL1,NUM) VER (&COL2,NUM) VER (&SCNUM,NUM) VPUT (TNAME,TCREATE,TDSN,LOADDSN,FCOMP,LSCROLL,SCNUM) SHARED VPUT (FSTG,SORTDSN,PREVNEXT,LINENUM,SORTEDIT) SHARED VPUT (ZSCML) SHARED )END ./ ADD NAME=ISRBRO0X )ATTR DEFAULT(%+_) . TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) . TYPE(INPUT) INTENS(HIGH) CAPS(OFF) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) @ TYPE(INPUT) INTENS(NON) )BODY EXPAND({{) +{-{›Extended BROWSE Dataset Selection+{-{ %OPTION ===>_ZCMD + + +LIBRARY%===>_Z . (Select a number from the list or%"99".to set default cursor) +MEMBER %===>_ZMEM . (" " or pattern for mbr list or%"99".for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_ZODSN + VOLUME SERIAL %===>_ZVOL + (If not cataloged) + Column 2 Name Prefix %===>_COL2BPFX + 1%_QBRN1 +14%_QBRN14 + 2%_QBRN2 +15%_QBRN15 + 3%_QBRN3 +16%_QBRN16 + 4%_QBRN4 +17%_QBRN17 + 5%_QBRN5 +18%_QBRN18 + 6%_QBRN6 +19%_QBRN19 + 7%_QBRN7 +20%_QBRN20 + 8%_QBRN8 +21%_QBRN21 + 9%_QBRN9 +22%_QBRN22 +10%_QBRN10 +23%_QBRN23 +11%_QBRN11 +24%_QBRN24 +12%_QBRN12 +25%_QBRN25 +13%_QBRN13 +26%_QBRN26 )INIT .ZVARS = '(QBLIB)' VGET EXCURSOR PROFILE &ZCMD = &Z VGET ZMEM SHARED .HELP = ISR10000 IF (&TEMP = 'RESETZODSN') &ZODSN = &Z IF (&ZODSN > &Z) .CURSOR = ZODSN ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QBLIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = ZMEM ELSE .CURSOR = QBLIB )PROC IF (&ZMEM = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &ZMEM = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&ZMEM NONBLANK MSG=UTLZ000) IF (&QBLIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &QBLIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&ZMEM NONBLANK MSG=UTLZ000) VPUT ZMEM SHARED &ZMLCSR = ' ' IF (&ZODSN ¬= &Z) &TEMP = &Z &ZFC = TRUNC(&ZODSN,1) /* IF FIRST CHARACTER @M3A*/ IF (&ZFC = '''') /* OF ZODSN IS "'" CHECK @M3A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M3A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M3A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M3A*/ &ZODSN = '&ZODSN&ZFC' /* ADD IT TO THE END @M3A*/ ELSE IF (&ZPREFIX ¬= &Z) &ZODSN = '''&ZPREFIX..&ZODSN''' &ZMLCSR = '********' /* @M1A*/ PANEXIT((ZODSN,ZMLCSR),PGM,&ZMLVEXIT,&ZMLVDATA,MSG=ISRM040) ELSE VER (&QBLIB,NB,RANGE,1,26) IF (&QBLIB = 1) VER (&QBRN1,DSNAME) &QDSN = &QBRN1 IF (&QBLIB = 2) VER (&QBRN2,DSNAME) &QDSN = &QBRN2 IF (&QBLIB = 3) VER (&QBRN3,DSNAME) &QDSN = &QBRN3 IF (&QBLIB = 4) VER (&QBRN4,DSNAME) &QDSN = &QBRN4 IF (&QBLIB = 5) VER (&QBRN5,DSNAME) &QDSN = &QBRN5 IF (&QBLIB = 6) VER (&QBRN6,DSNAME) &QDSN = &QBRN6 IF (&QBLIB = 7) VER (&QBRN7,DSNAME) &QDSN = &QBRN7 IF (&QBLIB = 8) VER (&QBRN8,DSNAME) &QDSN = &QBRN8 IF (&QBLIB = 9) VER (&QBRN9,DSNAME) &QDSN = &QBRN9 IF (&QBLIB = 10) VER (&QBRN10,DSNAME) &QDSN = &QBRN10 IF (&QBLIB = 11) VER (&QBRN11,DSNAME) &QDSN = &QBRN11 IF (&QBLIB = 12) VER (&QBRN12,DSNAME) &QDSN = &QBRN12 IF (&QBLIB = 13) VER (&QBRN13,DSNAME) &QDSN = &QBRN13 IF (&QBLIB = 14) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN14' ELSE &QDSN = '&QBRN14' VER (&QDSN,DSNAME) IF (&QBLIB = 15) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN15' ELSE &QDSN = '&QBRN15' VER (&QDSN,DSNAME) IF (&QBLIB = 16) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN16' ELSE &QDSN = '&QBRN16' VER (&QDSN,DSNAME) IF (&QBLIB = 17) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN17' ELSE &QDSN = '&QBRN17' VER (&QDSN,DSNAME) IF (&QBLIB = 18) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN18' ELSE &QDSN = '&QBRN18' VER (&QDSN,DSNAME) IF (&QBLIB = 19) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN19' ELSE &QDSN = '&QBRN19' VER (&QDSN,DSNAME) IF (&QBLIB = 20) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN20' ELSE &QDSN = '&QBRN20' VER (&QDSN,DSNAME) IF (&QBLIB = 21) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN21' ELSE &QDSN = '&QBRN21' VER (&QDSN,DSNAME) IF (&QBLIB = 22) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN22' ELSE &QDSN = '&QBRN22' VER (&QDSN,DSNAME) IF (&QBLIB = 23) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN23' ELSE &QDSN = '&QBRN23' VER (&QDSN,DSNAME) IF (&QBLIB = 24) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN24' ELSE &QDSN = '&QBRN24' VER (&QDSN,DSNAME) IF (&QBLIB = 25) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN25' ELSE &QDSN = '&QBRN25' VER (&QDSN,DSNAME) IF (&QBLIB = 26) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN26' ELSE &QDSN = '&QBRN26' VER (&QDSN,DSNAME) &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&PRJ > &Z) &ZPRJ1 = &PRJ &ZBCPRJ1 = &PRJ IF (&LIB > &Z) &ZLIB1 = &LIB &ZBCLIB1 = &LIB IF (&TYP > &Z) &ZTYP1 = &TYP &ZBCTYP1 = &TYP IF (&TEMP > &Z) IF (&ZMEM > &Z) &ZODSN = '''&PRJ..&LIB..&TYP..&TEMP(&ZMEM)''' ELSE &ZODSN = '''&PRJ..&LIB..&TYP..&TEMP''' &TEMP = RESETZODSN ELSE IF (&ZMEM > &Z) &ZODSN = '''&PRJ..&LIB..&TYP(&ZMEM)''' ELSE &ZODSN = '''&PRJ..&LIB..&TYP''' &TEMP = RESETZODSN ELSE IF (&ZMEM > &Z) &ZODSN = '''&PRJ..&LIB(&ZMEM)''' ELSE &ZODSN = '''&PRJ..&LIB''' &TEMP = RESETZODSN ELSE IF (&ZMEM > &Z) &ZODSN = '''&PRJ(&ZMEM)''' ELSE &ZODSN = '''&PRJ''' &TEMP = RESETZODSN VPUT (QBRN1 QBRN2 QBRN3 QBRN4 QBRN5 QBRN6 QBRN7 QBRN8 QBRN9 QBRN10 QBRN11 QBRN12 QBRN13 QBRN14 QBRN15 QBRN16 QBRN17 QBRN18 QBRN19 QBRN20 QBRN21 QBRN22 QBRN23 QBRN24 QBRN25 QBRN26 QBLIB) PROFILE VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 ZBCPRJ1 ZBCLIB1 ZBCLIB2 ZBCLIB3 ZBCLIB4 ZBCTYP1 ZBCODSN) PROFILE )END ./ ADD NAME=ISRBRO0Z )ATTR DEFAULT(%+_) . TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) @ TYPE(INPUT) INTENS(NON) )BODY EXPAND({{) +{-{›Extended BROWSE Dataset Selection+{-{ %OPTION ===>_ZCMD + + +LIBRARY%===>_Z . (Select a number from the list or%"99".to set default cursor) +MEMBER %===>_MEM . (" " or pattern for mbr list or%"99".for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_ZODSN + VOLUME SERIAL %===>_VOL + (If not cataloged) + Column 3 Name Prefix %===>_COL3BPFX + 1_QBRN1 +14_QBRN14 +27_QBRN27 + 2_QBRN2 +15_QBRN15 +28_QBRN28 + 3_QBRN3 +16_QBRN16 +29_QBRN29 + 4_QBRN4 +17_QBRN17 +30_QBRN30 + 5_QBRN5 +18_QBRN18 +31_QBRN31 + 6_QBRN6 +19_QBRN19 +32_QBRN32 + 7_QBRN7 +20_QBRN20 +33_QBRN33 + 8_QBRN8 +21_QBRN21 +34_QBRN34 + 9_QBRN9 +22_QBRN22 +35_QBRN35 +10_QBRN10 +23_QBRN23 +36_QBRN36 +11_QBRN11 +24_QBRN24 +37_QBRN37 +12_QBRN12 +25_QBRN25 +38_QBRN38 +13_QBRN13 +26_QBRN26 +39_QBRN39 )INIT .ZVARS = '(QBLIB)' VGET EXCURSOR PROFILE &ZMLCSR = ' ' /* @M1A*/ &ZCMD = ' ' VGET MEM SHARED IF (&TEMP = 'RESETDSN') &ZODSN = &Z IF (&ZODSN > &Z) .CURSOR = ZODSN ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QBLIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEM ELSE .CURSOR = QBLIB IF (&MIX = ' ') &MIX = 'YES' IF (&ZDBCS = 'NO') &MIX = 'NO' )REINIT /* @M1A*/ IF (&ZMLCSR ¬= ' ') /* @M1A*/ .CURSOR = &ZMLCSR /* @M1A*/ )PROC IF (&MEM = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &MEM = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEM NONBLANK MSG=UTLZ000) IF (&QBLIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &QBLIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEM NONBLANK MSG=UTLZ000) VPUT MEM SHARED IF (&ZODSN ¬= ' ') /* @M1A*/ &TEMP = &Z &ZFC = TRUNC(&ZODSN,1) /* IF FIRST CHARACTER @M2A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M2A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M2A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M2A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M2A*/ &ZODSN = '&ZODSN&ZFC' /* ADD IT TO THE END @M2A*/ ELSE IF (&ZPREFIX ¬= &Z) &ZODSN = '''&ZPREFIX..&ZODSN''' &ZBCDSN = &ZODSN /* copy other ds field @M2A*/ &ZMLCSR = '********' /* @M1A*/ PANEXIT((ZODSN,ZMLCSR),PGM,&ZMLVEXIT,&ZMLVDATA,MSG=ISRM040) ELSE VER (&QBLIB,NB,RANGE,1,39) IF (&QBLIB = 1) VER (&QBRN1,DSNAME) &QDSN = &QBRN1 IF (&QBLIB = 2) VER (&QBRN2,DSNAME) &QDSN = &QBRN2 IF (&QBLIB = 3) VER (&QBRN3,DSNAME) &QDSN = &QBRN3 IF (&QBLIB = 4) VER (&QBRN4,DSNAME) &QDSN = &QBRN4 IF (&QBLIB = 5) VER (&QBRN5,DSNAME) &QDSN = &QBRN5 IF (&QBLIB = 6) VER (&QBRN6,DSNAME) &QDSN = &QBRN6 IF (&QBLIB = 7) VER (&QBRN7,DSNAME) &QDSN = &QBRN7 IF (&QBLIB = 8) VER (&QBRN8,DSNAME) &QDSN = &QBRN8 IF (&QBLIB = 9) VER (&QBRN9,DSNAME) &QDSN = &QBRN9 IF (&QBLIB = 10) VER (&QBRN10,DSNAME) &QDSN = &QBRN10 IF (&QBLIB = 11) VER (&QBRN11,DSNAME) &QDSN = &QBRN11 IF (&QBLIB = 12) VER (&QBRN12,DSNAME) &QDSN = &QBRN12 IF (&QBLIB = 13) VER (&QBRN13,DSNAME) &QDSN = &QBRN13 IF (&QBLIB = 14) VER (&QBRN14,DSNAME) &QDSN = &QBRN14 IF (&QBLIB = 15) VER (&QBRN15,DSNAME) &QDSN = &QBRN15 IF (&QBLIB = 16) VER (&QBRN16,DSNAME) &QDSN = &QBRN16 IF (&QBLIB = 17) VER (&QBRN17,DSNAME) &QDSN = &QBRN17 IF (&QBLIB = 18) VER (&QBRN18,DSNAME) &QDSN = &QBRN18 IF (&QBLIB = 19) VER (&QBRN19,DSNAME) &QDSN = &QBRN19 IF (&QBLIB = 20) VER (&QBRN20,DSNAME) &QDSN = &QBRN20 IF (&QBLIB = 21) VER (&QBRN21,DSNAME) &QDSN = &QBRN21 IF (&QBLIB = 22) VER (&QBRN22,DSNAME) &QDSN = &QBRN22 IF (&QBLIB = 23) VER (&QBRN23,DSNAME) &QDSN = &QBRN23 IF (&QBLIB = 24) VER (&QBRN24,DSNAME) &QDSN = &QBRN24 IF (&QBLIB = 25) VER (&QBRN25,DSNAME) &QDSN = &QBRN25 IF (&QBLIB = 26) VER (&QBRN26,DSNAME) &QDSN = &QBRN26 IF (&QBLIB = 27) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN27' ELSE &QDSN = '&QBRN27' VER (&QDSN,DSNAME) IF (&QBLIB = 28) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN28' ELSE &QDSN = '&QBRN28' VER (&QDSN,DSNAME) IF (&QBLIB = 29) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN29' ELSE &QDSN = '&QBRN29' VER (&QDSN,DSNAME) IF (&QBLIB = 30) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN30' ELSE &QDSN = '&QBRN30' VER (&QDSN,DSNAME) IF (&QBLIB = 31) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN31' ELSE &QDSN = '&QBRN31' VER (&QDSN,DSNAME) IF (&QBLIB = 32) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN32' ELSE &QDSN = '&QBRN32' VER (&QDSN,DSNAME) IF (&QBLIB = 33) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN33' ELSE &QDSN = '&QBRN33' VER (&QDSN,DSNAME) IF (&QBLIB = 34) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN34' ELSE &QDSN = '&QBRN34' VER (&QDSN,DSNAME) IF (&QBLIB = 35) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN35' ELSE &QDSN = '&QBRN35' VER (&QDSN,DSNAME) IF (&QBLIB = 36) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN36' ELSE &QDSN = '&QBRN36' VER (&QDSN,DSNAME) IF (&QBLIB = 37) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN37' ELSE &QDSN = '&QBRN37' VER (&QDSN,DSNAME) IF (&QBLIB = 38) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN38' ELSE &QDSN = '&QBRN38' VER (&QDSN,DSNAME) IF (&QBLIB = 39) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN39' ELSE &QDSN = '&QBRN39' VER (&QDSN,DSNAME) &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&PRJ > &Z) &PRJ0 = &PRJ &PRJ1 = &PRJ &ZBCPRJ1 = &PRJ IF (&LIB > &Z) &LIB0 = &LIB &LIB1 = &LIB &ZBCLIB1 = &LIB IF (&TYP > &Z) &TYP0 = &TYP &TYP1 = &TYP &ZBCTYP1 = &TYP IF (&TEMP > &Z) IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB..&TYP..&TEMP(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB..&TYP..&TEMP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB..&TYP(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB..&TYP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ(&MEM)''' ELSE &ZODSN = '''&PRJ''' &TEMP = RESETDSN VER (&PROF NAME) IF (&IMAC ¬= ' ' ) &ZXXX = TRUNC(&IMAC,'!') &IMACNM = .TRAIL IF (&IMACNM = ' ') &IMACNM = &ZXXX VER (&IMACNM NAME MSG = ISRE900) &MIX = TRANS(TRUNC(&MIX,1) N,NO Y,YES *,*) VER (&MIX LIST,YES,NO) IF (&FNAM ¬= ' ') VER (&FNAM NAME) &ZBCMIX = &MIX &ZBCFNAM = &FNAM VPUT (MIX FNAM) PROFILE VPUT (ZBCMIX ZBCFNAM) SHARED VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 PRJ0 LIB0 TYP0) PROFILE VPUT (PROF) PROFILE VPUT (QBRN1 QBRN2 QBRN3 QBRN4 QBRN5 QBRN6 QBRN7 QBRN8 QBRN9 QBRN10 QBRN11 QBRN12 QBRN13 QBRN14 QBRN15 QBRN16 QBRN17 QBRN18 QBRN19 QBRN20 QBRN21 QBRN22 QBRN23 QBRN24 QBRN25) PROFILE VPUT (QBRN26 QBRN27 QBRN28 QBRN29 QBRN30 QBRN31 QBRN32 QBRN33 QBRN34 QBRN35 QBRN36 QBRN37 QBRN38 QBRN39 QBLIB) PROFILE VPUT (ZBCPRJ1 ZBCLIB1 ZBCTYP1) PROFILE )END ./ ADD NAME=ISREDDE )PANEL KEYLIST(ISRSPEC,ISR) )ATTR DEFAULT(...) FORMAT(MIX) /* ENGLISH */ 15 TYPE(AB) 2A TYPE(ABSL) GE(ON) 2B TYPE(PT) 2F TYPE(FP) 14 TYPE(NT) 13 TYPE(NEF) PADC(USER) 16 TYPE(VOI) PADC(USER) 26 AREA(DYNAMIC) EXTEND(ON) SCROLL(ON) USERMOD('20') 01 TYPE(DATAOUT) INTENS(LOW) 02 TYPE(DATAOUT) 03 TYPE(DATAOUT) SKIP(ON) 04 TYPE(DATAIN) INTENS(LOW) CAPS(OFF) FORMAT(&MIXED) 05 TYPE(DATAIN) CAPS(OFF) FORMAT(&MIXED) 06 TYPE(DATAIN) INTENS(LOW) CAPS(IN) FORMAT(&MIXED) 07 TYPE(DATAIN) CAPS(IN) FORMAT(&MIXED) 08 TYPE(DATAIN) INTENS(LOW) FORMAT(DBCS) OUTLINE(L) 09 TYPE(DATAIN) INTENS(LOW) FORMAT(EBCDIC) OUTLINE(L) 0A TYPE(DATAIN) INTENS(LOW) FORMAT(&MIXED) OUTLINE(L) 0B TYPE(DATAIN) INTENS(LOW) CAPS(IN) COLOR(&ZPLEXCLR) FORMAT(&MIXED) 0C TYPE(DATAIN) INTENS(LOW) CAPS(OFF) COLOR(&ZPLEXCLR) FORMAT(&MIXED) 0D TYPE(DATAIN) INTENS(LOW) CAPS(IN) COLOR(BLUE) FORMAT(&MIXED) 20 TYPE(DATAIN) INTENS(LOW) CAPS(IN) FORMAT(&MIXED) Z TYPE(CHAR) COLOR(PINK) HILITE(REVERSE) R TYPE(CHAR) COLOR(RED) G TYPE(CHAR) COLOR(GREEN) B TYPE(CHAR) COLOR(BLUE) W TYPE(CHAR) COLOR(WHITE) P TYPE(CHAR) COLOR(PINK) Y TYPE(CHAR) COLOR(YELLOW) T TYPE(CHAR) COLOR(TURQ) L TYPE(CHAR) COLOR(RED) K TYPE(CHAR) COLOR(&ZCK) HILITE(&ZHK) O TYPE(CHAR) COLOR(&ZCO) HILITE(&ZHO) Q TYPE(CHAR) COLOR(&ZCQ) HILITE(&ZHQ) C TYPE(CHAR) COLOR(&ZCC) HILITE(&ZHC) V TYPE(CHAR) COLOR(&ZCV) HILITE(&ZHV) D TYPE(CHAR) COLOR(&ZCD) HILITE(&ZHD) F TYPE(CHAR) COLOR(&ZCF) HILITE(&ZHF) S TYPE(CHAR) COLOR(&ZCS) HILITE(&ZHS) 1C TYPE(NEF) CAPS(ON) PADC(USER) )ABC DESC('FILE') MNEM(1) PDC DESC('SAVE') UNAVAIL(ZEDF) MNEM(1) ACTION RUN(SAVE) PDC DESC('CANCEL') MNEM(1) ACTION RUN(CAN) PDC DESC('EXIT') MNEM(1) ACTION RUN(END) )ABCINIT .ZVARS=EDITFILE IF (&ZVMODET = 'VIEW') &ZEDF = 1 ELSE &ZEDF = 0 )ABC DESC('EDIT') MNEM(1) PDC DESC('RESET') MNEM(1) ACTION RUN(RESET) PDC DESC('UNDO') MNEM(1) ACTION RUN(UNDO) PDC DESC('HILITE') UNAVAIL(ZEDE) MNEM(1) ACTION RUN(HI) )ABCINIT .ZVARS=EDITEDIT IF (&ZEDHI ¬= 'YES') &ZEDE = 1 )ABC DESC('CONFIRM') MNEM(1) PDC DESC('SET CONFIRM CANCEL/MOVE/REPLACE ON') UNAVAIL(ZCFMA) MNEM(1) PDC DESC('SET CONFIRM CANCEL/MOVE/REPLACE OFF') UNAVAIL(ZCFMB) MNEM(2) )ABCINIT .ZVARS=PDFCFM IF (&ZCFMCNCL = 'NO ') &ZCFMA = 0 &ZCFMB = 1 &PDFCFM = 1 ELSE &ZCFMA = 1 &ZCFMB = 0 &PDFCFM = 2 )ABCPROC IF (&PDFCFM = 1) &ZCFMCNCL = 'YES' ELSE &ZCFMCNCL = 'NO ' )ABC DESC('MENU') MNEM(1) PDC DESC('SETTINGS') UNAVAIL(ZPM1) MNEM(1) ACC(CTRL+S) ACTION RUN(ISRROUTE) PARM('SET') PDC DESC('VIEW') UNAVAIL(ZPM2) MNEM(1) ACC(CTRL+V) ACTION RUN(ISRROUTE) PARM('BR1') PDC DESC('EDIT') UNAVAIL(ZPM3) MNEM(1) ACC(CTRL+E) ACTION RUN(ISRROUTE) PARM('ED1') PDC DESC('ISPF COMMAND SHELL') UNAVAIL(ZPM4) MNEM(6) ACC(CTRL+C) ACTION RUN(ISRROUTE) PARM('C1') PDC DESC('DIALOG TEST...') UNAVAIL(ZPM5) MNEM(8) ACC(CTRL+T) ACTION RUN(ISRROUTE) PARM('DAL') PDC DESC('OTHER IBM PRODUCTS...') UNAVAIL(ZPM6) MNEM(1) ACC(CTRL+O) ACTION RUN(ISRROUTE) PARM('OIB') PDC DESC('SCLM') UNAVAIL(ZPM7) MNEM(3) ACC(CTRL+L) ACTION RUN(ISRROUTE) PARM('SCL') PDC DESC('ISPF WORKPLACE') UNAVAIL(ZPM8) MNEM(6) ACC(CTRL+W) ACTION RUN(ISRROUTE) PARM('WRK') PDC DESC('STATUS AREA...') UNAVAIL(ZPMS) MNEM(8) ACC(CTRL+A) ACTION RUN(ISRROUTE) PARM('SAM') PDC DESC('EXIT') MNEM(2) PDSEP(ON) ACC(CTRL+X) ACTION RUN(EXIT) )ABCINIT .ZVARS=ISR@OPT )ABC DESC('UTILITIES') MNEM(1) PDC DESC('LIBRARY') UNAVAIL(ZUT1) MNEM(1) ACC(ALT+1) ACTION RUN(ISRROUTE) PARM('U1') PDC DESC('DATA SET') UNAVAIL(ZUT2) MNEM(1) ACC(ALT+2) ACTION RUN(ISRROUTE) PARM('U2') PDC DESC('MOVE/COPY') UNAVAIL(ZUT3) MNEM(1) ACC(ALT+3) ACTION RUN(ISRROUTE) PARM('U3') PDC DESC('DATA SET LIST') UNAVAIL(ZUT4) MNEM(2) ACC(ALT+4) ACTION RUN(ISRROUTE) PARM('U4') PDC DESC('RESET STATISTICS') UNAVAIL(ZUT5) MNEM(5) ACC(ALT+5) ACTION RUN(ISRROUTE) PARM('U5') PDC DESC('HARDCOPY') UNAVAIL(ZUT6) MNEM(1) ACC(ALT+6) ACTION RUN(ISRROUTE) PARM('U6') PDC DESC('DOWNLOAD...') UNAVAIL(ZUTDT) MNEM(2) ACC(ALT+7) ACTION RUN(ISRROUTE) PARM('UDT') PDC DESC('OUTLIST') UNAVAIL(ZUT7) MNEM(2) ACC(ALT+8) ACTION RUN(ISRROUTE) PARM('U8') PDC DESC('COMMANDS...') UNAVAIL(ZUT8) MNEM(1) ACC(ALT+9) ACTION RUN(ISRROUTE) PARM('U9') PDC DESC('RESERVED') UNAVAIL(ZUT9) MNEM(6) ACTION RUN(ISRROUTE) PARM('U10') PDC DESC('FORMAT') UNAVAIL(ZUT10) MNEM(1) ACC(ALT+F1) ACTION RUN(ISRROUTE) PARM('U11') PDC DESC('SUPERC') UNAVAIL(ZUT11) MNEM(1) PDSEP(ON) ACC(CTRL+F2) ACTION RUN(ISRROUTE) PARM('U12') PDC DESC('SUPERCE') UNAVAIL(ZUT12) MNEM(3) ACC(CTRL+F3) ACTION RUN(ISRROUTE) PARM('U13') PDC DESC('SEARCH-FOR') UNAVAIL(ZUT13) MNEM(2) ACC(CTRL+F4) ACTION RUN(ISRROUTE) PARM('U14') PDC DESC('SEARCH-FORE') UNAVAIL(ZUT14) MNEM(4) ACC(CTRL+F5) ACTION RUN(ISRROUTE) PARM('U15') )ABCINIT .ZVARS=PDFUTIL &ZUT9 = '1' )ABC DESC('COMPILERS') MNEM(2) PDC DESC('FOREGROUND COMPILERS') MNEM(1) ACTION RUN(ISRROUTE) PARM('FGD') PDC DESC('BACKGROUND COMPILERS') MNEM(1) ACTION RUN(ISRROUTE) PARM('BKG') PDC DESC('ISPPREP PANEL UTILITY...') MNEM(1) ACTION RUN(ISPPREP) PDC DESC('DTL COMPILER...') MNEM(1) ACTION RUN(ISPDTLC) )ABCINIT .ZVARS=ISRLANG )ABC DESC('TEST') MNEM(1) PDC DESC('FUNCTIONS...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL1') PDC DESC('PANELS...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL2') PDC DESC('VARIABLES...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL3') PDC DESC('TABLES...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL4') PDC DESC('LOG') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL5') PDC DESC('SERVICES...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL6') PDC DESC('TRACES...') UNAVAIL(ZPM5) MNEM(2) ACTION RUN(ISRROUTE) PARM('DL7') PDC DESC('BREAK POINTS...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL8') PDC DESC('DIALOG TEST...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DAL') PDC DESC('DIALOG TEST APPL ID...') MNEM(2) ACTION RUN(ISRROUTE) PARM('DAP') )ABCINIT .ZVARS=DIATEST )ABC DESC('HELP') MNEM(1) PDC DESC('GENERAL') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2A000') PDC DESC('DISPLAY SCREEN FORMAT') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2E000') PDC DESC('SCROLLING DATA') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2F000') PDC DESC('SEQUENCE NUMBERING') MNEM(2) ACTION RUN(TUTOR) PARM('ISR2G000') PDC DESC('DISPLAY MODES') MNEM(2) ACTION RUN(TUTOR) PARM('ISR2H000') PDC DESC('TABBING') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2I000') PDC DESC('AUTOMATIC RECOVERY') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2J000') PDC DESC('EDIT PROFILES') MNEM(6) ACTION RUN(TUTOR) PARM('ISR2K000') PDC DESC('EDIT LINE COMMANDS') MNEM(6) ACTION RUN(TUTOR) PARM('ISR2L000') PDC DESC('EDIT PRIMARY COMMANDS') MNEM(7) ACTION RUN(TUTOR) PARM('ISR2M000') PDC DESC('LABELS AND LINE RANGES') MNEM(3) ACTION RUN(TUTOR) PARM('ISR2Q000') PDC DESC('ENDING AN EDIT SESSION') MNEM(2) ACTION RUN(TUTOR) PARM('ISR2N000') PDC DESC('APPENDICES') MNEM(8) ACTION RUN(TUTOR) PARM('ISR00004') PDC DESC('INDEX') MNEM(5) ACTION RUN(TUTOR) PARM('ISR91000') )ABCINIT .ZVARS=EDMHELP )BODY EXPAND(//) WIDTH(&ZWIDTH) CMD(ZCMD) .. FILE. EDIT. CONFIRM. MENU. UTILITIES. COMPILERS. TEST. HELP. .--/-/------------------------------------------------------------------------- .Z .Z/ / .COLUMNS.Z .Z . ¬==>.Z/ / ¬==>.Z . .ZDATA,ZSHADOW/ / . ./ / . )INIT .ZVARS = '(ZVMODET ZTITLE ZCL ZCR ZCMD ZSCED)' IF (&ZVMODET = 'VIEW') .HELP = ISR10000 /* DEFAULT TUTORIAL NAME */ ELSE .HELP = ISR20000 /* DEFAULT TUTORIAL NAME */ &ZPM3 = 0 VGET (ZSCED) PROFILE /* FILL SCROLL VARS IF */ IF (&ZSCED = ' ') &ZSCED = 'PAGE' /* BLANK WITH PAGE */ &MIXED = TRANS(&ZPDMIX N,EBCDIC *,MIX) /* SET MIXED FORMAT */ VGET (ZDSVOL) SHARED )REINIT REFRESH(*) IF (&ZVMODET = 'VIEW') .HELP = ISR10000 /* DEFAULT TUTORIAL NAME */ ELSE .HELP = ISR20000 /* DEFAULT TUTORIAL NAME */ )PROC REFRESH(*) &ZCURSOR = .CURSOR &ZCSROFF = .CSRPOS VPUT (ZSCED) PROFILE &ZLVLINE = LVLINE(ZDATA) )END /* 5647-A01 (C) COPYRIGHT IBM CORP 1980, 1997 */ /* ISPDTLC RELEASE: 4.5. LEVEL: PID */ /* OS/390 02.05.00. CREATED - DATE: 5 NOV 1997, TIME: 21:08:40 */ ./ ADD NAME=ISREDDE2 )PANEL KEYLIST(ISRSPEC,ISR) )ATTR DEFAULT(...) FORMAT(MIX) /* ENGLISH */ 15 TYPE(AB) 2A TYPE(ABSL) GE(ON) 2B TYPE(PT) 2F TYPE(FP) 14 TYPE(NT) 13 TYPE(NEF) PADC(USER) 16 TYPE(VOI) PADC(USER) 26 AREA(DYNAMIC) EXTEND(ON) SCROLL(ON) USERMOD('20') 01 TYPE(DATAOUT) INTENS(LOW) 02 TYPE(DATAOUT) 03 TYPE(DATAOUT) SKIP(ON) 04 TYPE(DATAIN) INTENS(LOW) CAPS(OFF) FORMAT(&MIXED) 05 TYPE(DATAIN) CAPS(OFF) FORMAT(&MIXED) 06 TYPE(DATAIN) INTENS(LOW) CAPS(IN) FORMAT(&MIXED) 07 TYPE(DATAIN) CAPS(IN) FORMAT(&MIXED) 08 TYPE(DATAIN) INTENS(LOW) FORMAT(DBCS) OUTLINE(L) 09 TYPE(DATAIN) INTENS(LOW) FORMAT(EBCDIC) OUTLINE(L) 0A TYPE(DATAIN) INTENS(LOW) FORMAT(&MIXED) OUTLINE(L) 0B TYPE(DATAIN) INTENS(LOW) CAPS(IN) COLOR(&ZPLEXCLR) FORMAT(&MIXED) 0C TYPE(DATAIN) INTENS(LOW) CAPS(OFF) COLOR(&ZPLEXCLR) FORMAT(&MIXED) 0D TYPE(DATAIN) INTENS(LOW) CAPS(IN) COLOR(BLUE) FORMAT(&MIXED) 20 TYPE(DATAIN) INTENS(LOW) CAPS(IN) FORMAT(&MIXED) Z TYPE(CHAR) COLOR(PINK) HILITE(REVERSE) R TYPE(CHAR) COLOR(RED) G TYPE(CHAR) COLOR(GREEN) B TYPE(CHAR) COLOR(BLUE) W TYPE(CHAR) COLOR(WHITE) P TYPE(CHAR) COLOR(PINK) Y TYPE(CHAR) COLOR(YELLOW) T TYPE(CHAR) COLOR(TURQ) L TYPE(CHAR) COLOR(RED) K TYPE(CHAR) COLOR(&ZCK) HILITE(&ZHK) O TYPE(CHAR) COLOR(&ZCO) HILITE(&ZHO) Q TYPE(CHAR) COLOR(&ZCQ) HILITE(&ZHQ) C TYPE(CHAR) COLOR(&ZCC) HILITE(&ZHC) V TYPE(CHAR) COLOR(&ZCV) HILITE(&ZHV) D TYPE(CHAR) COLOR(&ZCD) HILITE(&ZHD) F TYPE(CHAR) COLOR(&ZCF) HILITE(&ZHF) S TYPE(CHAR) COLOR(&ZCS) HILITE(&ZHS) 1C TYPE(NEF) CAPS(ON) PADC(USER) )ABC DESC('FILE') MNEM(1) PDC DESC('SAVE') UNAVAIL(ZEDF) MNEM(1) ACTION RUN(SAVE) PDC DESC('CANCEL') MNEM(1) ACTION RUN(CAN) PDC DESC('EXIT') MNEM(1) ACTION RUN(END) )ABCINIT .ZVARS=EDITFILE IF (&ZVMODET = 'VIEW') &ZEDF = 1 ELSE &ZEDF = 0 )ABC DESC('EDIT') MNEM(1) PDC DESC('RESET') MNEM(1) ACTION RUN(RESET) PDC DESC('UNDO') MNEM(1) ACTION RUN(UNDO) PDC DESC('HILITE') UNAVAIL(ZEDE) MNEM(1) ACTION RUN(HI) )ABCINIT .ZVARS=EDITEDIT IF (&ZEDHI ¬= 'YES') &ZEDE = 1 )ABC DESC('CONFIRM') MNEM(1) PDC DESC('SET CONFIRM CANCEL/MOVE/REPLACE ON') UNAVAIL(ZCFMA) MNEM(1) PDC DESC('SET CONFIRM CANCEL/MOVE/REPLACE OFF') UNAVAIL(ZCFMB) MNEM(2) )ABCINIT .ZVARS=PDFCFM IF (&ZCFMCNCL = 'NO ') &ZCFMA = 0 &ZCFMB = 1 &PDFCFM = 1 ELSE &ZCFMA = 1 &ZCFMB = 0 &PDFCFM = 2 )ABCPROC IF (&PDFCFM = 1) &ZCFMCNCL = 'YES' ELSE &ZCFMCNCL = 'NO ' )ABC DESC('MENU') MNEM(1) PDC DESC('SETTINGS') UNAVAIL(ZPM1) MNEM(1) ACC(CTRL+S) ACTION RUN(ISRROUTE) PARM('SET') PDC DESC('VIEW') UNAVAIL(ZPM2) MNEM(1) ACC(CTRL+V) ACTION RUN(ISRROUTE) PARM('BR1') PDC DESC('EDIT') UNAVAIL(ZPM3) MNEM(1) ACC(CTRL+E) ACTION RUN(ISRROUTE) PARM('ED1') PDC DESC('ISPF COMMAND SHELL') UNAVAIL(ZPM4) MNEM(6) ACC(CTRL+C) ACTION RUN(ISRROUTE) PARM('C1') PDC DESC('DIALOG TEST...') UNAVAIL(ZPM5) MNEM(8) ACC(CTRL+T) ACTION RUN(ISRROUTE) PARM('DAL') PDC DESC('OTHER IBM PRODUCTS...') UNAVAIL(ZPM6) MNEM(1) ACC(CTRL+O) ACTION RUN(ISRROUTE) PARM('OIB') PDC DESC('SCLM') UNAVAIL(ZPM7) MNEM(3) ACC(CTRL+L) ACTION RUN(ISRROUTE) PARM('SCL') PDC DESC('ISPF WORKPLACE') UNAVAIL(ZPM8) MNEM(6) ACC(CTRL+W) ACTION RUN(ISRROUTE) PARM('WRK') PDC DESC('STATUS AREA...') UNAVAIL(ZPMS) MNEM(8) ACC(CTRL+A) ACTION RUN(ISRROUTE) PARM('SAM') PDC DESC('EXIT') MNEM(2) PDSEP(ON) ACC(CTRL+X) ACTION RUN(EXIT) )ABCINIT .ZVARS=ISR@OPT )ABC DESC('UTILITIES') MNEM(1) PDC DESC('LIBRARY') UNAVAIL(ZUT1) MNEM(1) ACC(ALT+1) ACTION RUN(ISRROUTE) PARM('U1') PDC DESC('DATA SET') UNAVAIL(ZUT2) MNEM(1) ACC(ALT+2) ACTION RUN(ISRROUTE) PARM('U2') PDC DESC('MOVE/COPY') UNAVAIL(ZUT3) MNEM(1) ACC(ALT+3) ACTION RUN(ISRROUTE) PARM('U3') PDC DESC('DATA SET LIST') UNAVAIL(ZUT4) MNEM(2) ACC(ALT+4) ACTION RUN(ISRROUTE) PARM('U4') PDC DESC('RESET STATISTICS') UNAVAIL(ZUT5) MNEM(5) ACC(ALT+5) ACTION RUN(ISRROUTE) PARM('U5') PDC DESC('HARDCOPY') UNAVAIL(ZUT6) MNEM(1) ACC(ALT+6) ACTION RUN(ISRROUTE) PARM('U6') PDC DESC('DOWNLOAD...') UNAVAIL(ZUTDT) MNEM(2) ACC(ALT+7) ACTION RUN(ISRROUTE) PARM('UDT') PDC DESC('OUTLIST') UNAVAIL(ZUT7) MNEM(2) ACC(ALT+8) ACTION RUN(ISRROUTE) PARM('U8') PDC DESC('COMMANDS...') UNAVAIL(ZUT8) MNEM(1) ACC(ALT+9) ACTION RUN(ISRROUTE) PARM('U9') PDC DESC('RESERVED') UNAVAIL(ZUT9) MNEM(6) ACTION RUN(ISRROUTE) PARM('U10') PDC DESC('FORMAT') UNAVAIL(ZUT10) MNEM(1) ACC(ALT+F1) ACTION RUN(ISRROUTE) PARM('U11') PDC DESC('SUPERC') UNAVAIL(ZUT11) MNEM(1) PDSEP(ON) ACC(CTRL+F2) ACTION RUN(ISRROUTE) PARM('U12') PDC DESC('SUPERCE') UNAVAIL(ZUT12) MNEM(3) ACC(CTRL+F3) ACTION RUN(ISRROUTE) PARM('U13') PDC DESC('SEARCH-FOR') UNAVAIL(ZUT13) MNEM(2) ACC(CTRL+F4) ACTION RUN(ISRROUTE) PARM('U14') PDC DESC('SEARCH-FORE') UNAVAIL(ZUT14) MNEM(4) ACC(CTRL+F5) ACTION RUN(ISRROUTE) PARM('U15') )ABCINIT .ZVARS=PDFUTIL &ZUT9 = '1' )ABC DESC('COMPILERS') MNEM(2) PDC DESC('FOREGROUND COMPILERS') MNEM(1) ACTION RUN(ISRROUTE) PARM('FGD') PDC DESC('BACKGROUND COMPILERS') MNEM(1) ACTION RUN(ISRROUTE) PARM('BKG') PDC DESC('ISPPREP PANEL UTILITY...') MNEM(1) ACTION RUN(ISPPREP) PDC DESC('DTL COMPILER...') MNEM(1) ACTION RUN(ISPDTLC) )ABCINIT .ZVARS=ISRLANG )ABC DESC('TEST') MNEM(1) PDC DESC('FUNCTIONS...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL1') PDC DESC('PANELS...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL2') PDC DESC('VARIABLES...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL3') PDC DESC('TABLES...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL4') PDC DESC('LOG') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL5') PDC DESC('SERVICES...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL6') PDC DESC('TRACES...') UNAVAIL(ZPM5) MNEM(2) ACTION RUN(ISRROUTE) PARM('DL7') PDC DESC('BREAK POINTS...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DL8') PDC DESC('DIALOG TEST...') UNAVAIL(ZPM5) MNEM(1) ACTION RUN(ISRROUTE) PARM('DAL') PDC DESC('DIALOG TEST APPL ID...') MNEM(2) ACTION RUN(ISRROUTE) PARM('DAP') )ABCINIT .ZVARS=DIATEST )ABC DESC('HELP') MNEM(1) PDC DESC('GENERAL') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2A000') PDC DESC('DISPLAY SCREEN FORMAT') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2E000') PDC DESC('SCROLLING DATA') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2F000') PDC DESC('SEQUENCE NUMBERING') MNEM(2) ACTION RUN(TUTOR) PARM('ISR2G000') PDC DESC('DISPLAY MODES') MNEM(2) ACTION RUN(TUTOR) PARM('ISR2H000') PDC DESC('TABBING') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2I000') PDC DESC('AUTOMATIC RECOVERY') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2J000') PDC DESC('EDIT PROFILES') MNEM(6) ACTION RUN(TUTOR) PARM('ISR2K000') PDC DESC('EDIT LINE COMMANDS') MNEM(6) ACTION RUN(TUTOR) PARM('ISR2L000') PDC DESC('EDIT PRIMARY COMMANDS') MNEM(7) ACTION RUN(TUTOR) PARM('ISR2M000') PDC DESC('LABELS AND LINE RANGES') MNEM(3) ACTION RUN(TUTOR) PARM('ISR2Q000') PDC DESC('ENDING AN EDIT SESSION') MNEM(2) ACTION RUN(TUTOR) PARM('ISR2N000') PDC DESC('APPENDICES') MNEM(8) ACTION RUN(TUTOR) PARM('ISR00004') PDC DESC('INDEX') MNEM(5) ACTION RUN(TUTOR) PARM('ISR91000') )ABCINIT .ZVARS=EDMHELP )BODY EXPAND(//) WIDTH(&ZWIDTH) CMD(ZCMD) .. FILE. EDIT. CONFIRM. MENU. UTILITIES. COMPILERS. TEST. HELP. .--/-/------------------------------------------------------------------------- .Z .Z/ / .COLUMNS.Z .Z . ¬==>.Z/ / ¬==>.Z . .ZDATA,ZSHADOW/ / . ./ / . )INIT .ZVARS = '(ZVMODET ZTITLE ZCL ZCR ZCMD ZSCED)' IF (&ZVMODET = 'VIEW') .HELP = ISR10000 /* DEFAULT TUTORIAL NAME */ ELSE .HELP = ISR20000 /* DEFAULT TUTORIAL NAME */ &ZPM3 = 0 VGET (ZSCED) PROFILE /* FILL SCROLL VARS IF */ IF (&ZSCED = ' ') &ZSCED = 'PAGE' /* BLANK WITH PAGE */ &MIXED = TRANS(&ZPDMIX N,EBCDIC *,MIX) /* SET MIXED FORMAT */ VGET (ZDSVOL) SHARED )REINIT REFRESH(*) IF (&ZVMODET = 'VIEW') .HELP = ISR10000 /* DEFAULT TUTORIAL NAME */ ELSE .HELP = ISR20000 /* DEFAULT TUTORIAL NAME */ )PROC REFRESH(*) &ZCURSOR = .CURSOR &ZCSROFF = .CSRPOS VPUT (ZSCED) PROFILE &ZLVLINE = LVLINE(ZDATA) )END /* 5647-A01 (C) COPYRIGHT IBM CORP 1980, 1997 */ /* ISPDTLC RELEASE: 4.5. LEVEL: PID */ /* OS/390 02.05.00. CREATED - DATE: 5 NOV 1997, TIME: 21:08:40 */ ./ ADD NAME=ISREDM0X )ATTR DEFAULT(%+_) . TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) @ TYPE(INPUT) INTENS(NON) )BODY EXPAND({{) +{-{›Extended EDIT Dataset Selection+{-{ %OPTION ===>_ZCMD + + +LIBRARY%===>_Z . (Select a number from the list or%"99".to set default cursor) +MEMBER %===>_MEM . (" " or pattern for mbr list or%"99".for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_DSN + VOLUME SERIAL %===>_VOL + (If not cataloged) + + 1_QERN1 +14_QERN14 +27_QERN27 + 2_QERN2 +15_QERN15 +28_QERN28 + 3_QERN3 +16_QERN16 +29_QERN29 + 4_QERN4 +17_QERN17 +30_QERN30 + 5_QERN5 +18_QERN18 +31_QERN31 + 6_QERN6 +19_QERN19 +32_QERN32 + 7_QERN7 +20_QERN20 +33_QERN33 + 8_QERN8 +21_QERN21 +34_QERN34 + 9_QERN9 +22_QERN22 +35_QERN35 +10_QERN10 +23_QERN23 +36_QERN36 +11_QERN11 +24_QERN24 +37_QERN37 +12_QERN12 +25_QERN25 +38_QERN38 +13_QERN13 +26_QERN26 +39_QERN39 )INIT .ZVARS = '(QELIB)' VGET EXCURSOR PROFILE &ZMLCSR = ' ' /* @M1A*/ &ZCMD = ' ' VGET MEM SHARED IF (&TEMP = 'RESETDSN') &DSN = &Z IF (&DSN > &Z) .CURSOR = DSN ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QELIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEM ELSE .CURSOR = QELIB IF (&ZEDLOCKP ¬= 'NEVER') /* @D1C*/ &ZEDLOCKP = 'YES' /* @D1C*/ IF (&MIX = ' ') &MIX = 'YES' IF (&ZDBCS = 'NO') &MIX = 'NO' &ZWSBVE = ' ' &ZEDITWS = ' ' )REINIT /* @M1A*/ IF (&ZMLCSR ¬= ' ') /* @M1A*/ .CURSOR = &ZMLCSR /* @M1A*/ &ZWSBVE = ' ' &ZEDITWS = ' ' )PROC IF (&MEM = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &MEM = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEM NONBLANK MSG=UTLZ000) IF (&QELIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &QELIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEM NONBLANK MSG=UTLZ000) VPUT MEM SHARED IF (&DSN ¬= ' ') &TEMP = &Z &ZFC = TRUNC(&DSN,1) /* IF FIRST CHARACTER @M3A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M3A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M3A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M3A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M3A*/ &DSN = '&DSN&ZFC' /* ADD IT TO THE END @M3A*/ ELSE IF (&ZPREFIX ¬= &Z) &DSN = '''&ZPREFIX..&DSN''' &ZMCDSN = &DSN /* copy other ds field @M2A*/ &ZMLCSR = '********' /* @M1A*/ PANEXIT((DSN,ZMLCSR),PGM,&ZMLVEXIT,&ZMLVDATA,MSG=ISRM040) ELSE VER (&QELIB,NB,RANGE,1,39) IF (&QELIB = 1) VER (&QERN1,DSNAME) &QDSN = &QERN1 IF (&QELIB = 2) VER (&QERN2,DSNAME) &QDSN = &QERN2 IF (&QELIB = 3) VER (&QERN3,DSNAME) &QDSN = &QERN3 IF (&QELIB = 4) VER (&QERN4,DSNAME) &QDSN = &QERN4 IF (&QELIB = 5) VER (&QERN5,DSNAME) &QDSN = &QERN5 IF (&QELIB = 6) VER (&QERN6,DSNAME) &QDSN = &QERN6 IF (&QELIB = 7) VER (&QERN7,DSNAME) &QDSN = &QERN7 IF (&QELIB = 8) VER (&QERN8,DSNAME) &QDSN = &QERN8 IF (&QELIB = 9) VER (&QERN9,DSNAME) &QDSN = &QERN9 IF (&QELIB = 10) VER (&QERN10,DSNAME) &QDSN = &QERN10 IF (&QELIB = 11) VER (&QERN11,DSNAME) &QDSN = &QERN11 IF (&QELIB = 12) VER (&QERN12,DSNAME) &QDSN = &QERN12 IF (&QELIB = 13) VER (&QERN13,DSNAME) &QDSN = &QERN13 IF (&QELIB = 14) VER (&QERN14,DSNAME) &QDSN = &QERN14 IF (&QELIB = 15) VER (&QERN15,DSNAME) &QDSN = &QERN15 IF (&QELIB = 16) VER (&QERN16,DSNAME) &QDSN = &QERN16 IF (&QELIB = 17) VER (&QERN17,DSNAME) &QDSN = &QERN17 IF (&QELIB = 18) VER (&QERN18,DSNAME) &QDSN = &QERN18 IF (&QELIB = 19) VER (&QERN19,DSNAME) &QDSN = &QERN19 IF (&QELIB = 20) VER (&QERN20,DSNAME) &QDSN = &QERN20 IF (&QELIB = 21) VER (&QERN21,DSNAME) &QDSN = &QERN21 IF (&QELIB = 22) VER (&QERN22,DSNAME) &QDSN = &QERN22 IF (&QELIB = 23) VER (&QERN23,DSNAME) &QDSN = &QERN23 IF (&QELIB = 24) VER (&QERN24,DSNAME) &QDSN = &QERN24 IF (&QELIB = 25) VER (&QERN25,DSNAME) &QDSN = &QERN25 IF (&QELIB = 26) VER (&QERN26,DSNAME) &QDSN = &QERN26 IF (&QELIB = 27) VER (&QERN27,DSNAME) &QDSN = &QERN27 IF (&QELIB = 28) VER (&QERN28,DSNAME) &QDSN = &QERN28 IF (&QELIB = 29) VER (&QERN29,DSNAME) &QDSN = &QERN29 IF (&QELIB = 30) VER (&QERN30,DSNAME) &QDSN = &QERN30 IF (&QELIB = 31) VER (&QERN31,DSNAME) &QDSN = &QERN31 IF (&QELIB = 32) VER (&QERN32,DSNAME) &QDSN = &QERN32 IF (&QELIB = 33) VER (&QERN33,DSNAME) &QDSN = &QERN33 IF (&QELIB = 34) VER (&QERN34,DSNAME) &QDSN = &QERN34 IF (&QELIB = 35) VER (&QERN35,DSNAME) &QDSN = &QERN35 IF (&QELIB = 36) VER (&QERN36,DSNAME) &QDSN = &QERN36 IF (&QELIB = 37) VER (&QERN37,DSNAME) &QDSN = &QERN37 IF (&QELIB = 38) VER (&QERN38,DSNAME) &QDSN = &QERN38 IF (&QELIB = 39) VER (&QERN39,DSNAME) &QDSN = &QERN39 &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&PRJ > &Z) &PRJ0 = &PRJ &PRJ1 = &PRJ &ZMCPRJ1 = &PRJ IF (&LIB > &Z) &LIB0 = &LIB &LIB1 = &LIB &ZMCLIB1 = &LIB IF (&TYP > &Z) &TYP0 = &TYP &TYP1 = &TYP &ZMCTYP1 = &TYP IF (&TEMP > &Z) IF (&MEM > &Z) &DSN = '''&PRJ..&LIB..&TYP..&TEMP(&MEM)''' ELSE &DSN = '''&PRJ..&LIB..&TYP..&TEMP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ..&LIB..&TYP(&MEM)''' ELSE &DSN = '''&PRJ..&LIB..&TYP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ..&LIB(&MEM)''' ELSE &DSN = '''&PRJ..&LIB''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ(&MEM)''' ELSE &DSN = '''&PRJ''' &TEMP = RESETDSN VER (&PROF NAME) IF (&IMAC ¬= ' ' ) &ZXXX = TRUNC(&IMAC,'!') &IMACNM = .TRAIL IF (&IMACNM = ' ') &IMACNM = &ZXXX VER (&IMACNM NAME MSG = ISRE900) &ZEDL1 = TRUNC(&ZEDLOCKP,1) IF (&ZEDL1 = 'Y') &ZEDLOCKP = 'YES' ELSE IF (&ZEDLOCKP = 'NES') &ZEDLOCKP = 'NO' ELSE &ZEDLOCKP = TRANS(TRUNC(&ZEDLOCKP,2) NE,NEVER NO,NO ' ',YES *,*) /* @D1C*/ VER (&ZEDLOCKP,LIST,YES,NO,NEVER) /* @D1C*/ &ZEDLOCK = &ZEDLOCKP /* @D1A*/ IF (&ZEDLOCK = 'NEVER') /* @D1A*/ &ZEDLOCK = 'NO' /* @D1A*/ &MIX = TRANS(TRUNC(&MIX,1) N,NO Y,YES *,*) VER (&MIX LIST,YES,NO) IF (&FNAM ¬= ' ') VER (&FNAM NAME) &ZECLOCKP = &ZEDLOCKP /* This forwards the lock value chosen on entry @D1A*/ VPUT (ZECLOCKP) /* to Edit to the Edit primary cmd panel. @D1A*/ VPUT (ZEDLOCK ZEDLOCKP MIX ZEDITWS FNAM) PROFILE /* @D1C*/ VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 PRJ0 LIB0 TYP0) PROFILE VPUT (PROF) PROFILE VPUT (QERN1 QERN2 QERN3 QERN4 QERN5 QERN6 QERN7 QERN8 QERN9 QERN10 QERN11 QERN12 QERN13 QERN14 QERN15 QERN16 QERN17 QERN18 QERN19 QERN20 QERN21 QERN22 QERN23 QERN24 QERN25) PROFILE VPUT (QERN26 QERN27 QERN28 QERN29 QERN30 QERN31 QERN32 QERN33 QERN34 QERN35 QERN36 QERN37 QERN38 QERN39 QELIB) PROFILE VPUT (ZMCPRJ1 ZMCLIB1 ZMCTYP1) PROFILE )END ./ ADD NAME=ISREDM0Z )ATTR DEFAULT(%+_) . TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) . TYPE(INPUT) INTENS(HIGH) CAPS(OFF) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) @ TYPE(INPUT) INTENS(NON) )BODY EXPAND({{) +{-{›Extended EDIT Dataset Selection+{-{ %OPTION ===>_ZCMD + + +LIBRARY%===>_Z . (Select a number from the list or%"99".to set default cursor) +MEMBER %===>_MEM . (" " or pattern for mbr list or%"99".for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_DSN + VOLUME SERIAL %===>_VOL + (If not cataloged) + Column 3 Name Prefix %===>_COL3EPFX + 1_QERN1 +14_QERN14 +27_QERN27 + 2_QERN2 +15_QERN15 +28_QERN28 + 3_QERN3 +16_QERN16 +29_QERN29 + 4_QERN4 +17_QERN17 +30_QERN30 + 5_QERN5 +18_QERN18 +31_QERN31 + 6_QERN6 +19_QERN19 +32_QERN32 + 7_QERN7 +20_QERN20 +33_QERN33 + 8_QERN8 +21_QERN21 +34_QERN34 + 9_QERN9 +22_QERN22 +35_QERN35 +10_QERN10 +23_QERN23 +36_QERN36 +11_QERN11 +24_QERN24 +37_QERN37 +12_QERN12 +25_QERN25 +38_QERN38 +13_QERN13 +26_QERN26 +39_QERN39 )INIT .ZVARS = '(QELIB)' VGET EXCURSOR PROFILE &ZMLCSR = ' ' /* @M1A*/ &ZCMD = ' ' VGET MEM SHARED IF (&TEMP = 'RESETDSN') &DSN = &Z IF (&DSN > &Z) .CURSOR = DSN ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QELIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEM ELSE .CURSOR = QELIB IF (&ZEDLOCKP ¬= 'NEVER') /* @D1C*/ &ZEDLOCKP = 'YES' /* @D1C*/ IF (&MIX = ' ') &MIX = 'YES' IF (&ZDBCS = 'NO') &MIX = 'NO' )REINIT /* @M1A*/ IF (&ZMLCSR ¬= ' ') /* @M1A*/ .CURSOR = &ZMLCSR /* @M1A*/ )PROC IF (&MEM = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &MEM = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEM NONBLANK MSG=UTLZ000) IF (&QELIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &QELIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEM NONBLANK MSG=UTLZ000) VPUT MEM SHARED IF (&DSN ¬= ' ') &TEMP = &Z &ZFC = TRUNC(&DSN,1) /* IF FIRST CHARACTER @M3A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M3A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M3A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M3A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M3A*/ &DSN = '&DSN&ZFC' /* ADD IT TO THE END @M3A*/ ELSE IF (&ZPREFIX ¬= &Z) &DSN = '''&ZPREFIX..&DSN''' &ZMCDSN = &DSN /* copy other ds field @M2A*/ &ZMLCSR = '********' /* @M1A*/ PANEXIT((DSN,ZMLCSR),PGM,&ZMLVEXIT,&ZMLVDATA,MSG=ISRM040) ELSE VER (&QELIB,NB,RANGE,1,39) IF (&QELIB = 1) VER (&QERN1,DSNAME) &QDSN = &QERN1 IF (&QELIB = 2) VER (&QERN2,DSNAME) &QDSN = &QERN2 IF (&QELIB = 3) VER (&QERN3,DSNAME) &QDSN = &QERN3 IF (&QELIB = 4) VER (&QERN4,DSNAME) &QDSN = &QERN4 IF (&QELIB = 5) VER (&QERN5,DSNAME) &QDSN = &QERN5 IF (&QELIB = 6) VER (&QERN6,DSNAME) &QDSN = &QERN6 IF (&QELIB = 7) VER (&QERN7,DSNAME) &QDSN = &QERN7 IF (&QELIB = 8) VER (&QERN8,DSNAME) &QDSN = &QERN8 IF (&QELIB = 9) VER (&QERN9,DSNAME) &QDSN = &QERN9 IF (&QELIB = 10) VER (&QERN10,DSNAME) &QDSN = &QERN10 IF (&QELIB = 11) VER (&QERN11,DSNAME) &QDSN = &QERN11 IF (&QELIB = 12) VER (&QERN12,DSNAME) &QDSN = &QERN12 IF (&QELIB = 13) VER (&QERN13,DSNAME) &QDSN = &QERN13 IF (&QELIB = 14) VER (&QERN14,DSNAME) &QDSN = &QERN14 IF (&QELIB = 15) VER (&QERN15,DSNAME) &QDSN = &QERN15 IF (&QELIB = 16) VER (&QERN16,DSNAME) &QDSN = &QERN16 IF (&QELIB = 17) VER (&QERN17,DSNAME) &QDSN = &QERN17 IF (&QELIB = 18) VER (&QERN18,DSNAME) &QDSN = &QERN18 IF (&QELIB = 19) VER (&QERN19,DSNAME) &QDSN = &QERN19 IF (&QELIB = 20) VER (&QERN20,DSNAME) &QDSN = &QERN20 IF (&QELIB = 21) VER (&QERN21,DSNAME) &QDSN = &QERN21 IF (&QELIB = 22) VER (&QERN22,DSNAME) &QDSN = &QERN22 IF (&QELIB = 23) VER (&QERN23,DSNAME) &QDSN = &QERN23 IF (&QELIB = 24) VER (&QERN24,DSNAME) &QDSN = &QERN24 IF (&QELIB = 25) VER (&QERN25,DSNAME) &QDSN = &QERN25 IF (&QELIB = 26) VER (&QERN26,DSNAME) &QDSN = &QERN26 IF (&QELIB = 27) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN27' ELSE &QDSN = '&QERN27' VER (&QDSN,DSNAME) IF (&QELIB = 28) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN28' ELSE &QDSN = '&QERN28' VER (&QDSN,DSNAME) IF (&QELIB = 29) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN29' ELSE &QDSN = '&QERN29' VER (&QDSN,DSNAME) IF (&QELIB = 30) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN30' ELSE &QDSN = '&QERN30' VER (&QDSN,DSNAME) IF (&QELIB = 31) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN31' ELSE &QDSN = '&QERN31' VER (&QDSN,DSNAME) IF (&QELIB = 32) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN32' ELSE &QDSN = '&QERN32' VER (&QDSN,DSNAME) IF (&QELIB = 33) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN33' ELSE &QDSN = '&QERN33' VER (&QDSN,DSNAME) IF (&QELIB = 34) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN34' ELSE &QDSN = '&QERN34' VER (&QDSN,DSNAME) IF (&QELIB = 35) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN35' ELSE &QDSN = '&QERN35' VER (&QDSN,DSNAME) IF (&QELIB = 36) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN36' ELSE &QDSN = '&QERN36' VER (&QDSN,DSNAME) IF (&QELIB = 37) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN37' ELSE &QDSN = '&QERN37' VER (&QDSN,DSNAME) IF (&QELIB = 38) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN38' ELSE &QDSN = '&QERN38' VER (&QDSN,DSNAME) IF (&QELIB = 39) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN39' ELSE &QDSN = '&QERN39' VER (&QDSN,DSNAME) &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&PRJ > &Z) &PRJ0 = &PRJ &PRJ1 = &PRJ &ZMCPRJ1 = &PRJ IF (&LIB > &Z) &LIB0 = &LIB &LIB1 = &LIB &ZMCLIB1 = &LIB IF (&TYP > &Z) &TYP0 = &TYP &TYP1 = &TYP &ZMCTYP1 = &TYP IF (&TEMP > &Z) IF (&MEM > &Z) &DSN = '''&PRJ..&LIB..&TYP..&TEMP(&MEM)''' ELSE &DSN = '''&PRJ..&LIB..&TYP..&TEMP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ..&LIB..&TYP(&MEM)''' ELSE &DSN = '''&PRJ..&LIB..&TYP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ..&LIB(&MEM)''' ELSE &DSN = '''&PRJ..&LIB''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ(&MEM)''' ELSE &DSN = '''&PRJ''' &TEMP = RESETDSN VER (&PROF NAME) IF (&IMAC ¬= ' ' ) &ZXXX = TRUNC(&IMAC,'!') &IMACNM = .TRAIL IF (&IMACNM = ' ') &IMACNM = &ZXXX VER (&IMACNM NAME MSG = ISRE900) &ZEDL1 = TRUNC(&ZEDLOCKP,1) IF (&ZEDL1 = 'Y') &ZEDLOCKP = 'YES' ELSE IF (&ZEDLOCKP = 'NES') &ZEDLOCKP = 'NO' ELSE &ZEDLOCKP = TRANS(TRUNC(&ZEDLOCKP,2) NE,NEVER NO,NO ' ',YES *,*) /* @D1C*/ VER (&ZEDLOCKP,LIST,YES,NO,NEVER) /* @D1C*/ &ZEDLOCK = &ZEDLOCKP /* @D1A*/ IF (&ZEDLOCK = 'NEVER') /* @D1A*/ &ZEDLOCK = 'NO' /* @D1A*/ &MIX = TRANS(TRUNC(&MIX,1) N,NO Y,YES *,*) VER (&MIX LIST,YES,NO) IF (&FNAM ¬= ' ') VER (&FNAM NAME) &ZECLOCKP = &ZEDLOCKP /* This forwards the lock value chosen on entry @D1A*/ VPUT (ZECLOCKP) /* to Edit to the Edit primary cmd panel. @D1A*/ VPUT (ZEDLOCK ZEDLOCKP MIX FNAM) PROFILE /* @D1C*/ VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 PRJ0 LIB0 TYP0) PROFILE VPUT (PROF COL3EPFX) PROFILE VPUT (QERN1 QERN2 QERN3 QERN4 QERN5 QERN6 QERN7 QERN8 QERN9 QERN10 QERN11 QERN12 QERN13 QERN14 QERN15 QERN16 QERN17 QERN18 QERN19 QERN20 QERN21 QERN22 QERN23 QERN24 QERN25) PROFILE VPUT (QERN26 QERN27 QERN28 QERN29 QERN30 QERN31 QERN32 QERN33 QERN34 QERN35 QERN36 QERN37 QERN38 QERN39 QELIB) PROFILE VPUT (ZMCPRJ1 ZMCLIB1 ZMCTYP1) PROFILE )END ./ ADD NAME=ISREMCLS )ATTR )BODY %------------------------------ MODEL CLASSES ------------------------------- %OPTION ===>_ZCMD % % % 1 +CLIST - ISPF services in CLIST commands % 2 +COBOL - ISPF services in COBOL programs % 3 +EXEC - ISPF services in EXEC commands % 4 +FORTRAN - ISPF services in FORTRAN programs % 5 +MSGS - Message format % 6 +PANELS - Panel formats and statements % 7 +PLI - ISPF services in PLI programs % 8 +SKELS - File tailoring control statements % 9 +PASCAL - ISPF services in PASCAL programs % 10 +REXX - ISPF services in TSO/REXX commands % 11 +DTL - ISPF Dialog Tag Language formats and statements % 12 +C - ISPF services in C/370 programs % 13 +SCLM - SCLM Project Definition Macros % 14 +ARCHDEF - SCLM Architecture Definition templates % 15 +FORMS - UNIPAC forms models + +Enter%END+command to cancel MODEL command.+ )INIT .CURSOR = ZCMD .HELP = ISR2P100 .MSG = ' ' /* BLANK MSG INITIALLY */ &ISRMCLAS = ' ' /* AND THE CLASS HOLDER VARIABLE */ )PROC IF (&ISRMONCL = 'Y') /* ARE WE ONLY OBTAINING A CLASS ? */ &ISRMCLAS = TRANS(TRUNC(&ZCMD,'.') 1,CLIST 2,COB 3,EXEC 4,FORT 5,MSGS 6,PANELS 7,PLI 8,SKELS 9,PASCAL 10,REXX 11,DTL 12,C 13,SCLM 14,ARCHDEF *,*) /* @H1C@H5C*/ &TMPTRAIL = .TRAIL /* Save any remaining @H1A*/ IF (&ISRMONCL ¬= 'Y') /* ARE WE ONLY OBTAINING A CLASS ? OZ83844*/ &ISRMDSPL = ' ' &ZSEL = TRANS(TRUNC (&ZCMD,'.') /* FOLLOW SELECTION TO NEXT PANEL */ 1,'PANEL(ISREMCMD)' CLIST,'PANEL(ISREMCMD)' /* CLIST UNDER COMMAND SERVICES */ ISPCLIB,'PANEL(ISREMCMD)' 2,'PANEL(ISREMCOB)' COB,'PANEL(ISREMCOB)' /* COBOL PROGRAM SERVICE MODELS */ COBOL,'PANEL(ISREMCOB)' SRCLIB,'PANEL(ISREMCOB)' 3,'PANEL(ISREMEXC)' EXEC,'PANEL(ISREMEXC)' /* Exec function services */ EXEC2,'PANEL(ISREMEXC)' 4,'PANEL(ISREMFTN)' FTN,'PANEL(ISREMFTN)' /* FORTRAN PROGRAM SERVICE MODELS */ FORT,'PANEL(ISREMFTN)' FORTRAN,'PANEL(ISREMFTN)' 5,'PGM(ISRECMBR) PARM(ISREMMSG)' /* GO RIGHT OUT TO GET */ MSGS,'PGM(ISRECMBR) PARM(ISREMMSG)' /* THE MSG MODEL */ ISPMLIB,'PGM(ISRECMBR) PARM(ISREMMSG)' 6,'PANEL(ISREMPNL)' MENUS,'PANEL(ISREMPNL)' /* OLD TYPE PANELS */ PANELS,'PANEL(ISREMPNL)' ISPPLIB,'PANEL(ISREMPNL)' 7,'PANEL(ISREMPLI)' PLI,'PANEL(ISREMPLI)' /* PLI FOR TSO AND MVS(DEFAULT) */ PL1,'PANEL(ISREMPLI)' /* PL1 FOR TSO AND FOR DOS */ PLIOPT,'PANEL(ISREMPLI)' /* PLIOPT DOES HAVE SOME USAGE YET */ PLS,'PANEL(ISREMPLI)' /* PLS OPTION IS TEMPORARY FOR NOW */ 8,'PANEL(ISREMSKL)' PROCS,'PANEL(ISREMSKL)' SKELS,'PANEL(ISREMSKL)' /* FOR BOTH PROCS AND SKELS */ ISPSLIB,'PANEL(ISREMSKL)' 9,'PANEL(ISREMPAS)' PASCAL,'PANEL(ISREMPAS)' /* PASCAL PROGRAM SERVICE MODELS */ 10,'PANEL(ISREMRXC)' REXX,'PANEL(ISREMRXC)' /* REXX PROGRAM SERVICE MODELS */ ISPRLIB,'PANEL(ISREMRXC)' /* REXX PROGRAM SERVICE MODELS */ 11,'PANEL(ISREMDTL)' DTL,'PANEL(ISREMDTL)' /* DTL PROGRAM SERVICE MODELS@H4A*/ 12,'PANEL(ISREMWLN)' /* @H6A*/ C,'PANEL(ISREMWLN)' /* C Lang @H6A*/ 13,'PANEL(ISREMFLM)' /* SCLM Macro models @H7A*/ SCLM,'PANEL(ISREMFLM)' /* SCLM Macro models @OY38423*/ SOURCE,'PANEL(ISREMFLM)' /* SCLM Macro models @H7A*/ 14,'PANEL(ISREMARC)' /* SCLM Architecture Defs @H7A*/ ARCHDEF,'PANEL(ISREMARC)' /* SCLM Architecture Defs @H7A*/ 15,'PANEL(UNIFORMS)' /* unipac forms model panel */ DATA,'PANEL(UNIFORMS)' /* unipac forms model panel */ FORMS,'PANEL(UNIFORMS)' /* unipac forms model panel */ WORKFILE,'PANEL(UNIFORMS)' /* unipac forms model panel */ ' ',' ' *,'?' ) IF (&ZSEL = '?') /* IF (&ISRMDSPL ¬= 'RETURN' ) ** REPLACED BY OY33372*/ IF (&ZMACRO = 'N' ) /* 0Y33372*/ &ZEMTEMP = &ZCMD /* SET VARIABLE FOR MSG OZ91267*/ .MSG = ISRYM012 &ZCMD = ' ' /* RESET CMD LINE = BLANK OZ91267*/ .RESP = 'ENTER' /* WANT TO RESET RESP FOR RE-ENT */ /* IF (&ISRMDSPL = 'RETURN' ) ** REPLACED BY OY33372*/ ELSE /* OY33372*/ .RESP = 'END' &ISRMCLAS = '?' .MSG = ISRYM012 /* INVALID CLASS OY33372*/ &ISRMMEND = 'N' /* SET THE END INDICATOR TO NO */ IF (.RESP = END) /* DID WE GET AN END FROM WHERE */ IF (&ISRMDSPL ¬= 'RETURN ') /* WAS IT BECAUSE WE HAVE MEMBER */ &ISRMMEND = 'Y' /* ITS BECAUSE USER HIT END KEY */ IF (&ISRMONCL = 'Y') /* ARE WE ONLY OBTAINING A CLASS */ IF (.RESP ¬= 'RETURN ') /* Has user hit extended return */ IF (&ISRMCLAS ¬= ' ') /* Make sure we have some class */ IF (&TMPTRAIL = ' ') /* Just class entered @H1A*/ .RESP = END /* ONLY WANT CLASS, NO OTHER DISP.*/ IF (&TMPTRAIL ¬= ' ') /* More than class entered @H1A*/ &ZEMTEMP = &ZCMD /* Set variable for message @H1A*/ .MSG = ISRYM012 /* Set message number @H1A*/ &ZCMD = ' ' /* Reset cmd lint = blank @H1A*/ .RESP = 'ENTER' /* Reset RESP to Re-enter @H1A*/ &ZMSG = .MSG /* SET MESSAGE VARIABLE @L1A*/ VPUT(ZMSG) PROFILE /* SAVE MESSAGE IN PROF POOL @L1A*/ )END /* */ /* $SEG(ISREMCLS) COMP(EDIT) PROD(MVS) */ /* */ /* CHANGE ACTIVITY */ /* $L1 = QUALITY M310 880405 192631 : FIX MODEL MACRO CMD (PTM 16) */ /* $H1= QUALITY M310 880706 VEND047: PTM #65 */ /* $H2= QUALITY M310 880831 235501 : PTM #95 */ /* $H3= PTM 207 M310 881214 641747 : PTM # 207 */ /* $H4= DTLMOD M310 881213 764700 : DTL models added */ /* $H5= QUALITY M310 881216 764700 : PTM #211 */ /* $H6= CMOD M320 890116 764700 : C_Lang models added */ /* $H7= QUALITY M320 890908 464449 : SCLM Macro Models */ /* */ /* OY33372 - 91/01/22 - PANEL LOGIC CHANGED TO PREVENT PANEL */ /* DISPLAY WHEN A MACRO ISSUES A MODEL */ /* COMMAND WITH AN INVALID CLASS. */ /* GT4045 - RPO/GJL */ /* */ /* OY38423 - 91/03/05 - Add SCLM as a valid class choice. */ /* GT4045-CDB */ /* */ /* 5665-402 (C) COPYRIGHT IBM CORP 1980, 1991 */ ./ ADD NAME=ISREMCMD )ATTR /*************************************************************/ /* Panel: ISREMCMD */ /* Author: DAVID LEIGH */ /* Function: this is a copy of the "isremcmd" edit model */ /* panel which ibm puts out. This copy has an */ /* addition to support a specific edit model for */ /* the TECHLIST CLIST used in the TECHNOTE system. */ /* A LIBDEF is performed for ISPPLIB just before */ /* the MODEL command to place this panel first in */ /* the concatenation search. A "null" LIBDEF is */ /* then performed on ISPPLIB after the MODEL */ /* command...so this panel is never really used */ /* for the general public...just for the one-time */ /* MODEL. */ /*************************************************************/ )BODY %techlist----------------------- CLIST MODELS -------------------------------- %OPTION ===>_ZCMD + % % VARIABLES MISCELLANEOUS LIBRARY ACCESS % V1 +VGET %M1 +SELECT %L1 +LMCLOSE %L16 +LMRENAME % V2 +VPUT %M2 +CONTROL %L2 +LMERASE %L17 +LMHIER % V3 +VERASE %M3 +BROWSE %L3 +LMFREE %L18 +LMACT % %M4 +EDIT %L4 +LMGET %L19 +LMDEACT % DISPLAY %M5 +LOG %L5 +LMINIT %L10 +LMREVIEW % D1 +DISPLAY %M6 +GETMSG %L6 +LMMADD %L11 +LMMDISP % D2 +TBDISPL %M7 +EDREC %L7 +LMMDEL %L22 +LMMOVE % D3 +SETMSG %M8 +LIBDEF %L8 +LMMFIND %L23 +LMCOPY % D4 +PQUERY %M9 +LIST %L9 +LMMLIST %L24 +LMCOMP % D5 +ADDPOP %L10 +LMMREN %L25 +LMMSTATS % D6 +REMPOP %FILE TAILORING %L11 +LMMREP %L26 +LMPRINT % %F1 +FTOPEN %L12 +LMOPEN %L27 +LMDINIT % TABLES %F2 +FTINCL %L13 +LMPROM %L28 +LMDLIST % T1 +TABLES %F3 +FTCLOSE %L14 +LMPUT %L29 +LMDFREE % %F4 +FTERASE %L15 +LMQUERY % % +Enter%END+command to cancel MODEL command.+ )INIT .CURSOR = ZCMD .HELP = ISR2P300 IF (&ISRMDSPL = 'RETURN ') .RESP = END )REINIT REFRESH(ZCMD) )PROC &ZSEL = TRANS(TRUNC (&ZCMD,'.') D1,'PGM(ISRECMBR) PARM(ISREMCD1)' DISPLAY,'PGM(ISRECMBR) PARM(ISREMCD1)' D2,'PGM(ISRECMBR) PARM(ISREMCD2)' TBDISPL,'PGM(ISRECMBR) PARM(ISREMCD2)' D3,'PGM(ISRECMBR) PARM(ISREMCD3)' SETMSG,'PGM(ISRECMBR) PARM(ISREMCD3)' D4,'PGM(ISRECMBR) PARM(ISREMCD4)' PQUERY,'PGM(ISRECMBR) PARM(ISREMCD4)' D5,'PGM(ISRECMBR) PARM(ISREMCD5)' /* ADD ADDPOP @L9A*/ ADDPOP,'PGM(ISRECMBR) PARM(ISREMCD5)' /* ADD ADDPOP @L9A*/ D6,'PGM(ISRECMBR) PARM(ISREMCD6)' /* ADD REMPOP @L9A*/ REMPOP,'PGM(ISRECMBR) PARM(ISREMCD6)' /* ADD REMPOP @L9A*/ F1,'PGM(ISRECMBR) PARM(ISREMCF1)' FTOPEN,'PGM(ISRECMBR) PARM(ISREMCF1)' F2,'PGM(ISRECMBR) PARM(ISREMCF2)' FTINCL,'PGM(ISRECMBR) PARM(ISREMCF2)' F3,'PGM(ISRECMBR) PARM(ISREMCF3)' FTCLOSE,'PGM(ISRECMBR) PARM(ISREMCF3)' F4,'PGM(ISRECMBR) PARM(ISREMCF4)' FTERASE,'PGM(ISRECMBR) PARM(ISREMCF4)' L1,'PGM(ISRECMBR) PARM(ISREMCL1)' LMCLOSE,'PGM(ISRECMBR) PARM(ISREMCL1)' L2,'PGM(ISRECMBR) PARM(ISREMCL2)' LMERASE,'PGM(ISRECMBR) PARM(ISREMCL2)' L3,'PGM(ISRECMBR) PARM(ISREMCL3)' LMFREE,'PGM(ISRECMBR) PARM(ISREMCL3)' L4,'PGM(ISRECMBR) PARM(ISREMCL4)' LMGET,'PGM(ISRECMBR) PARM(ISREMCL4)' L5,'PGM(ISRECMBR) PARM(ISREMCL5)' LMINIT,'PGM(ISRECMBR) PARM(ISREMCL5)' L6,'PGM(ISRECMBR) PARM(ISREMCL6)' LMMADD,'PGM(ISRECMBR) PARM(ISREMCL6)' L7,'PGM(ISRECMBR) PARM(ISREMCL7)' LMMDEL,'PGM(ISRECMBR) PARM(ISREMCL7)' L8,'PGM(ISRECMBR) PARM(ISREMCL8)' LMMFIND,'PGM(ISRECMBR) PARM(ISREMCL8)' L9,'PGM(ISRECMBR) PARM(ISREMCL9)' LMMLIST,'PGM(ISRECMBR) PARM(ISREMCL9)' L10,'PGM(ISRECMBR) PARM(ISREMCLA)' LMMREN,'PGM(ISRECMBR) PARM(ISREMCLA)' L11,'PGM(ISRECMBR) PARM(ISREMCLB)' LMMREP,'PGM(ISRECMBR) PARM(ISREMCLB)' L12,'PGM(ISRECMBR) PARM(ISREMCLC)' LMOPEN,'PGM(ISRECMBR) PARM(ISREMCLC)' L13,'PGM(ISRECMBR) PARM(ISREMCLD)' LMPROM,'PGM(ISRECMBR) PARM(ISREMCLD)' L14,'PGM(ISRECMBR) PARM(ISREMCLE)' LMPUT,'PGM(ISRECMBR) PARM(ISREMCLE)' L15,'PGM(ISRECMBR) PARM(ISREMCLF)' LMQUERY,'PGM(ISRECMBR) PARM(ISREMCLF)' L16,'PGM(ISRECMBR) PARM(ISREMCLG)' LMRENAME,'PGM(ISRECMBR) PARM(ISREMCLG)' L17,'PGM(ISRECMBR) PARM(ISREMCLH)' LMHIER,'PGM(ISRECMBR) PARM(ISREMCLH)' L18,'PGM(ISRECMBR) PARM(ISREMCLL)' LMACT,'PGM(ISRECMBR) PARM(ISREMCLL)' L19,'PGM(ISRECMBR) PARM(ISREMCLM)' LMDEACT,'PGM(ISRECMBR) PARM(ISREMCLM)' L20,'PGM(ISRECMBR) PARM(ISREMCLN)' LMREVIEW,'PGM(ISRECMBR) PARM(ISREMCLN)' L21,'PGM(ISRECMBR) PARM(ISREMCLO)' /* ADD LMMDISP @L1A*/ LMMDISP,'PGM(ISRECMBR) PARM(ISREMCLO)' /* ADD LMMDISP @L1A*/ L22,'PGM(ISRECMBR) PARM(ISREMCLP)' /* ADD LMMOVE @MCA*/ LMMOVE,'PGM(ISRECMBR) PARM(ISREMCLP)' /* ADD LMMOVE @MCA*/ L23,'PGM(ISRECMBR) PARM(ISREMCLQ)' /* ADD LMCOPY @MCA*/ LMCOPY,'PGM(ISRECMBR) PARM(ISREMCLQ)' /* ADD LMCOPY @MCA*/ L24,'PGM(ISRECMBR) PARM(ISREMCLU)' /* ADD LMCOMP @LCA*/ LMCOMP,'PGM(ISRECMBR) PARM(ISREMCLU)' /* ADD LMCOMP @LCA*/ L25,'PGM(ISRECMBR) PARM(ISREMCLR)' /* ADD LMMSTATS @LSA*/ LMMSTATS,'PGM(ISRECMBR) PARM(ISREMCLR)' /* ADD LMMSTATS @LSA*/ L26,'PGM(ISRECMBR) PARM(ISREMCLT)' /* ADD LMPRINT @LPA*/ LMPRINT,'PGM(ISRECMBR) PARM(ISREMCLT)' /* ADD LMPRINT @LPA*/ L27,'PGM(ISRECMBR) PARM(ISREMCLX)' /* Model enhancements @L7A*/ LMDINIT,'PGM(ISRECMBR) PARM(ISREMCLX)' /* Model enhancements @L7A*/ L28,'PGM(ISRECMBR) PARM(ISREMCLV)' /* Model enhancements @L7A*/ LMDLIST,'PGM(ISRECMBR) PARM(ISREMCLV)' /* Model enhancements @L7A*/ L29,'PGM(ISRECMBR) PARM(ISREMCLW)' /* Model enhancements @L7A*/ LMDFREE,'PGM(ISRECMBR) PARM(ISREMCLW)' /* Model enhancements @L7A*/ M1,'PGM(ISRECMBR) PARM(ISREMCM1)' SELECT,'PGM(ISRECMBR) PARM(ISREMCM1)' M2,'PGM(ISRECMBR) PARM(ISREMCM2)' CONTROL,'PGM(ISRECMBR) PARM(ISREMCM2)' M3,'PGM(ISRECMBR) PARM(ISREMCM3)' BROWSE,'PGM(ISRECMBR) PARM(ISREMCM3)' M4,'PGM(ISRECMBR) PARM(ISREMCM4)' EDIT,'PGM(ISRECMBR) PARM(ISREMCM4)' M5,'PGM(ISRECMBR) PARM(ISREMCM5)' LOG,'PGM(ISRECMBR) PARM(ISREMCM5)' M6,'PGM(ISRECMBR) PARM(ISREMCM6)' GETMSG,'PGM(ISRECMBR) PARM(ISREMCM6)' M7,'PGM(ISRECMBR) PARM(ISREMCM7)' EDREC,'PGM(ISRECMBR) PARM(ISREMCM7)' M8,'PGM(ISRECMBR) PARM(ISREMCM8)' LIBDEF,'PGM(ISRECMBR) PARM(ISREMCM8)' M9,'PGM(ISRECMBR) PARM(ISREMCMA)' /* ADD LIST SERVICE @D1A*/ LIST,'PGM(ISRECMBR) PARM(ISREMCMA)' /* ADD LIST SERVICE @D1A*/ T1,'PANEL(ISREMCTB)' TABLES,'PANEL(ISREMCTB)' V1,'PGM(ISRECMBR) PARM(ISREMCV1)' VGET,'PGM(ISRECMBR) PARM(ISREMCV1)' V2,'PGM(ISRECMBR) PARM(ISREMCV2)' VPUT,'PGM(ISRECMBR) PARM(ISREMCV2)' V3,'PGM(ISRECMBR) PARM(ISREMCV8)' /* ADD VERASE SERVICE @LQ*/ VERASE,'PGM(ISRECMBR) PARM(ISREMCV8)' /* ADD VERASE SERVICE @LQ*/ PROBMODL,'PGM(ISRECMBR) PARM(PROBMODL)' /* PROBLEMS MODEL */ TECHMODL,'PGM(ISRECMBR) PARM(TECHMODL)' /* TECHNOTE MODEL */ *,'?' ) /* @M2A*/ IF (&ZSEL = '?') /* @M2A*/ &ZSEL = TRANS(TRUNC (&ZCMD,'.') G1,'PGM(ISRECMBR) PARM(ISREMCG1)' /* @M2A*/ TBCREATE,'PGM(ISRECMBR) PARM(ISREMCG1)' /* @M2A*/ G2,'PGM(ISRECMBR) PARM(ISREMCG2)' /* @M2A*/ TBOPEN,'PGM(ISRECMBR) PARM(ISREMCG2)' /* @M2A*/ G3,'PGM(ISRECMBR) PARM(ISREMCG3)' /* @M2A*/ TBQUERY,'PGM(ISRECMBR) PARM(ISREMCG3)' /* @M2A*/ G4,'PGM(ISRECMBR) PARM(ISREMCG4)' /* @M2A*/ TBSAVE,'PGM(ISRECMBR) PARM(ISREMCG4)' /* @M2A*/ G5,'PGM(ISRECMBR) PARM(ISREMCG5)' /* @M2A*/ TBCLOSE,'PGM(ISRECMBR) PARM(ISREMCG5)' /* @M2A*/ G6,'PGM(ISRECMBR) PARM(ISREMCG6)' /* @M2A*/ TBEND,'PGM(ISRECMBR) PARM(ISREMCG6)' /* @M2A*/ G7,'PGM(ISRECMBR) PARM(ISREMCG7)' /* @M2A*/ TBERASE,'PGM(ISRECMBR) PARM(ISREMCG7)' /* @M2A*/ G8,'PGM(ISRECMBR) PARM(ISREMCG8)' /* @M2A*/ TBSTATS,'PGM(ISRECMBR) PARM(ISREMCG8)' /* @M2A*/ R1,'PGM(ISRECMBR) PARM(ISREMCR1)' /* @M2A*/ TBADD,'PGM(ISRECMBR) PARM(ISREMCR1)' /* @M2A*/ R2,'PGM(ISRECMBR) PARM(ISREMCR2)' /* @M2A*/ TBDELETE,'PGM(ISRECMBR) PARM(ISREMCR2)' /* @M2A*/ R3,'PGM(ISRECMBR) PARM(ISREMCR3)' /* @M2A*/ TBGET,'PGM(ISRECMBR) PARM(ISREMCR3)' /* @M2A*/ R4,'PGM(ISRECMBR) PARM(ISREMCR4)' /* @M2A*/ TBPUT,'PGM(ISRECMBR) PARM(ISREMCR4)' /* @M2A*/ R5,'PGM(ISRECMBR) PARM(ISREMCR5)' /* @M2A*/ TBMOD,'PGM(ISRECMBR) PARM(ISREMCR5)' /* @M2A*/ R6,'PGM(ISRECMBR) PARM(ISREMCR6)' /* @M2A*/ TBEXIST,'PGM(ISRECMBR) PARM(ISREMCR6)' /* @M2A*/ R7,'PGM(ISRECMBR) PARM(ISREMCR7)' /* @M2A*/ TBSARG,'PGM(ISRECMBR) PARM(ISREMCR7)' /* @M2A*/ R8,'PGM(ISRECMBR) PARM(ISREMCR8)' /* @M2A*/ TBSCAN,'PGM(ISRECMBR) PARM(ISREMCR8)' /* @M2A*/ R9,'PGM(ISRECMBR) PARM(ISREMCR9)' /* @M2A*/ TBTOP,'PGM(ISRECMBR) PARM(ISREMCR9)' /* @M2A*/ R10,'PGM(ISRECMBR) PARM(ISREMCRA)' /* @M2A*/ TBBOTTOM,'PGM(ISRECMBR) PARM(ISREMCRA)' /* @M2A*/ R11,'PGM(ISRECMBR) PARM(ISREMCRB)' /* @M2A*/ TBSKIP,'PGM(ISRECMBR) PARM(ISREMCRB)' /* @M2A*/ R12,'PGM(ISRECMBR) PARM(ISREMCRC)' /* @M2A*/ TBVCLEAR,'PGM(ISRECMBR) PARM(ISREMCRC)' /* @M2A*/ R13,'PGM(ISRECMBR) PARM(ISREMCRD)' /* @M2A*/ TBSORT,'PGM(ISRECMBR) PARM(ISREMCRD)' /* @M2A*/ *,'?' ) IF (&ZSEL = '?') &ZEMTEMP = &ZCMD .MSG = ISRYM013 &ZCMD = ' ' IF (&ZMACRO = 'Y') /* IF A MACRO COMMAND OY27220*/ .RESP = 'END' /* DON'T DISPLAY ERROR OY27220*/ &ISRMMEMB = '?' /* INDICATE NO MEMBER FND OY27220*/ &ISRMMEND = 'N' /* SET THE END INDICATOR TO NO */ IF (.RESP = END) /* IF ENDING, WHY ... WHO CAUSED */ IF (&ISRMONCL ¬= 'Y') /* MAKE SURE ITS NOT A CLASS OP. */ IF (&ISRMDSPL ¬= 'RETURN ') /* MAKE SURE ITS NOT END ON MBR. */ &ISRMMEND = 'Y' /* NO - ITS BECAUSE USER HIT END */ &ZMSG = .MSG /* Set message variable @L2A*/ VPUT(ZMSG) PROFILE /* Save message in prof pool @L2A*/ )END /* $SEQ(ISREMCMD) COMP(EDIT) PROD(MVS): */ /* CHANGE ACTIVITY */ /* $L1 = LMMDISP M230 860820 397010 */ /* $MC = LMMVCPY M230 860903 100681: New for 2.3.0 */ /* $D1 = LIST M230 860912 192631: New for 2.3.0 DCR 005 */ /* $LC = LMCOMP M230 860930 100681: New for 2.3.0 */ /* $LS = LMMSTATS M230 861015 100681: New for 2.3.0 */ /* $LP = LMPRINT M230 861017 100681: New for 2.3.0 */ /* $LQ = VERASE M230 861028 192631: New for 2.3.0 */ /* $H1 = LMCOMP M230 870115 192631: PTM 970 - Duplicate part name */ /* $M2= MEMLIST M230 870223 158590: System Test PTM 1197 */ 00010003 /* $L2 = QUALITY M310 880331 192631: Fix Model macro cmd (PTM 16) */ 00010003 /* $H2 = PTM 207 M310 881214 641747: PTM # 207 */ /* $L8 = DCR55 M310 890118 464449: LMF clarification */ /* $L9 = DCR56 M310 890118 464449: 3.1 ISPF and PDF services */ /* $L7 = MODEL M320 890705 464449: Model enhancements */ /* */ 00000100 /* OY27220 90/01/03 MODEL CLASS MACRO FOR HEX=ON DATA FILE */ 00000200 /* CAUSES 'END' OF EDIT SESSION. ALSO CHANGES */ 00000300 /* TO PREVENT DISPLAY OF THIS PANEL IF ERROR ON */ 00000400 /* MODEL MACRO. */ 00000500 /* SECTION AFFECTED: PROC GT4045 DWJ */ 00000600 /* */ 00000100 /* 5665-402 (C) COPYRIGHT IBM CORP 1980, 1989 */ ./ ADD NAME=ISREMCNL %----------------------- CONTROL VARIABLE STATEMENTS ------------------------- %OPTION ===>_ZCMD + % % X1 +CURSOR - Controls the initial placement of the Xursor % X2 +HELP - Establishes a tutorial panel % X3 +MSG - Identifies a message to be displayed % X4 +RESP - Indicates user response to panel % X5 +TRAIL - Contains the 'remainder' from a TRUNC operation % X6 +ALARM - Indicates the alarm is to be sounded % X7 +ATTR - Override field attributes by field name % X8 +ATTRCHAR - Override field attributes by Xharacter % X9 +AUTOSEL - Control the selection of table display rows % X10 +CSRPOS - Indicates position of Xursor in field % X11 +ZVARS - Define names of placeholder fields % X12 +CSRROW - Indicates row where Xursor is positioned % X13 +PFKEY - Identifies the PF key pressed by the user % % + +Enter%END+command to cancel MODEL command.+ % )INIT .CURSOR = ZCMD .HELP = ISR2P215 IF (&ISRMDSPL = 'RETURN ') .RESP = END )REINIT REFRESH(ZCMD) )PROC &ZSEL = TRANS(TRUNC (&ZCMD,'.') /* GO OUT TO SET UP PROGRAM WITH A MEMBER NAME */ X1,'PGM(ISRECMBR) PARM(ISREMCN1)' /* @M2C*/ CURSOR,'PGM(ISRECMBR) PARM(ISREMCN1)' X2,'PGM(ISRECMBR) PARM(ISREMCN2)' /* @M2C*/ HELP,'PGM(ISRECMBR) PARM(ISREMCN2)' X3,'PGM(ISRECMBR) PARM(ISREMCN3)' /* @M2C*/ MSG,'PGM(ISRECMBR) PARM(ISREMCN3)' X4,'PGM(ISRECMBR) PARM(ISREMCN4)' /* @M2C*/ RESP,'PGM(ISRECMBR) PARM(ISREMCN4)' X5,'PGM(ISRECMBR) PARM(ISREMCN5)' /* @M2C*/ TRAIL,'PGM(ISRECMBR) PARM(ISREMCN5)' X6,'PGM(ISRECMBR) PARM(ISREMCN6)' /* @M2C*/ ALARM,'PGM(ISRECMBR) PARM(ISREMCN6)' X7,'PGM(ISRECMBR) PARM(ISREMCN7)' /* @M2C*/ ATTR,'PGM(ISRECMBR) PARM(ISREMCN7)' X8,'PGM(ISRECMBR) PARM(ISREMCN8)' /* @M2C*/ ATTRCHAR,'PGM(ISRECMBR) PARM(ISREMCN8)' X9,'PGM(ISRECMBR) PARM(ISREMCN9)' /* @M2C*/ AUTOSEL,'PGM(ISRECMBR) PARM(ISREMCN9)' X10,'PGM(ISRECMBR) PARM(ISREMCNA)' /* @M2C*/ CSRPOS,'PGM(ISRECMBR) PARM(ISREMCNA)' X11,'PGM(ISRECMBR) PARM(ISREMCNC)' /* @M2C*/ ZVARS,'PGM(ISRECMBR) PARM(ISREMCNC)' X12,'PGM(ISRECMBR) PARM(ISREMCNB)' /* ADD XSRROW @M2C*/ CSRROW,'PGM(ISRECMBR) PARM(ISREMCNB)' /* ADD CSRROW @M1A*/ X13,'PGM(ISRECMBR) PARM(ISREMCND)' /* ADD PFKEY @M2C*/ PFKEY,'PGM(ISRECMBR) PARM(ISREMCND)' /* ADD PFKEY @M1A*/ *,'?' ) IF (&ZSEL = '?') &ZEMTEMP = &ZCMD .MSG = ISRYM013 &ZCMD = ' ' &ISRMMEND = 'N' /* SET THE END INDICATOR TO NO */ IF (.RESP = END) /* IF ENDING, WHY ... WHO CAUSED */ IF (&ISRMONCL ¬= 'Y') /* MAKE SURE ITS NOT A CLASS OP. */ IF (&ISRMDSPL ¬= 'RETURN ') /* MAKE SURE ITS NOT END ON MBR. */ &ISRMMEND = 'Y' /* NO - ITS BECAUSE USER HIT END */ )END /* $SEQ(ISREMCNL) COMP(EDIT) PROD(MVS): */ /* CHANGE ACTIVITY */ /* $M1 = EDIT M230 861205 192631: Models added for 2.3.0 */ /* $M2= MEMLIST M230 870223 158590: System Test PTM */ 00010003 /* 1197. */ 00020003 ./ ADD NAME=LA )ATTR ? TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(PINK) . TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) % TYPE(TEXT) INTENS(HIGH) SKIP(ON) + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) CAPS(ON) _ TYPE(INPUT) INTENS(HIGH) PAD('_') COLOR(WHITE) CAPS(ON) JUST(LEFT) ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(ON) JUST(LEFT) \ TYPE(INPUT) INTENS(HIGH) COLOR(RED) CAPS(ON) @ TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(ON) SKIP(ON) ! TYPE(OUTPUT) INTENS(HIGH) COLOR(TURQ) # TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) CAPS(OFF) SKIP(ON) )BODY EXPAND({{) %{-{ Current Dataset Allocations {-{ %COMMAND ==>~ZCMD %SCROLL ==>\Z + % ?Sel DD Name Message Dataset Name .--- -------- --------------- ----------------------------------------------- )MODEL ROWS(ALL) _Z+ #LADDX @LAMSG !LADSN )INIT .ZVARS = '(ZSCML ZSEL)' &ZSEL = &Z )PROC VPUT (ZSCML) PROFILE )END ./ ADD NAME=LAYOUT )ATTR /********************************************************************** /* PANEL: LAYOUT * /* Author: David Leigh * /* Function: Facilitate the creation and management of COBOL copybook * /* layouts. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) SKIP(ON) + TYPE(TEXT) INTENS(LOW) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON ) JUST(LEFT ) ! TYPE(INPUT) INTENS(HIGH) CAPS(ON ) JUST(LEFT ) . TYPE(INPUT) INTENS(LOW) CAPS(OFF) JUST(ASIS ) PAD('_') )BODY EXPAND({{) %{-{ Layout Utility {-{ %COMMAND ==>_ZCMD %SCROLL ==>_Z + % %?+on the command line or next to a table row to see valid commands % +Output ISPF Table Library ==>_LYWRITLB +Position ==>_Z+(Column|Offset) Packed Decimal Size ==>_Z+(Digits|Bytes) +Start Level ==>_Z +Layout Name ==>_LYRNAME + % %Sel Name Position Length Type %=== ==== ======== ====== ==== )MODEL ROWS(&SCANALL) .Z +!LYFNAME + !LYPOS+ !LYLEN+!Z+(Bin|Char|Packed|Zoned) )INIT /*&ZHTOP = UTILH047 .ZVARS = '(ZSCML LYPOSSET LYPAKSET LYSTART ZSEL LYFTYPE)' &ZCMD = &Z &ZSEL = &Z )PROC VPUT (ZSCML) PROFILE )END ./ ADD NAME=MASK )ATTR 05 TYPE(DATAOUT) INTENS(LOW) COLOR(BLUE) 07 TYPE(DATAOUT) INTENS(HIGH) COLOR(WHITE) 10 TYPE(DATAIN) INTENS(NON) 11 TYPE(DATAIN) INTENS(LOW) COLOR(GREEN) 13 TYPE(DATAIN) INTENS(HIGH) COLOR(RED) 1C TYPE(DATAIN) INTENS(NON) CAPS(ON) 1D TYPE(DATAIN) INTENS(LOW) COLOR(GREEN) CAPS(ON) 1F TYPE(DATAIN) INTENS(HIGH) COLOR(RED) CAPS(ON) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(RED) @ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) $ TYPE(OUTPUT) INTENS(LOW) COLOR(BLUE) # AREA(DYNAMIC) EXTEND(ON) SCROLL(ON) )BODY WIDTH(&ZSCREENW) EXPAND(//) @ISFLN1 %COMMAND INPUT ===>_ISFCMD %SCROLL ===>_ISFS+ #ISFBUF -----------------------/-/---------------------------------------------# )INIT .HELP = &ISFHELP .CURSOR = &ISFCSRN .CSRPOS = &ISFCSRP )PROC &ISFCSRN = .CURSOR &ISFCSRP = .CSRPOS &ISFLVL = LVLINE(ISFBUF) )END ./ ADD NAME=MODSCHD )ATTR /********************************************************************** /* Panel: MODSCHD * /* Author: David Leigh * /* Function: Primary table display panel of the SCHEDULE table. It * /* is used with the SCHEDULE CLIST to assist the Schedule * /* Administrator in his/her daily schedule preparation * /* duties. * /* Maintenance Notes: As the number of "valid databases" increases, * /* more blank lines may need to be added after the * /* "Valid Databases:" line below in order to * /* display all the valid databases on the panel. * /********************************************************************** › TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) SKIP(ON) COLOR(RED) HILITE(USCORE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(OFF) ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) PAD('_') . TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) . TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) )BODY EXPAND({{) %{-{ Schedule Administration {-{ %COMMAND ==>_ZCMD %SCROLL ==>_Z + % +Type\?+on the command line or on any line to display a list of valid commands. % +Valid Databases: .VALIDDBS % +Special Notes: ›SPECNOTE % \ Variable Variable Applicable \Select Name Value Edit Type Database \------ ------------ --------------------------------- --------- ---------- )MODEL ROWS(ALL) ~Z+ .VARIABLE +.VALUE +.EDITTYPE +.DATABASE+ )INIT .HELP = HELPSM01 .ZVARS = '(ZSCML ZSEL)' &ZCMD = &Z &ZSEL = &Z IF (&ERRROW > &Z) .CSRROW = &ERRROW .CURSOR = VALUE )PROC IF (&ZTDSELS ¬= '0000') &ERRROW = .CSRROW VER(&VARIABLE NB MSG=SCHD000C) VER(&VALUE NB MSG=SCHD000D) VER(&DATABASE NB LIST &VDB1 &VDB2 &VDB3 &VDB4 &VDB5 &VDB6 &VDB7 &VDB8 &VDB9 &VDB10 &VDB11 &VDB12 &VDB13 &VDB14 &VDB15 &VDB16 &VDB17 &VDB18 &VDB19 &VDB20 &VDB21 &VDB22 &VDB23 &VDB24 &VDB25 &VDB26 &VDB27 &VDB28 &VDB29 &VDB30 &VDB31 &VDB32 &VDB33 &VDB34 &VDB35 &VDB36 &VDB37 &VDB38 &VDB39 &VDB40 &VDB41 &VDB42 &VDB43 &VDB44 &VDB45 &VDB46 &VDB47 &VDB48 &VDB49 &VDB50 &VDB51 &VDB52 &VDB53 &VDB54 &VDB55 &VDB56 &VDB57 &VDB58 &VDB59 &VDB60 &VDB61 &VDB62 &VDB63 &VDB64 &VDB65 &VDB66 &VDB67 &VDB68 &VDB69 &VDB70 &VDB71 &VDB72 &VDB73 &VDB74 &VDB75 &VDB76 &VDB77 &VDB78 &VDB79 &VDB80 &VDB81 &VDB82 &VDB83 &VDB84 &VDB85 &VDB86 &VDB87 &VDB88 &VDB89 &VDB90 &VDB91 &VDB92 &VDB93 &VDB94 &VDB95 &VDB96 &VDB97 &VDB98 &VDB99 &VDB100 MSG=SCHD000B) VPUT (ZSCML) PROFILE )END ./ ADD NAME=MSGPANEL )ATTR DEFAULT(%+_) /********************************************************************** /* Panel: MSGPANEL * /* Author: David Leigh * /* Function: This panel works with any utility which displays * /* "locked-keyboard" processing messages. It allows that * /* utility to display the messages without problems on * /* certain panels like ISPF 2 or ISPF 3.4. The message * /* is in variable ZEDLMSG and the utility name in variable * /* UTILITY. Simply set UTILITY and ZEDLMSG, do an ISPEXEC * /* CONTROL DISPLAY LOCK and an ISPEXEC DISPLAY * /* PANEL(MSGPANEL). * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) + TYPE(TEXT) INTENS(LOW) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY EXPAND({{) %{-{ Processing Messages For &UTILITY UTILITY {-{ %COMMAND ===>_ZCMD + % % % % % % % % %******************************************************************************* %&ZEDLMSG %******************************************************************************* % % % % % % % % % % )PROC &ZEDLMSG = &Z )END ./ ADD NAME=MYBROWSE )ATTR DEFAULT(%+_) . TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) @ TYPE(INPUT) INTENS(NON) )BODY EXPAND({{) +{-{›Extended BROWSE Dataset Selection+{-{ %OPTION ===>_ZCMD + + +LIBRARY%===>_Z . (Select a number from the list or%"99".to set default cursor) +MEMBER %===>_MEM . (" " or pattern for mbr list or%"99".for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_ZODSN + VOLUME SERIAL %===>_VOL + (If not cataloged) + Column 3 Name Prefix %===>_COL3BPFX + 1_QBRN1 +14_QBRN14 +27_QBRN27 + 2_QBRN2 +15_QBRN15 +28_QBRN28 + 3_QBRN3 +16_QBRN16 +29_QBRN29 + 4_QBRN4 +17_QBRN17 +30_QBRN30 + 5_QBRN5 +18_QBRN18 +31_QBRN31 + 6_QBRN6 +19_QBRN19 +32_QBRN32 + 7_QBRN7 +20_QBRN20 +33_QBRN33 + 8_QBRN8 +21_QBRN21 +34_QBRN34 + 9_QBRN9 +22_QBRN22 +35_QBRN35 +10_QBRN10 +23_QBRN23 +36_QBRN36 +11_QBRN11 +24_QBRN24 +37_QBRN37 +12_QBRN12 +25_QBRN25 +38_QBRN38 +13_QBRN13 +26_QBRN26 +39_QBRN39 )INIT .ZVARS = '(QBLIB)' VGET EXCURSOR PROFILE &ZMLCSR = ' ' /* @M1A*/ &ZCMD = ' ' VGET MEM SHARED IF (&TEMP = 'RESETDSN') &ZODSN = &Z IF (&ZODSN > &Z) .CURSOR = ZODSN ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QBLIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEM ELSE .CURSOR = QBLIB IF (&MIX = ' ') &MIX = 'YES' IF (&ZDBCS = 'NO') &MIX = 'NO' )REINIT /* @M1A*/ IF (&ZMLCSR ¬= ' ') /* @M1A*/ .CURSOR = &ZMLCSR /* @M1A*/ )PROC IF (&MEM = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &MEM = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEM NONBLANK MSG=UTLZ000) IF (&QBLIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &QBLIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEM NONBLANK MSG=UTLZ000) VPUT MEM SHARED IF (&ZODSN ¬= ' ') /* @M1A*/ &TEMP = &Z &ZFC = TRUNC(&ZODSN,1) /* IF FIRST CHARACTER @M2A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M2A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M2A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M2A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M2A*/ &ZODSN = '&ZODSN&ZFC' /* ADD IT TO THE END @M2A*/ ELSE IF (&ZPREFIX ¬= &Z) &ZODSN = '''&ZPREFIX..&ZODSN''' &ZBCDSN = &ZODSN /* copy other ds field @M2A*/ &ZMLCSR = '********' /* @M1A*/ PANEXIT((ZODSN,ZMLCSR),PGM,&ZMLVEXIT,&ZMLVDATA,MSG=ISRM040) ELSE VER (&QBLIB,NB,RANGE,1,39) IF (&QBLIB = 1) VER (&QBRN1,DSNAME) &QDSN = &QBRN1 IF (&QBLIB = 2) VER (&QBRN2,DSNAME) &QDSN = &QBRN2 IF (&QBLIB = 3) VER (&QBRN3,DSNAME) &QDSN = &QBRN3 IF (&QBLIB = 4) VER (&QBRN4,DSNAME) &QDSN = &QBRN4 IF (&QBLIB = 5) VER (&QBRN5,DSNAME) &QDSN = &QBRN5 IF (&QBLIB = 6) VER (&QBRN6,DSNAME) &QDSN = &QBRN6 IF (&QBLIB = 7) VER (&QBRN7,DSNAME) &QDSN = &QBRN7 IF (&QBLIB = 8) VER (&QBRN8,DSNAME) &QDSN = &QBRN8 IF (&QBLIB = 9) VER (&QBRN9,DSNAME) &QDSN = &QBRN9 IF (&QBLIB = 10) VER (&QBRN10,DSNAME) &QDSN = &QBRN10 IF (&QBLIB = 11) VER (&QBRN11,DSNAME) &QDSN = &QBRN11 IF (&QBLIB = 12) VER (&QBRN12,DSNAME) &QDSN = &QBRN12 IF (&QBLIB = 13) VER (&QBRN13,DSNAME) &QDSN = &QBRN13 IF (&QBLIB = 14) VER (&QBRN14,DSNAME) &QDSN = &QBRN14 IF (&QBLIB = 15) VER (&QBRN15,DSNAME) &QDSN = &QBRN15 IF (&QBLIB = 16) VER (&QBRN16,DSNAME) &QDSN = &QBRN16 IF (&QBLIB = 17) VER (&QBRN17,DSNAME) &QDSN = &QBRN17 IF (&QBLIB = 18) VER (&QBRN18,DSNAME) &QDSN = &QBRN18 IF (&QBLIB = 19) VER (&QBRN19,DSNAME) &QDSN = &QBRN19 IF (&QBLIB = 20) VER (&QBRN20,DSNAME) &QDSN = &QBRN20 IF (&QBLIB = 21) VER (&QBRN21,DSNAME) &QDSN = &QBRN21 IF (&QBLIB = 22) VER (&QBRN22,DSNAME) &QDSN = &QBRN22 IF (&QBLIB = 23) VER (&QBRN23,DSNAME) &QDSN = &QBRN23 IF (&QBLIB = 24) VER (&QBRN24,DSNAME) &QDSN = &QBRN24 IF (&QBLIB = 25) VER (&QBRN25,DSNAME) &QDSN = &QBRN25 IF (&QBLIB = 26) VER (&QBRN26,DSNAME) &QDSN = &QBRN26 IF (&QBLIB = 27) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN27' ELSE &QDSN = '&QBRN27' VER (&QDSN,DSNAME) IF (&QBLIB = 28) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN28' ELSE &QDSN = '&QBRN28' VER (&QDSN,DSNAME) IF (&QBLIB = 29) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN29' ELSE &QDSN = '&QBRN29' VER (&QDSN,DSNAME) IF (&QBLIB = 30) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN30' ELSE &QDSN = '&QBRN30' VER (&QDSN,DSNAME) IF (&QBLIB = 31) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN31' ELSE &QDSN = '&QBRN31' VER (&QDSN,DSNAME) IF (&QBLIB = 32) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN32' ELSE &QDSN = '&QBRN32' VER (&QDSN,DSNAME) IF (&QBLIB = 33) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN33' ELSE &QDSN = '&QBRN33' VER (&QDSN,DSNAME) IF (&QBLIB = 34) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN34' ELSE &QDSN = '&QBRN34' VER (&QDSN,DSNAME) IF (&QBLIB = 35) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN35' ELSE &QDSN = '&QBRN35' VER (&QDSN,DSNAME) IF (&QBLIB = 36) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN36' ELSE &QDSN = '&QBRN36' VER (&QDSN,DSNAME) IF (&QBLIB = 37) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN37' ELSE &QDSN = '&QBRN37' VER (&QDSN,DSNAME) IF (&QBLIB = 38) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN38' ELSE &QDSN = '&QBRN38' VER (&QDSN,DSNAME) IF (&QBLIB = 39) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN39' ELSE &QDSN = '&QBRN39' VER (&QDSN,DSNAME) &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&PRJ > &Z) &PRJ0 = &PRJ &PRJ1 = &PRJ &ZBCPRJ1 = &PRJ IF (&LIB > &Z) &LIB0 = &LIB &LIB1 = &LIB &ZBCLIB1 = &LIB IF (&TYP > &Z) &TYP0 = &TYP &TYP1 = &TYP &ZBCTYP1 = &TYP IF (&TEMP > &Z) IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB..&TYP..&TEMP(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB..&TYP..&TEMP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB..&TYP(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB..&TYP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ(&MEM)''' ELSE &ZODSN = '''&PRJ''' &TEMP = RESETDSN VER (&PROF NAME) IF (&IMAC ¬= ' ' ) &ZXXX = TRUNC(&IMAC,'!') &IMACNM = .TRAIL IF (&IMACNM = ' ') &IMACNM = &ZXXX VER (&IMACNM NAME MSG = ISRE900) &MIX = TRANS(TRUNC(&MIX,1) N,NO Y,YES *,*) VER (&MIX LIST,YES,NO) IF (&FNAM ¬= ' ') VER (&FNAM NAME) &ZBCMIX = &MIX &ZBCFNAM = &FNAM VPUT (MIX FNAM) PROFILE VPUT (ZBCMIX ZBCFNAM) SHARED VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 PRJ0 LIB0 TYP0) PROFILE VPUT (PROF) PROFILE VPUT (QBRN1 QBRN2 QBRN3 QBRN4 QBRN5 QBRN6 QBRN7 QBRN8 QBRN9 QBRN10 QBRN11 QBRN12 QBRN13 QBRN14 QBRN15 QBRN16 QBRN17 QBRN18 QBRN19 QBRN20 QBRN21 QBRN22 QBRN23 QBRN24 QBRN25) PROFILE VPUT (QBRN26 QBRN27 QBRN28 QBRN29 QBRN30 QBRN31 QBRN32 QBRN33 QBRN34 QBRN35 QBRN36 QBRN37 QBRN38 QBRN39 QBLIB) PROFILE VPUT (ZBCPRJ1 ZBCLIB1 ZBCTYP1) PROFILE )END ./ ADD NAME=MYEDIT )ATTR DEFAULT(%+_) . TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) . TYPE(INPUT) INTENS(HIGH) CAPS(OFF) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) @ TYPE(INPUT) INTENS(NON) )BODY EXPAND({{) +{-{›Extended EDIT Dataset Selection+{-{ %OPTION ===>_ZCMD + + +LIBRARY%===>_Z . (Select a number from the list or%"99".to set default cursor) +MEMBER %===>_MEM . (" " or pattern for mbr list or%"99".for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_DSN + VOLUME SERIAL %===>_VOL + (If not cataloged) + Column 3 Name Prefix %===>_COL3EPFX + 1_QERN1 +14_QERN14 +27_QERN27 + 2_QERN2 +15_QERN15 +28_QERN28 + 3_QERN3 +16_QERN16 +29_QERN29 + 4_QERN4 +17_QERN17 +30_QERN30 + 5_QERN5 +18_QERN18 +31_QERN31 + 6_QERN6 +19_QERN19 +32_QERN32 + 7_QERN7 +20_QERN20 +33_QERN33 + 8_QERN8 +21_QERN21 +34_QERN34 + 9_QERN9 +22_QERN22 +35_QERN35 +10_QERN10 +23_QERN23 +36_QERN36 +11_QERN11 +24_QERN24 +37_QERN37 +12_QERN12 +25_QERN25 +38_QERN38 +13_QERN13 +26_QERN26 +39_QERN39 )INIT .ZVARS = '(QELIB)' VGET EXCURSOR PROFILE &ZMLCSR = ' ' /* @M1A*/ &ZCMD = ' ' VGET MEM SHARED IF (&TEMP = 'RESETDSN') &DSN = &Z IF (&DSN > &Z) .CURSOR = DSN ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QELIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEM ELSE .CURSOR = QELIB IF (&ZEDLOCKP ¬= 'NEVER') /* @D1C*/ &ZEDLOCKP = 'YES' /* @D1C*/ IF (&MIX = ' ') &MIX = 'YES' IF (&ZDBCS = 'NO') &MIX = 'NO' )REINIT /* @M1A*/ IF (&ZMLCSR ¬= ' ') /* @M1A*/ .CURSOR = &ZMLCSR /* @M1A*/ )PROC IF (&MEM = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &MEM = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEM NONBLANK MSG=UTLZ000) IF (&QELIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &QELIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEM NONBLANK MSG=UTLZ000) VPUT MEM SHARED IF (&DSN ¬= ' ') &TEMP = &Z &ZFC = TRUNC(&DSN,1) /* IF FIRST CHARACTER @M3A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M3A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M3A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M3A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M3A*/ &DSN = '&DSN&ZFC' /* ADD IT TO THE END @M3A*/ ELSE IF (&ZPREFIX ¬= &Z) &DSN = '''&ZPREFIX..&DSN''' &ZMCDSN = &DSN /* copy other ds field @M2A*/ &ZMLCSR = '********' /* @M1A*/ PANEXIT((DSN,ZMLCSR),PGM,&ZMLVEXIT,&ZMLVDATA,MSG=ISRM040) ELSE VER (&QELIB,NB,RANGE,1,39) IF (&QELIB = 1) VER (&QERN1,DSNAME) &QDSN = &QERN1 IF (&QELIB = 2) VER (&QERN2,DSNAME) &QDSN = &QERN2 IF (&QELIB = 3) VER (&QERN3,DSNAME) &QDSN = &QERN3 IF (&QELIB = 4) VER (&QERN4,DSNAME) &QDSN = &QERN4 IF (&QELIB = 5) VER (&QERN5,DSNAME) &QDSN = &QERN5 IF (&QELIB = 6) VER (&QERN6,DSNAME) &QDSN = &QERN6 IF (&QELIB = 7) VER (&QERN7,DSNAME) &QDSN = &QERN7 IF (&QELIB = 8) VER (&QERN8,DSNAME) &QDSN = &QERN8 IF (&QELIB = 9) VER (&QERN9,DSNAME) &QDSN = &QERN9 IF (&QELIB = 10) VER (&QERN10,DSNAME) &QDSN = &QERN10 IF (&QELIB = 11) VER (&QERN11,DSNAME) &QDSN = &QERN11 IF (&QELIB = 12) VER (&QERN12,DSNAME) &QDSN = &QERN12 IF (&QELIB = 13) VER (&QERN13,DSNAME) &QDSN = &QERN13 IF (&QELIB = 14) VER (&QERN14,DSNAME) &QDSN = &QERN14 IF (&QELIB = 15) VER (&QERN15,DSNAME) &QDSN = &QERN15 IF (&QELIB = 16) VER (&QERN16,DSNAME) &QDSN = &QERN16 IF (&QELIB = 17) VER (&QERN17,DSNAME) &QDSN = &QERN17 IF (&QELIB = 18) VER (&QERN18,DSNAME) &QDSN = &QERN18 IF (&QELIB = 19) VER (&QERN19,DSNAME) &QDSN = &QERN19 IF (&QELIB = 20) VER (&QERN20,DSNAME) &QDSN = &QERN20 IF (&QELIB = 21) VER (&QERN21,DSNAME) &QDSN = &QERN21 IF (&QELIB = 22) VER (&QERN22,DSNAME) &QDSN = &QERN22 IF (&QELIB = 23) VER (&QERN23,DSNAME) &QDSN = &QERN23 IF (&QELIB = 24) VER (&QERN24,DSNAME) &QDSN = &QERN24 IF (&QELIB = 25) VER (&QERN25,DSNAME) &QDSN = &QERN25 IF (&QELIB = 26) VER (&QERN26,DSNAME) &QDSN = &QERN26 IF (&QELIB = 27) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN27' ELSE &QDSN = '&QERN27' VER (&QDSN,DSNAME) IF (&QELIB = 28) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN28' ELSE &QDSN = '&QERN28' VER (&QDSN,DSNAME) IF (&QELIB = 29) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN29' ELSE &QDSN = '&QERN29' VER (&QDSN,DSNAME) IF (&QELIB = 30) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN30' ELSE &QDSN = '&QERN30' VER (&QDSN,DSNAME) IF (&QELIB = 31) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN31' ELSE &QDSN = '&QERN31' VER (&QDSN,DSNAME) IF (&QELIB = 32) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN32' ELSE &QDSN = '&QERN32' VER (&QDSN,DSNAME) IF (&QELIB = 33) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN33' ELSE &QDSN = '&QERN33' VER (&QDSN,DSNAME) IF (&QELIB = 34) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN34' ELSE &QDSN = '&QERN34' VER (&QDSN,DSNAME) IF (&QELIB = 35) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN35' ELSE &QDSN = '&QERN35' VER (&QDSN,DSNAME) IF (&QELIB = 36) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN36' ELSE &QDSN = '&QERN36' VER (&QDSN,DSNAME) IF (&QELIB = 37) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN37' ELSE &QDSN = '&QERN37' VER (&QDSN,DSNAME) IF (&QELIB = 38) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN38' ELSE &QDSN = '&QERN38' VER (&QDSN,DSNAME) IF (&QELIB = 39) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN39' ELSE &QDSN = '&QERN39' VER (&QDSN,DSNAME) &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&PRJ > &Z) &PRJ0 = &PRJ &PRJ1 = &PRJ &ZMCPRJ1 = &PRJ IF (&LIB > &Z) &LIB0 = &LIB &LIB1 = &LIB &ZMCLIB1 = &LIB IF (&TYP > &Z) &TYP0 = &TYP &TYP1 = &TYP &ZMCTYP1 = &TYP IF (&TEMP > &Z) IF (&MEM > &Z) &DSN = '''&PRJ..&LIB..&TYP..&TEMP(&MEM)''' ELSE &DSN = '''&PRJ..&LIB..&TYP..&TEMP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ..&LIB..&TYP(&MEM)''' ELSE &DSN = '''&PRJ..&LIB..&TYP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ..&LIB(&MEM)''' ELSE &DSN = '''&PRJ..&LIB''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ(&MEM)''' ELSE &DSN = '''&PRJ''' &TEMP = RESETDSN VER (&PROF NAME) IF (&IMAC ¬= ' ' ) &ZXXX = TRUNC(&IMAC,'!') &IMACNM = .TRAIL IF (&IMACNM = ' ') &IMACNM = &ZXXX VER (&IMACNM NAME MSG = ISRE900) &ZEDL1 = TRUNC(&ZEDLOCKP,1) IF (&ZEDL1 = 'Y') &ZEDLOCKP = 'YES' ELSE IF (&ZEDLOCKP = 'NES') &ZEDLOCKP = 'NO' ELSE &ZEDLOCKP = TRANS(TRUNC(&ZEDLOCKP,2) NE,NEVER NO,NO ' ',YES *,*) /* @D1C*/ VER (&ZEDLOCKP,LIST,YES,NO,NEVER) /* @D1C*/ &ZEDLOCK = &ZEDLOCKP /* @D1A*/ IF (&ZEDLOCK = 'NEVER') /* @D1A*/ &ZEDLOCK = 'NO' /* @D1A*/ &MIX = TRANS(TRUNC(&MIX,1) N,NO Y,YES *,*) VER (&MIX LIST,YES,NO) IF (&FNAM ¬= ' ') VER (&FNAM NAME) &ZECLOCKP = &ZEDLOCKP /* This forwards the lock value chosen on entry @D1A*/ VPUT (ZECLOCKP) /* to Edit to the Edit primary cmd panel. @D1A*/ VPUT (ZEDLOCK ZEDLOCKP MIX FNAM) PROFILE /* @D1C*/ VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 PRJ0 LIB0 TYP0) PROFILE VPUT (PROF COL3EPFX) PROFILE VPUT (QERN1 QERN2 QERN3 QERN4 QERN5 QERN6 QERN7 QERN8 QERN9 QERN10 QERN11 QERN12 QERN13 QERN14 QERN15 QERN16 QERN17 QERN18 QERN19 QERN20 QERN21 QERN22 QERN23 QERN24 QERN25) PROFILE VPUT (QERN26 QERN27 QERN28 QERN29 QERN30 QERN31 QERN32 QERN33 QERN34 QERN35 QERN36 QERN37 QERN38 QERN39 QELIB) PROFILE VPUT (ZMCPRJ1 ZMCLIB1 ZMCTYP1) PROFILE )END ./ ADD NAME=NEWCCID )ATTR DEFAULT(%+_) + TYPE(TEXT) INTENS(LOW) SKIP(ON) # TYPE(INPUT) INTENS(LOW) JUST(RIGHT) › TYPE(OUTPUT) INTENS(HIGH) JUST(LEFT) SKIP(ON) )BODY EXPAND(\\) %\-\ CCID REQUEST FACILITY \-\ %OPTION ===>_ZCMD + + +Enter the number of CCIDs required and press to process: + +Number of CCIDs%===>_Z + + + +The following contiguous range of CCIDs has been assigned to you: ›CCIDRANG )INIT /* .HELP = CITF2X00 */ .CURSOR = ZCMD &ZPARENT = NDVRUSER .ZVARS = '(NUMCCIDS)' )PROC /***** FIELD LEVEL EDITS *****/ VER (&NUMCCIDS NUM) )END ./ ADD NAME=PAGINATE )ATTR /********************************************************************** /* PANEL: PAGINATE * /* AUTHOR: DAVID LEIGH * /* FUNCTION: ALLOW SETTING AND UPDATING OF PARAMETERS ASSOCIATED WITH * /* THE PAGINATE MACRO. * /********************************************************************** % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) . TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(ON) . TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) )BODY EXPAND({{) {-{ PAGINATE Utility Function {-{ %COMMAND ==> .Number of Lines Per Page ==>_Z .Pagination Continue PFKey ==>_Z . .CC Type ==>_Z%A.Existing ANSI .(1-24 or%AUTO.to not prompt for each page) %M.Existing Machine .Starting Location ==>_Z %TOP, CURSOR or %.New ANSI %.labelname .For PAGE NUMBER, DATE, and TIME, indicate a "YES" to place at the right most column. If they are all on the right-most column on the same line, they will be in "DATE, TIME, PAGE NUMBER" order. If you have specified speicific title and/or footer line(s), you must indicate which (any or all) of these lines you want the PAGE NUMBER, DATE, and/or TIME to be placed on. The PAGE NUMBER format is "Page: 9999" where "9999" is zero suppressed and right-justified. DATE is YY/MM/DD, and TIME is HH:MM:SS. .Page Number ==>_Z .Header 1==>_Z.2==>_Z.3==>_Z.Footer 1==>_Z.2==>_Z.3==>_Z. . Date ==>_Z .Header 1==>_Z.2==>_Z.3==>_Z.Footer 1==>_Z.2==>_Z.3==>_Z. . Time ==>_Z .Header 1==>_Z.2==>_Z.3==>_Z.Footer 1==>_Z.2==>_Z.3==>_Z. .TITLE 1 ==>_PNATTTL1 .Justify ==>_Z. .TITLE 2 ==>_PNATTTL2 .Justify ==>_Z. .TITLE 3 ==>_PNATTTL3 .Justify ==>_Z. .FOOTR 1 ==>_PNATFOT1 .Justify ==>_Z. .FOOTR 2 ==>_PNATFOT2 .Justify ==>_Z. .FOOTR 3 ==>_PNATFOT3 .Justify ==>_Z. %END.to process selections. %CANCEL.to quit process. )INIT &ZCMD = ' ' .ZVARS = '(PNATLINE PNATKEY PNATCC PNATLOC PNATPAGE PNATPGH1 + PNATPGH2 PNATPGH3 PNATPGF1 PNATPGF2 PNATPGF3 PNATDATE + PNATDTH1 PNATDTH2 PNATDTH3 PNATDTF1 PNATDTF2 PNATDTF3 + PNATTIME PNATTMH1 PNATTMH2 PNATTMH3 PNATTMF1 PNATTMF2 + PNATTMF3 PNATJST1 PNATJST2 PNATJST3 PNATJSF1 PNATJSF2 + PNATJSF3)' .CURSOR = PNATLINE )PROC VER (&PNATLINE NONBLANK RANGE 1 99999 MSG=PNAT000A) VER (&PNATKEY LIST ' ' 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 + 19 20 21 22 23 24 F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 + F11 F12 F13 F14 F15 F16 F17 F18 F19 F20 F21 F22 + F23 F24 PF1 PF2 PF3 PF4 PF5 PF6 PF7 PF8 PF9 PF10 + PF11 PF12 PF13 PF14 PF15 PF16 PF17 PF18 PF19 PF20 + PF21 PF22 PF23 PF24 AUTO MSG=PNAT000B) VER (&PNATCC LIST ' ' A M MSG=PNAT000C) VER (&PNATLOC NONBLANK MSG=PNAT000D) IF (&PNATPAGE > 0) VER (&PNATPAGE NONBLANK RANGE 1 246 MSG=PNAT000E) ELSE VER (&PNATPAGE NONBLANK LIST Y YE YES N NO MSG=PNAT000E) VER (&PNATPGH1 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATPGH2 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATPGH3 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATPGF1 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATPGF2 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATPGF3 NONBLANK LIST Y N MSG=PNAT000F) IF (&PNATTIME > 0) VER (&PNATTIME NONBLANK RANGE 1 248 MSG=PNAT000G) ELSE VER (&PNATTIME NONBLANK LIST Y YE YES N NO MSG=PNAT000G) VER (&PNATTMH1 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATTMH2 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATTMH3 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATTMF1 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATTMF2 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATTMF3 NONBLANK LIST Y N MSG=PNAT000F) IF (&PNATDATE > 0) VER (&PNATDATE NONBLANK RANGE 1 248 MSG=PNAT000H) ELSE VER (&PNATDATE NONBLANK LIST Y YE YES N NO MSG=PNAT000H) VER (&PNATDTH1 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATDTH2 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATDTH3 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATDTF1 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATDTF2 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATDTF3 NONBLANK LIST Y N MSG=PNAT000F) VER (&PNATJST1 NONBLANK LIST L R C MSG=PNAT000I) VER (&PNATJST2 NONBLANK LIST L R C MSG=PNAT000I) VER (&PNATJST3 NONBLANK LIST L R C MSG=PNAT000I) VER (&PNATJSF1 NONBLANK LIST L R C MSG=PNAT000I) VER (&PNATJSF2 NONBLANK LIST L R C MSG=PNAT000I) VER (&PNATJSF3 NONBLANK LIST L R C MSG=PNAT000I) VPUT (PNATTTL1 PNATTTL2 PNATTTL3 PNATFOT1 PNATFOT1 PNATFOT1) PROFILE VPUT (PNATLINE PNATKEY PNATPAGE PNATPGH1 PNATPGH2 PNATPGH3) PROFILE VPUT (PNATPGF1 PNATPGF2 PNATPGF3 PNATTIME PNATTMH1 PNATTMH2) PROFILE VPUT (PNATTMH3 PNATTMF1 PNATTMF2 PNATTMF3 PNATDATE PNATDTH1) PROFILE VPUT (PNATDTH2 PNATDTH3 PNATDTF1 PNATDTF2 PNATDTF3 PNATJST1) PROFILE VPUT (PNATJST2 PNATJST3 PNATJSF1 PNATJSF2 PNATJSF3 PNATCC) PROFILE VPUT (PNATCC PNATLOC) PROFILE )END ./ ADD NAME=PANVCMDS )ATTR /********************************************************************** /* PANEL: PANVCMDS * /* AUTHOR: DAVID LEIGH * /* FUNCTION: THIS IS A POP-UP TABLE DISPLAY OF VALID COMMANDS FOR THE * /* TOOLBOX PANVIEW SYSTEM. * /********************************************************************** _ TYPE(INPUT) INTENS(NON) CAPS(ON) @ TYPE(OUTPUT) INTENS(HIGH) . TYPE(OUTPUT) INTENS(LOW) /* )BODY WINDOW(70,14) )BODY @ZWINTTL _ZCMD )MODEL @PVCMD .PVCMDDES % )END ./ ADD NAME=PANVIEW )ATTR DEFAULT(%+_) . TYPE(TEXT) SKIP(ON) INTENS(LOW) )BODY EXPAND({{) %{-{ PANVIEW - Panvalet Member Viewing {-{ %COMMAND ==>_ZCMD + % +Enter Library Number%==>_Z . + or +Other PANVALET Library%==>_PNSL + + 1%_PVRN1 +16%_PVRN16 + 2%_PVRN2 +17%_PVRN17 + 3%_PVRN3 +18%_PVRN18 + 4%_PVRN4 +19%_PVRN19 + 5%_PVRN5 +20%_PVRN20 + 6%_PVRN6 +21%_PVRN21 + 7%_PVRN7 +22%_PVRN22 + 8%_PVRN8 +23%_PVRN23 + 9%_PVRN9 +24%_PVRN24 +10%_PVRN10 +25%_PVRN25 +11%_PVRN11 +26%_PVRN26 +12%_PVRN12 +27%_PVRN27 +13%_PVRN13 +28%_PVRN28 +14%_PVRN14 +29%_PVRN29 +15%_PVRN15 +30%_PVRN30 )INIT .ZVARS = '(PVLIB)' .HELP = UTILH101 &ZCMD = ' ' &PVLIB = ' ' &PNSL = ' ' IF (.MSG ¬= ' ') .CURSOR = PVLIB )PROC &BMEM = &Z "E = NO IF (&ZCMD ¬= ' ') .MSG = ISRE176 VER (&PNSL,DSNAME) VER (&PVRN1,DSNAME) VER (&PVRN2,DSNAME) VER (&PVRN3,DSNAME) VER (&PVRN4,DSNAME) VER (&PVRN5,DSNAME) VER (&PVRN6,DSNAME) VER (&PVRN7,DSNAME) VER (&PVRN8,DSNAME) VER (&PVRN9,DSNAME) VER (&PVRN10,DSNAME) VER (&PVRN12,DSNAME) VER (&PVRN13,DSNAME) VER (&PVRN14,DSNAME) VER (&PVRN15,DSNAME) VER (&PVRN16,DSNAME) VER (&PVRN17,DSNAME) VER (&PVRN18,DSNAME) VER (&PVRN19,DSNAME) VER (&PVRN20,DSNAME) VER (&PVRN22,DSNAME) VER (&PVRN23,DSNAME) VER (&PVRN24,DSNAME) VER (&PVRN25,DSNAME) VER (&PVRN26,DSNAME) VER (&PVRN27,DSNAME) VER (&PVRN28,DSNAME) VER (&PVRN29,DSNAME) VER (&PVRN30,DSNAME) IF (&PNSL = ' ') VER (&PVLIB,NB,RANGE,1,30) IF (&PVLIB = 1) &PVDSN = &PVRN1 IF (&PVLIB = 2) &PVDSN = &PVRN2 IF (&PVLIB = 3) &PVDSN = &PVRN3 IF (&PVLIB = 4) &PVDSN = &PVRN4 IF (&PVLIB = 5) &PVDSN = &PVRN5 IF (&PVLIB = 6) &PVDSN = &PVRN6 IF (&PVLIB = 7) &PVDSN = &PVRN7 IF (&PVLIB = 8) &PVDSN = &PVRN8 IF (&PVLIB = 9) &PVDSN = &PVRN9 IF (&PVLIB = 10) &PVDSN = &PVRN10 IF (&PVLIB = 11) &PVDSN = &PVRN11 IF (&PVLIB = 12) &PVDSN = &PVRN12 IF (&PVLIB = 13) &PVDSN = &PVRN13 IF (&PVLIB = 14) &PVDSN = &PVRN14 IF (&PVLIB = 15) &PVDSN = &PVRN15 IF (&PVLIB = 16) &PVDSN = &PVRN16 IF (&PVLIB = 17) &PVDSN = &PVRN17 IF (&PVLIB = 18) &PVDSN = &PVRN18 IF (&PVLIB = 19) &PVDSN = &PVRN19 IF (&PVLIB = 20) &PVDSN = &PVRN20 IF (&PVLIB = 21) &PVDSN = &PVRN21 IF (&PVLIB = 22) &PVDSN = &PVRN22 IF (&PVLIB = 23) &PVDSN = &PVRN23 IF (&PVLIB = 24) &PVDSN = &PVRN24 IF (&PVLIB = 25) &PVDSN = &PVRN25 IF (&PVLIB = 26) &PVDSN = &PVRN26 IF (&PVLIB = 27) &PVDSN = &PVRN27 IF (&PVLIB = 28) &PVDSN = &PVRN28 IF (&PVLIB = 29) &PVDSN = &PVRN29 IF (&PVLIB = 30) &PVDSN = &PVRN30 IF (&PVLIB ¬= ' ') IF (&PNSL = ' ') &PNSL = &PVDSN VPUT (PVRN1 PVRN2 PVRN3 PVRN4 PVRN5 PVRN6 PVRN7 PVRN8 PVRN9 PVRN10 PVRN11 PVRN12 PVRN13 PVRN14 PVRN15 PVRN16 PVRN17 PVRN18 PVRN19 PVRN20 PVRN21 PVRN22 PVRN23 PVRN24 PVRN25 PVRN26 PVRN27 PVRN28 PVRN29 PVRN30) PROFILE )END ./ ADD NAME=PANVIEW2 )ATTR ` TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) SKIP(ON) . TYPE(OUTPUT) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(LOW) SKIP(ON) JUST(RIGHT) _ TYPE(INPUT) INTENS(HIGH) COLOR(RED) CAPS(ON) )BODY EXPAND({{) %{-{ PANVIEW - Member Selection List {-{ %COMMAND ==>_ZCMD %SCROLL ==>_Z + %Panvalet Library:`PNSL + NAME LVL USER F LANG STAT LAST LAST BLKS STATMTS ACT AVG + M TYPE MAINT ACCESS +{-{ )MODEL _Z.Z \Z \Z .Z .Z .Z .Z .Z \Z \Z .Z \Z )INIT .ZVARS = '(ZSCML ZSEL PVMEMBER PVLEVEL PVUSER PVFLAG PVLANG + PVSTATUS PVMAINT PVLASTAC PVBLOCKS PVSTMTS PVACTION PVAVG)' .HELP = UTILH105 &ZCMD = &Z &ZSEL = &Z )END ./ ADD NAME=PANVIEW3 )ATTR /********************************************************************** /* PANEL: PANVIEW3 * /* AUTHOR: DAVID LEIGH * /* FUNCTION: THIS IS A POP-UP QUERY FOR A PANVALET MEMBER ACCESS CODE.* /********************************************************************** + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) | TYPE(OUTPUT) INTENS(HIGH) /* )BODY WINDOW(54,1) )BODY |ZWINTTL %This Member Requires A PANVALET Access Code ==>_Z + )INIT .ZVARS = 'ACCESS' )PROC &ZEDLMSG = 'The PANVALET Access Code Must Be Numeric' VER (&ACCESS,NUM,MSG=UTLZ001W) )END ./ ADD NAME=PANVIEW4 )ATTR _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) + TYPE(TEXT) INTENS(LOW) SKIP(ON) % TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) SKIP(ON) COLOR(RED) )BODY EXPAND({{) %{-{ PANVIEW - Member Selection List Criteria {-{ %COMMAND ==>_ZCMD + + % Please choose one or more of the following for the MEMBER SELECTION LIST: + + Current PANVALET library:\PNSL + + + List members starting with %==>_PVPMS1 + + List members with LANG TYPE %==>_PVPMS2 + + List members with USER CODE range%FROM==>_Z %TO==>_Z + + List members with STATUS combination %==>_Z+_Z+_Z+ % T A E + or % P I D + + Process above criteria with "AND" or "OR" logic ?_Z + + + + + + Press%ENTER+key to process; Enter%END+command to terminate. )INIT .CURSOR = PVPMS1 .ZVARS = '(PVPMS3F PVPMS3T PVPMSS1 PVPMSS2 PVPMSS3 PVSELLOG)' .HELP = UTILH102 &ZCMD = ' ' IF (&PVSELLOG = &Z) &PVSELLOG = 'OR' )PROC IF (&ZCMD ¬= ' ') .MSG = ISPZ001 &ZEDLMSG = 'Valid Values: AUTOCODER, BAL, ALC, COBOL, ANSCOBOL, + COBOL-72, FORTRAN, PL/1, PL/I, RPG, OBJECT, JCL, + DATA, OTHER, UNSPECIFIED, USER780, USER180, OEM' VER (&PVPMS2,LIST,AUTOCODER,BAL,ALC,COBOL,ANSCOBOL,+ 'COBOL-72',FORTRAN,'PL/1','PL/I',RPG,OBJECT,JCL,+ DATA,OTHER,UNSPECIFIED,USER780,USER180,OEM,MSG=UTLZ001W) VER (&PVPMS3F,RANGE,0,9999) VER (&PVPMS3T,RANGE,0,9999) VER (&PVPMSS1,LIST,T,P) VER (&PVPMSS2,LIST,A,I) VER (&PVPMSS3,LIST,E,D) VER (&PVSELLOG,NB,LIST,AND,OR) VPUT (PVPMS1,PVPMS2,PVPMS3F,PVPMS3T,PVPMSS1,PVPMSS2,PVPMSS3) PROFILE VPUT (PVSELLOG) PROFILE )END ./ ADD NAME=PDSPANL )ATTR DEFAULT(%+_) ¬ TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) | TYPE(INPUT) INTENS(HIGH) CAPS(OFF) @ TYPE(INPUT) INTENS(NON) )BODY EXPAND(\\) +-\-\-›PDS Version 8.4 - Extended Dataset Selection+-\-\- %OPTION ===>_ZCMD + + +LIBRARY%===>_Z ¬ (Select a number from the list or%"99"¬to set default cursor) +MEMBER %===>_MEMX ¬ (" " or pattern for mbr list or%"99"¬for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_DSNX + VOLUME SERIAL %===>_VOL + (If not cataloged) %Member List?_Z%(Y/N) + Column 3 Name Prefix %===>_COL3EPFX + 1_QERN1 +14_QERN14 +27_QERN27 + 2_QERN2 +15_QERN15 +28_QERN28 + 3_QERN3 +16_QERN16 +29_QERN29 + 4_QERN4 +17_QERN17 +30_QERN30 + 5_QERN5 +18_QERN18 +31_QERN31 + 6_QERN6 +19_QERN19 +32_QERN32 + 7_QERN7 +20_QERN20 +33_QERN33 + 8_QERN8 +21_QERN21 +34_QERN34 + 9_QERN9 +22_QERN22 +35_QERN35 +10_QERN10 +23_QERN23 +36_QERN36 +11_QERN11 +24_QERN24 +37_QERN37 +12_QERN12 +25_QERN25 +38_QERN38 +13_QERN13 +26_QERN26 +39_QERN39 )INIT .ZVARS = '(QELIB,MLIST)' VGET EXCURSOR PROFILE VGET (MEMXPDS DSNPDS) SHARED &MLIST = 'Y' &MEMX = &MEMXPDS &DSNX = &DSNPDS .HELP = P84PN@PH &ZHTOP = P84PN@PO &ZCMD = &Z IF (&DSNX > &Z) .CURSOR = DSNX ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QELIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEMX ELSE .CURSOR = QELIB )PROC IF (&MEMX = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &MEMX = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEMX NONBLANK MSG=UTLZ000) IF (&QELIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &QELIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEMX NONBLANK MSG=UTLZ000) &MEMXPDS = &MEMX &DSNPDS = &DSNX VPUT (MEMXPDS DSNPDS) SHARED VER (&MLIST,NONBLANK,LIST,Y,N) &XMEM = &Z "E = NO IF (&DSNX ¬= &Z) &MEMX = &Z &ZFC = TRUNC(&DSNX,1) /* IF FIRST CHARACTER @M3A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M3A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M3A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M3A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M3A*/ &DSNX = '&DSNX&ZFC' /* ADD IT TO THE END @M3A*/ ELSE IF (&ZPREFIX ¬= &Z) &DSNX = '''&ZPREFIX..&DSNX''' ELSE VER (&QELIB,NB,RANGE,1,39) IF (&QELIB = 1) VER (&QERN1,DSNAME) &QDSN = &QERN1 IF (&QELIB = 2) VER (&QERN2,DSNAME) &QDSN = &QERN2 IF (&QELIB = 3) VER (&QERN3,DSNAME) &QDSN = &QERN3 IF (&QELIB = 4) VER (&QERN4,DSNAME) &QDSN = &QERN4 IF (&QELIB = 5) VER (&QERN5,DSNAME) &QDSN = &QERN5 IF (&QELIB = 6) VER (&QERN6,DSNAME) &QDSN = &QERN6 IF (&QELIB = 7) VER (&QERN7,DSNAME) &QDSN = &QERN7 IF (&QELIB = 8) VER (&QERN8,DSNAME) &QDSN = &QERN8 IF (&QELIB = 9) VER (&QERN9,DSNAME) &QDSN = &QERN9 IF (&QELIB = 10) VER (&QERN10,DSNAME) &QDSN = &QERN10 IF (&QELIB = 11) VER (&QERN11,DSNAME) &QDSN = &QERN11 IF (&QELIB = 12) VER (&QERN12,DSNAME) &QDSN = &QERN12 IF (&QELIB = 13) VER (&QERN13,DSNAME) &QDSN = &QERN13 IF (&QELIB = 14) VER (&QERN14,DSNAME) &QDSN = &QERN14 IF (&QELIB = 15) VER (&QERN15,DSNAME) &QDSN = &QERN15 IF (&QELIB = 16) VER (&QERN16,DSNAME) &QDSN = &QERN16 IF (&QELIB = 17) VER (&QERN17,DSNAME) &QDSN = &QERN17 IF (&QELIB = 18) VER (&QERN18,DSNAME) &QDSN = &QERN18 IF (&QELIB = 19) VER (&QERN19,DSNAME) &QDSN = &QERN19 IF (&QELIB = 20) VER (&QERN20,DSNAME) &QDSN = &QERN20 IF (&QELIB = 21) VER (&QERN21,DSNAME) &QDSN = &QERN21 IF (&QELIB = 22) VER (&QERN22,DSNAME) &QDSN = &QERN22 IF (&QELIB = 23) VER (&QERN23,DSNAME) &QDSN = &QERN23 IF (&QELIB = 24) VER (&QERN24,DSNAME) &QDSN = &QERN24 IF (&QELIB = 25) VER (&QERN25,DSNAME) &QDSN = &QERN25 IF (&QELIB = 26) VER (&QERN26,DSNAME) &QDSN = &QERN26 /* 1/20/2000 - Removed the following lines and replaced them */ /* with the similar lines from the XEDIT panel so */ /* that users of PDS could use the same concept of */ /* specifying only the suffix in their 3rd column */ /* and switching among different prefixes. */ /* */ /* IF (&QELIB = 27) */ /* VER (&QERN27,DSNAME) */ /* &QDSN = &QERN27 */ /* IF (&QELIB = 28) */ /* VER (&QERN28,DSNAME) */ /* &QDSN = &QERN28 */ /* IF (&QELIB = 29) */ /* VER (&QERN29,DSNAME) */ /* &QDSN = &QERN29 */ /* IF (&QELIB = 30) */ /* VER (&QERN30,DSNAME) */ /* &QDSN = &QERN30 */ /* IF (&QELIB = 31) */ /* VER (&QERN31,DSNAME) */ /* &QDSN = &QERN31 */ /* IF (&QELIB = 32) */ /* VER (&QERN32,DSNAME) */ /* &QDSN = &QERN32 */ /* IF (&QELIB = 33) */ /* VER (&QERN33,DSNAME) */ /* &QDSN = &QERN33 */ /* IF (&QELIB = 34) */ /* VER (&QERN34,DSNAME) */ /* &QDSN = &QERN34 */ /* IF (&QELIB = 35) */ /* VER (&QERN35,DSNAME) */ /* &QDSN = &QERN35 */ /* IF (&QELIB = 36) */ /* VER (&QERN36,DSNAME) */ /* &QDSN = &QERN36 */ /* IF (&QELIB = 37) */ /* VER (&QERN37,DSNAME) */ /* &QDSN = &QERN37 */ /* IF (&QELIB = 38) */ /* VER (&QERN38,DSNAME) */ /* &QDSN = &QERN38 */ /* IF (&QELIB = 39) */ /* VER (&QERN39,DSNAME) */ /* &QDSN = &QERN39 */ IF (&QELIB = 27) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN27' ELSE &QDSN = '&QERN27' VER (&QDSN,DSNAME) IF (&QELIB = 28) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN28' ELSE &QDSN = '&QERN28' VER (&QDSN,DSNAME) IF (&QELIB = 29) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN29' ELSE &QDSN = '&QERN29' VER (&QDSN,DSNAME) IF (&QELIB = 30) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN30' ELSE &QDSN = '&QERN30' VER (&QDSN,DSNAME) IF (&QELIB = 31) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN31' ELSE &QDSN = '&QERN31' VER (&QDSN,DSNAME) IF (&QELIB = 32) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN32' ELSE &QDSN = '&QERN32' VER (&QDSN,DSNAME) IF (&QELIB = 33) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN33' ELSE &QDSN = '&QERN33' VER (&QDSN,DSNAME) IF (&QELIB = 34) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN34' ELSE &QDSN = '&QERN34' VER (&QDSN,DSNAME) IF (&QELIB = 35) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN35' ELSE &QDSN = '&QERN35' VER (&QDSN,DSNAME) IF (&QELIB = 36) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN36' ELSE &QDSN = '&QERN36' VER (&QDSN,DSNAME) IF (&QELIB = 37) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN37' ELSE &QDSN = '&QERN37' VER (&QDSN,DSNAME) IF (&QELIB = 38) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN38' ELSE &QDSN = '&QERN38' VER (&QDSN,DSNAME) IF (&QELIB = 39) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN39' ELSE &QDSN = '&QERN39' VER (&QDSN,DSNAME) &DSNX = '''&QDSN''' &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&TEMP = &Z) IF (&PRJ > &Z) IF (&LIB > &Z) IF (&TYP > &Z) &PRJ1 = &PRJ &LIB1 = &LIB &TYP1 = &TYP &ZMCPRJ1 = &PRJ &ZMCLIB1 = &LIB &ZMCTYP1 = &TYP VPUT (PRJ1 LIB1 TYP1 ZMCPRJ1 ZMCLIB1 ZMCTYP1) PROFILE VPUT (QERN1 QERN2 QERN3 QERN4 QERN5 QERN6 QERN7 QERN8 QERN9 QERN10 QERN11 QERN12 QERN13 QERN14 QERN15 QERN16 QERN17 QERN18 QERN19 QERN20 QERN21 QERN22 QERN23 QERN24 QERN25) PROFILE VPUT (QERN26 QERN27 QERN28 QERN29 QERN30 QERN31 QERN32 QERN33 QERN34 QERN35 QERN36 QERN37 QERN38 QERN39 QELIB COL3EPFX) PROFILE &ROOT = TRUNC(&DSNX,'(') &STEM = .TRAIL &STEM = TRUNC(&STEM,')') IF (&STEM ¬= &Z) &BYTE1 = TRUNC(&STEM,1) IF (&BYTE1 = '+' '-' '1' '2' '3' '4' '5' '6' '7' '8' '9' '0') &TEMP = TRUNC(&ROOT,'''') &ROOT = .TRAIL &DSNX = '''&ROOT''' ELSE &TEMP = TRUNC(&ROOT,'''') &ROOT = .TRAIL &DSNX = '''&ROOT''' &MEMX = &STEM &PDSPDSN = &DSNX &PDSPPGM = PDS &PDSPVOL = &VOL VPUT (PDSPDSN PDSPVOL PDSPVST PDSMEMP PDSPPGM) SHARED IF (&MEMX = &Z) &MEMX = ':' IF (&MEMX = '*') &MEMX = ':' IF (&MLIST = 'Y') &PARM = 'MEMLIST &MEMX' &A = TRUNC(&MEMX,':') &B = TRUNC(&MEMX,'*') &C = TRUNC(&MEMX,'/') &D = TRUNC(&MEMX,')') &E = TRUNC(&MEMX,'(') IF (&A = &MEMX) IF (&B = &MEMX) IF (&C = &MEMX) IF (&D = &MEMX) IF (&E = &MEMX) &PARM = 'EDIT &MEMX' ELSE &PARM = 'ISPMODE' &OPT = 'X' &PARMDSN = &DSNX &DSNX = &Z &MEMX = &Z &ZSEL = TRANS(&OPT,X,'PGM(PDS) PARM(PDS &PARMDSN &PARM)') )END ./ ADD NAME=PRINTIT )ATTR /********************************************************************** /* PANEL: PRINTIT * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* primary panel in which the user specifies the dataset to * /* be printed and selects the desired print configuration(s)* /********************************************************************** ` TYPE(TEXT) INTENS(NON) SKIP(ON) + TYPE(TEXT) COLOR(BLUE) SKIP(ON) % TYPE(TEXT) COLOR(WHITE) SKIP(ON) ¬ TYPE(TEXT) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) COLOR(YELLOW) SKIP(ON) ~ TYPE(INPUT) COLOR(RED) CAPS(ON) PAD('_') _ TYPE(INPUT) COLOR(RED) CAPS(ON) $ TYPE(INPUT) COLOR(YELLOW) CAPS(ON) INTENS(HIGH) ! TYPE(INPUT) COLOR(YELLOW) CAPS(OFF) › TYPE(OUTPUT) COLOR(WHITE) SKIP(ON) | TYPE(OUTPUT) COLOR(GREEN) SKIP(ON) CAPS(OFF) )BODY EXPAND({{) %{-{ PRINTIT Utility {-{ %COMMAND ==>_ZCMD %SCROLL ==_Z + % ¬Dataset name ==>$PDSN ¬"PDS" format member group ==>$PMBR ¬<== ¬`PANVALET access code ==> Z + ¬Job Suffix ==>$Z ¬ Job Cost Center ==>$Z ¬Sysout Box Code==>$Z ¬ ¬ P.R. Code ==>$PPRCDE¬Job Type Code ==>$Z¬ Carriage control ==>$Z%(" " - None ¬ Job Class ==>$Z¬ Programmer name ==>$PPGMNAME % "A" - ANSI ¬ Copies ==>$Z ¬ Review JCL ==>$Z%(Y/N) "M" - Mach.) \{={ Select print configuration(s) below -%?\for command help {={ +Sel Config. Configuration Description )MODEL ~Z¬›PTCONNAM|PTDESC )INIT .CURSOR = PDSN .ZVARS = '(ZSCML PJOBSUFF PACODE PSLOC PJOBTYPE PCC PJOBCLAS PCOPIES + JCLREVEW PTSEL)' .HELP = UTILH106 &ZCMD = &Z IF (&PJOBSUFF = &Z) &PJOBSUFF = 'PT' IF (&PPRCDE = &Z) &PPRCDE = 'Z00000' IF (&PJOBTYPE = &Z) &PJOBTYPE = 'O' IF (&PJOBCLAS = &Z) &PJOBCLAS = 'A' IF (&PJOBCLAS = &Z) &PJOBCLAS = 'V' IF (&PPGMNAME = &Z) &PPGMNAME = 'PRINT' )PROC VPUT (ZSCML PJOBSUFF PPRCDE PSLOC PPGMNAME PJOBCLAS PACODE) PROFILE VPUT (PJOBTYPE) PROFILE IF (&PTSEL = 'S') VER (&PDSN NB DSNAME MSG=PRNT000A) VER (&PJOBSUFF NB MSG=PRNT000B) VER (&PACODE NB MSG=PRNT000C) VER (&PPRCDE NB MSG=PRNT000J) VER (&PJOBTYPE NB LIST C T P O MSG=PRNT000K) VER (&PCC LIST ' ' A M MSG=PRNT000D) VER (&PJOBCLAS NB LIST A B C D V 1 4 5 MSG=PRNT000I) VER (&PCOPIES NB RANGE 0 255 MSG=PRNT000F) VER (&JCLREVEW NB LIST Y N MSG=PRNT000H) VER (&PCC LIST ' ' A M MSG=PRNT000D) VER (&PCOPIES NB RANGE 0 255 MSG=PRNT000F) VER (&JCLREVEW NB LIST Y N MSG=PRNT000H) )END ./ ADD NAME=PRINTITA )ATTR /********************************************************************** /* PANEL: PRINTITA * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the COMPACT field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) ³ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,4) ¬The COMPTACT parameter specifies a compaction table for sending ¬this sysout data set to a SNA remote terminal. A compaction ¬table name is the valid value for this field. Table names may ¬be 1 to 8 alphanumeric characters. )END ./ ADD NAME=PRINTITB )ATTR /********************************************************************** /* PANEL: PRINTITB * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the CONTROL field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) ³ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,8) ¬The CONTROL parameter specifies that the data set records begin ¬with carriage control characters or specifies line spacing. ¬Valid values and their meanings are as follows: ¬PROGRAM: Each logical record begins with a carriage control ¬ character ¬SINGLE: Single spacing ¬DOUBLE: Double spacing ¬TRIPLE: Triple spacing )END ./ ADD NAME=PRINTITC )ATTR /********************************************************************** /* PANEL: PRINTITC * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the COPIES field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,8) ¬The COPIES parameter specifies the number of copies to be ¬printed. For a 3800 Printing Subsystem, it can instead specify ¬the number of copies of each page printed before the next page ¬is printed. Valid format for this field is as follows: ¬nnn ³ nnn(JES2): 1-255 ¬nnn ³ nnn(JES3): 1-25 ¬(,(group-value{,group-value}...))³1-8 group-values (JES2): 1-255 ¬(,(group-value{,group-value}...))³1-8 group-values (JES3): 1-254 )END ./ ADD NAME=PRINTITD )ATTR /********************************************************************** /* PANEL: PRINTITD * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the DATACK field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,8) ¬The DATACK parameter indicates whether or not print-positioning ¬errors and invalid character data-check errors are to be blocked ¬or not blocked. Valid values and their meanings are as follows: ¬BLOCK: Indicates errors are not to be reported ¬UNBLOCK: Indicates errors are to be reported ¬BLKCHAR: Indicates only PRINT errors are to be blocked ¬BLKPOS: Indicates only DATA errors are to be blocked )END ./ ADD NAME=PRINTITE )ATTR /********************************************************************** /* PANEL: PRINTITE * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the DEFAULT field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,6) ¬The DEFAULT parameter specifies that this is a default OUTPUT ¬JCL statement. Valid values and their meanings are as follows: ¬Y or YES: This statement can be implicitly referenced by sysout ¬ DD statements. ¬N or NO: This statement cannot be implicitly referenced by ¬ sysout DD statements. (This is the default) )END ./ ADD NAME=PRINTITF )ATTR /********************************************************************** /* PANEL: PRINTITF * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the DEST field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,20) ¬The DEST parameter sends a sysout data set to the specified ¬destination. The formats and their meanings are as follows: ¬LOCAL ³Local device ¬name J ³Named local or remote device ¬Nnnnn E ³VTAM node number (1 - 1000) ¬NnnRmmmm to NnnnnnRmm S ³Node (1-1000) & remote work station ¬ 2 ³(1-9999); 6 digits max for "n" & "m" ¬ ³combined. ¬nodename.userid ³Node (1-8 alphanumeric characters) & ¬ ³userid (1-8 alphanumeric characters) ¬Rnnnn or RMnnnn or RMTnnnn³Remote terminal (1-9999) ¬--------------------------+------------------------------------ ¬Unnnn ³Local terminal (1-9999) ¬ANYLOCAL ³Any local device ¬device-name J ³Local device (1-8 alphanumeric or ¬ E ³national {#, @, $} characters). ¬group-name S ³1 or more local devices or remote ¬ 3 ³stations (use device-name format). ¬nodename ³Node ("") ¬nodename.remote ³Remote work station ("") )END ./ ADD NAME=PRINTITG )ATTR /********************************************************************** /* PANEL: PRINTITG * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the DPAGELBL field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) )BODY WINDOW(65,6) ¬The DPAGELBL parameter indicates whether the system should print ¬a security label on each page of output. Valid values are: ¬Y or YES: Requests that the system print a security label on ¬ each page. ¬N or NO: Requests that the system not print a security label on ¬ each page. )END ./ ADD NAME=PRINTITH )ATTR /********************************************************************** /* PANEL: PRINTITH * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the FCB field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,5) ¬The FCB parameter specifies the FCB image, carriage control tape ¬for 1403 Printer, or data-protection image for 3525 Card Punch. ¬Valid values are as follows: ¬fcb-name: 1-4 alphanumeric or national (#, @, $) characters ¬STD: Standard FCB (JES3 only) )END ./ ADD NAME=PRINTITI )ATTR /********************************************************************** /* PANEL: PRINTITI * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the FLASH field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,9) ¬The FLASH parameter indicates that the data set is to be printed ¬with forms overlay and can specify how many copies are to be ¬flashed. Valid values are as follows: ¬overlay-name ³overlay-name: forms overlay frame (1-4 ¬(overlay-name{,count{) ³ alphanumeric or @,#,$ ¬(,count) ³ characters) ¬NONE ³count: copies with overlay (0-255) ¬STD ³NONE: suppress flashing ¬ ³STD: standard forms flash overlay (JES3) )END ./ ADD NAME=PRINTITJ )ATTR /********************************************************************** /* PANEL: PRINTITJ * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the FORMDEF field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,4) ¬The FORMDEF parameter names a library member that PSF uses in ¬printing the sysout data set on a page-mode printer (such as a ¬3800 Model 3). A valid member name is 1-6 alphanumeric or ¬national ($, #, @) characters. )END ./ ADD NAME=PRINTITK )ATTR /********************************************************************** /* PANEL: PRINTITK * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the FORMS field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,8) ¬The FORMS parameter identifies forms ¬on which the sysout data set is to ¬be printed or punched. Valid values ¬are as follows: ¬form-name: 1-8 alphanumeric or ¬ national (@, #, $) ¬ characters. ¬STD: standard form (JES3) )END ./ ADD NAME=PRINTITL )ATTR /********************************************************************** /* PANEL: PRINTITL * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the GROUPID field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,5) ¬The GROUPID parameter specifies that ¬this sysout data set belongs to a ¬user-named output group (JES2 only). ¬A valid output-group name is 1-8 ¬alphanumeric characters. )END ./ ADD NAME=PRINTITM )ATTR /********************************************************************** /* PANEL: PRINTITM * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the INDEX field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,6) ¬The INDEX parameter specifies how ¬many print positions the left margin ¬is to be indented for a sysout dta ¬set printed on a 3211 Printer with ¬the indexing feature (JES2 only). ¬Valid index values are 1-31. )END ./ ADD NAME=PRINTITN )ATTR /********************************************************************** /* PANEL: PRINTITN * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the JESDS field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,11) ¬The JESDS parameter requests that ¬the indicated system-managed data ¬sets for the job be processed ¬according to the parameters on this ¬OUTPUT JCL statement. Valid values ¬are: ¬ALL: All of the job's system-managed ¬ data sets ¬JCL: All JCL processing data sets ¬LOG: The job's hard-copy log ¬MSG: The job's system messages )END ./ ADD NAME=PRINTITO )ATTR /********************************************************************** /* PANEL: PRINTITO * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the LINDEX field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,7) ¬The LINDEX parameter specifies how ¬many print positions the right ¬margin is to be moved in from the ¬full page width for a sysout data ¬set printed on a 3211 Printer with ¬the indexing feature (JES2 only). ¬Valid values are 1-31. )END ./ ADD NAME=PRINTITP )ATTR /********************************************************************** /* PANEL: PRINTITP * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the LINECT field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,4) ¬The LINECT parameter specifies the ¬maximum number of lines JES2 is to ¬print on each page (JES2 only). ¬Valid values are 0-255. )END ./ ADD NAME=PRINTITQ )ATTR /********************************************************************** /* PANEL: PRINTITQ * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the MODIFY field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(60,8) ¬The MODIFY parameter specifies a copy-modification module ¬in SYS1.IMAGELIB to be used by JES to print the data set on ¬a 3800 Printing Subsystem. Valid values are as follows: ¬module-name ¬({module-name}{,trc}) ¬The module-name is 1-4 alphanumeric or $,#,@ characters, ¬and "trc" is which table is specified in the CHARS ¬parameter ("0"-1st, "1"-2nd, "2"-3rd, "3"-4th). )END ./ ADD NAME=PRINTITR )ATTR /********************************************************************** /* PANEL: PRINTITR * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the PAGEDEF field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,6) ¬The PAGEDEF parameter names a ¬library member sysout data set on a ¬page-mode printer (such as a 3800 ¬Model 3). A member name may be 1-6 ¬alphanumeric or national (@, #, $) ¬characters. )END ./ ADD NAME=PRINTITS )ATTR /********************************************************************** /* PANEL: PRINTITS * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the PIMSG field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,12) ¬The PIMSG parameter indicates that ¬messages from a functionial ¬subsystem should or should not be ¬printed in the listing following the ¬sysout data set. Valid format: ¬(xxx{,msg-count{) where "xxx" is ¬either YES which indicates that ¬messages should be printed or NO ¬which indicates that they should ¬not. "msg-count" can be 0-999 and ¬indicates the number of errors to ¬cause printing to be terminated. )END ./ ADD NAME=PRINTITT )ATTR /********************************************************************** /* PANEL: PRINTITT * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the PRMODE field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,10) ¬The PRMODE parameter identifies the ¬process mode required to print the ¬sysout data set. Valid values are: ¬LINE: Send data set to line-mode ¬ printer ¬PAGE: Send data set to page-mode ¬ printerr ¬process-mode: installation-defined ¬ mode. (1-8 alphanumeric ¬ characters) )END ./ ADD NAME=PRINTITU )ATTR /********************************************************************** /* PANEL: PRINTITU * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the PRTY field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,6) ¬The PRTY parameter specifies initial ¬priority at which the sysout data ¬set enters the output queue. Valid ¬values are 0-255 where "0" is the ¬lowest priority and "255" is the ¬highest. )END ./ ADD NAME=PRINTITV )ATTR /********************************************************************** /* PANEL: PRINTITV * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the SYSAREA field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,8) ¬The SYSAREA parameter indicates ¬whether the system should reserve a ¬system area on each page of output. ¬Valid values are: ¬Y or YES: A system area should be ¬ reserved ¬N or NO: A system area should not ¬ be reserved )END ./ ADD NAME=PRINTITW )ATTR /********************************************************************** /* PANEL: PRINTITW * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the THRESHLD field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,6) ¬The THRESHLD parameter specifies the ¬maximum size for a sysout data set. ¬Use it to obtain simultaneous ¬printing of large data sets or many ¬data sets from one job. (JES3 only) ¬Valid values are 1-99999999. )END ./ ADD NAME=PRINTITX )ATTR /********************************************************************** /* PANEL: PRINTITX * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the TRC field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,9) ¬The TRC parameter specifies whether ¬or not the sysout data set's records ¬contain table reference codes (TRC) ¬as the second character. Valid ¬values are as follows: ¬Y or YES: Data set contains TRC ¬ codes ¬N or NO: Data set does not contain ¬ TRC codes )END ./ ADD NAME=PRINTITY )ATTR /********************************************************************** /* PANEL: PRINTITY * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the UCS field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,7) ¬The UCS parameter specifies a ¬universal character set (UCS), print ¬train, or character-arrangement ¬table for a 3800 Printing Subsystem. ¬A valid character-set-code is 1-4 ¬alphanumeric or national (#, @, $) ¬characters. )END ./ ADD NAME=PRINTITZ )ATTR /********************************************************************** /* PANEL: PRINTITZ * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the WRITER field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(37,5) ¬The WRITER parameter names an ¬external writer to process the ¬sysout data set rather than JES. A ¬valid writer name is 1-8 alpha ¬numeric characters. )END ./ ADD NAME=PRINTIT1 )ATTR /********************************************************************** /* PANEL: PRINTIT1 * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* panel which is used to add/change a given print * /* configuration's extended options. * /********************************************************************** % TYPE(TEXT) COLOR(WHITE) SKIP(ON) ¬ TYPE(TEXT) COLOR(TURQ) SKIP(ON) \ TYPE(OUTPUT) COLOR(RED) SKIP(ON) $ TYPE(INPUT) COLOR(YELLOW) CAPS(ON) PAD(NULLS) ³ TYPE(TEXT) COLOR(GREEN) SKIP(ON) )BODY EXPAND({{) %{-{ PRINTIT Skeleton Specification {-{ %COMMAND ==>_ZCMD % ³Indicate which ISPF skeletons are to be used for this print configuration. ³The defaults are pre-populated, however any ISPF skeleton file may be used ³which is in the ISPPLIB concatenation. ¬ %Skeleton ¬Current Configuration:\PTCONNAM % Order % 1.¬Skel Name%==>$PTSKEL01¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ % 2.¬Skel Name%==>$PTSKEL02¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ % 3.¬Skel Name%==>$PTSKEL03¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ % 4.¬Skel Name%==>$PTSKEL04¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ % 5.¬Skel Name%==>$PTSKEL05¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ % 6.¬Skel Name%==>$PTSKEL06¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ % 7.¬Skel Name%==>$PTSKEL07¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ % 8.¬Skel Name%==>$PTSKEL08¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ % 9.¬Skel Name%==>$PTSKEL09¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ %10.¬Skel Name%==>$PTSKEL10¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ %11.¬Skel Name%==>$PTSKEL11¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ %12.¬Skel Name%==>$PTSKEL12¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ %13.¬Skel Name%==>$PTSKEL13¬Tailor (Y/N)?%==>$Z¬Optional Inclusion (Y/N)?%==>$Z¬ %{={ PF3 to return to previous screen {={ )INIT .ZVARS = '(PTTAIL01 PTOPT01 PTTAIL02 PTOPT02 PTTAIL03 PTOPT03 + PTTAIL04 PTOPT04 PTTAIL05 PTOPT05 PTTAIL06 PTOPT06 + PTTAIL07 PTOPT07 PTTAIL08 PTOPT08 PTTAIL09 PTOPT09 + PTTAIL10 PTOPT10 PTTAIL11 PTOPT11 PTTAIL12 PTOPT12 + PTTAIL13 PTOPT13)' .HELP = UTILH110 &ZCMD = &Z IF (&PTSEL = 'V') .CURSOR = ZCMD .ATTRCHAR($) = 'TYPE(OUTPUT) SKIP(ON)' .ATTRCHAR(³) = 'INTENS(NON)' )PROC VER (&PTSKEL01,NB,NAME) IF (&PTSKEL01 ¬= &Z) VER (&PTTAIL01,NB,LIST,Y,N) VER (&PTOPT01,NB,LIST,Y,N) VER (&PTSKEL02,NAME) IF (&PTSKEL02 ¬= &Z) VER (&PTTAIL02,NB,LIST,Y,N) VER (&PTOPT02,NB,LIST,Y,N) VER (&PTSKEL03,NAME) IF (&PTSKEL03 ¬= &Z) VER (&PTTAIL03,NB,LIST,Y,N) VER (&PTOPT03,NB,LIST,Y,N) VER (&PTSKEL04,NAME) IF (&PTSKEL04 ¬= &Z) VER (&PTTAIL04,NB,LIST,Y,N) VER (&PTOPT04,NB,LIST,Y,N) VER (&PTSKEL05,NAME) IF (&PTSKEL05 ¬= &Z) VER (&PTTAIL05,NB,LIST,Y,N) VER (&PTOPT05,NB,LIST,Y,N) VER (&PTSKEL06,NAME) IF (&PTSKEL06 ¬= &Z) VER (&PTTAIL06,NB,LIST,Y,N) VER (&PTOPT06,NB,LIST,Y,N) VER (&PTSKEL07,NAME) IF (&PTSKEL07 ¬= &Z) VER (&PTTAIL07,NB,LIST,Y,N) VER (&PTOPT07,NB,LIST,Y,N) VER (&PTSKEL08,NAME) IF (&PTSKEL08 ¬= &Z) VER (&PTTAIL08,NB,LIST,Y,N) VER (&PTOPT08,NB,LIST,Y,N) VER (&PTSKEL09,NAME) IF (&PTSKEL09 ¬= &Z) VER (&PTTAIL09,NB,LIST,Y,N) VER (&PTOPT09,NB,LIST,Y,N) VER (&PTSKEL10,NAME) IF (&PTSKEL10 ¬= &Z) VER (&PTTAIL10,NB,LIST,Y,N) VER (&PTOPT10,NB,LIST,Y,N) VER (&PTSKEL11,NAME) IF (&PTSKEL11 ¬= &Z) VER (&PTTAIL11,NB,LIST,Y,N) VER (&PTOPT11,NB,LIST,Y,N) VER (&PTSKEL12,NAME) IF (&PTSKEL12 ¬= &Z) VER (&PTTAIL12,NB,LIST,Y,N) VER (&PTOPT12,NB,LIST,Y,N) VER (&PTSKEL13,NAME) IF (&PTSKEL13 ¬= &Z) VER (&PTTAIL13,NB,LIST,Y,N) VER (&PTOPT13,NB,LIST,Y,N) )END ./ ADD NAME=PRINTIT2 )ATTR /********************************************************************** /* PANEL: PRINTIT2 * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* panel which is used to add/change a given print * /* configuration. * /********************************************************************** % TYPE(TEXT) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) COLOR(WHITE) SKIP(ON) ¬ TYPE(TEXT) COLOR(TURQ) SKIP(ON) | TYPE(INPUT) COLOR(YELLOW) CAPS(ON) PAD(NULLS) $ TYPE(INPUT) COLOR(YELLOW) CAPS(ON) PAD(NULLS) \ TYPE(INPUT) COLOR(YELLOW) CAPS(OFF) PAD(NULLS) ³ TYPE(TEXT) COLOR(GREEN) SKIP(ON) )BODY EXPAND({{) %{-{ PRINTIT Configuration {-{ %COMMAND ==>_ZCMD ³Place a›?³on any field for which you would like more information ¬Configuration Name ==>$PTCONNAM¬ Go To Extended Skeleton Screen (Y/N)?==>|Z¬ ¬Description ==>\PTDESC % ›{={ Please enter JCL OUTPUT parameters below {={ ¬BURST=$Z ¬ ¬FORMS=$PTFORMS ¬ ¬CHARS=$PTCHARS ¬ ¬GROUPID=$PTGRPID¬ ¬CKPTLINE=$Z ¬ ¬INDEX=$Z ¬ ¬CKPTPAGE=$Z ¬ ¬JESDS=$Z ¬ ¬CKPTSEC=$Z ¬ ¬LINDEX=$Z ¬ ¬CLASS=$Z¬ ¬LINECT=$Z ¬ ¬COMPACT=$PTCOMPCT¬ ¬MODIFY=$PTMODIFY¬ ¬CONTROL=$PTCONTRL¬ ¬PAGEDEF=$Z ¬ ¬COPIES=$PTCOPIES ¬PIMSG=$PTPIMSG ¬ ¬DATACK=$PTDATACK¬ ¬PRMODE=$PTPRMODE¬ ¬DEFAULT=$Z ¬ ¬PRTY=$Z ¬ ¬DEST=$PTDEST ¬ ¬SYSAREA=$Z ¬ ¬DPAGELBL=$Z ¬ ¬THRESHLD=$PTTHRHLD¬ ¬FCB=$Z ¬ ¬TRC=$Z ¬ ¬FLASH=$PTFLASH ¬ ¬UCS=$Z ¬ ¬FORMDEF=$Z ¬ ¬WRITER=$PTWRITER¬ %{={ PF3 to return to previous screen {={ )INIT .ZVARS = '(SKELOPT PTBURST PTCKPTLN PTINDEX PTCKPTPA PTJESDS PTCKPTSE + PTLINDEX PTCLASS PTLINECT PTPAGEDF PTDEFALT PTPRTY + PTSYSARA PTDPAGLB PTFCB PTTRC PTUCS PTFRMDEF)' .HELP = UTILH109 &ZCMD = &Z IF (&PTSEL = 'V') .CURSOR = SKELOPT .ATTRCHAR($) = 'TYPE(OUTPUT) SKIP(ON)' .ATTRCHAR(\) = 'TYPE(OUTPUT) SKIP(ON)' .ATTRCHAR(›) = 'INTENS(NON)' .ATTRCHAR(³) = 'INTENS(NON)' )PROC &PTCANCEL = TRANS(&ZCMD 'CANCEL','YES') &PTCANCEL = TRANS(&ZCMD 'CAN','YES') IF (&PTCANCEL = &Z) &PTCANCEL = 'NO' VER (&PTDESC NB MSG=PRNT000J) IF (&PTCONNAM = '&','-','¬','<','>','=','+') &PTCONNAM = TRANS(&PTCONNAM '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTCONNAM = '&','-','¬','<','>','=','+') &PTCONNAM = TRANS(&PTCONNAM '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') VER (&SKELOPT,NB,LIST,Y,N) IF (&PTBURST = '&','-','¬','<','>','=','+') &PTBURST = TRANS(&PTBURST '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTCHARS = '&','-','¬','<','>','=','+') &PTCHARS = TRANS(&PTCHARS '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTCKPTLN = '&','-','¬','<','>','=','+') &PTCKPTLN = TRANS(&PTCKPTLN '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTCKPTPA = '&','-','¬','<','>','=','+') &PTCKPTPA = TRANS(&PTCKPTPA '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTCKPTSE = '&','-','¬','<','>','=','+') &PTCKPTSE = TRANS(&PTCKPTSE '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTCLASS = '&','-','¬','<','>','=','+') &PTCLASS = TRANS(&PTCLASS '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTCOMPCT = '&','-','¬','<','>','=','+') &PTCOMPCT = TRANS(&PTCOMPCT '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTCONTRL = '&','-','¬','<','>','=','+') &PTCONTRL = TRANS(&PTCONTRL '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTCOPIES = '&','-','¬','<','>','=','+') &PTCOPIES = TRANS(&PTCOPIES '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTDATACK = '&','-','¬','<','>','=','+') &PTDATACK = TRANS(&PTDATACK '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTDEFALT = '&','-','¬','<','>','=','+') &PTDEFALT = TRANS(&PTDEFALT '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTDESTT = '&','-','¬','<','>','=','+') &PTDESTT = TRANS(&PTDESTT '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTDPAGLB = '&','-','¬','<','>','=','+') &PTDPAGLB = TRANS(&PTDPAGLB '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTFCBST = '&','-','¬','<','>','=','+') &PTFCBST = TRANS(&PTFCBST '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTFLASH = '&','-','¬','<','>','=','+') &PTFLASH = TRANS(&PTFLASH '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTFRMDEF = '&','-','¬','<','>','=','+') &PTFRMDEF = TRANS(&PTFRMDEF '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTFORMS = '&','-','¬','<','>','=','+') &PTFORMS = TRANS(&PTFORMS '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTGRPID = '&','-','¬','<','>','=','+') &PTGRPID = TRANS(&PTGRPID '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTINDEX = '&','-','¬','<','>','=','+') &PTINDEX = TRANS(&PTINDEX '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTJESDS = '&','-','¬','<','>','=','+') &PTJESDS = TRANS(&PTJESDS '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTLINDEX = '&','-','¬','<','>','=','+') &PTLINDEX = TRANS(&PTLINDEX '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTLINECT = '&','-','¬','<','>','=','+') &PTLINECT = TRANS(&PTLINECT '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTMODIFY = '&','-','¬','<','>','=','+') &PTMODIFY = TRANS(&PTMODIFY '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTPAGEDF = '&','-','¬','<','>','=','+') &PTPAGEDF = TRANS(&PTPAGEDF '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTPIMSG = '&','-','¬','<','>','=','+') &PTPIMSG = TRANS(&PTPIMSG '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTPRMODE = '&','-','¬','<','>','=','+') &PTPRMODE = TRANS(&PTPRMODE '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTPRTYT = '&','-','¬','<','>','=','+') &PTPRTYT = TRANS(&PTPRTYT '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTSYSARA = '&','-','¬','<','>','=','+') &PTSYSARA = TRANS(&PTSYSARA '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTTHRHLD = '&','-','¬','<','>','=','+') &PTTHRHLD = TRANS(&PTTHRHLD '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTTRCST = '&','-','¬','<','>','=','+') &PTTRCST = TRANS(&PTTRCST '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTUCSST = '&','-','¬','<','>','=','+') &PTUCSST = TRANS(&PTUCSST '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') IF (&PTWRITER = '&','-','¬','<','>','=','+') &PTWRITER = TRANS(&PTWRITER '&','?' '-','?' '¬','?' '<','?' '<','?' '=','?' '+','?') )END ./ ADD NAME=PRINTIT3 )ATTR /********************************************************************** /* PANEL: PRINTIT3 * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the PCONNAME field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(50,9) ¬The CONFIGURATION NAME is a unique name by which ¬this particular printer configuration will be ¬known. It cannot already exist in the PRINTIT ¬utility print configuration table. The name is ¬also used in the JCL on the JCL OUTPUT card. ¬Therefore, it uses the following rules: The name ¬is 1 through 8 alphanumeric or national ($,#,@) ¬characters. The first character must be ¬alphabetic or national ($,#,@). )INIT &ZWINTTL = 'Configuration Name' )END ./ ADD NAME=PRINTIT4 )ATTR /********************************************************************** /* PANEL: PRINTIT4 * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the BURST field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,7) ¬The BURST parameter is an optional parameter which directs ¬output to a stacker on a 3800 Printing Subsystem. Some ¬installations may use this parameter to direct printer operators ¬to manually burst and trim printer output. If specified, the ¬valid values are as follows: ¬Y or YES: burster-trimmer-stacker ¬N or NO: continuous forms stacker )END ./ ADD NAME=PRINTIT5 )ATTR /********************************************************************** /* PANEL: PRINTIT5 * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the CHARS field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,11) ¬The CHARS names the character-arrangement tables for printing on ¬a 3800 Printing Subsystem. It can request a high-density dump ¬on a SYSABEND or SYSUDUMP DD statement. Its format is as ¬follows: ¬table-name ¬(table-name{,table-name}...) ¬STD <===(character-arrangement table - JES3 only) ¬DUMP <==(204-character print lines on a 3800 dump) ¬(DUMP{,table-name}...) ¬You may have 1-4 table-name subparameters with a format of 1-4 ¬alphanumeric or national ($,#,@) characters. )END ./ ADD NAME=PRINTIT6 )ATTR /********************************************************************** /* PANEL: PRINTIT6 * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the CKPTLINE field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,4) ¬The CKPTLINE parameter specifies the maximum lines in a logical ¬page. (JES3 support is limited to 3800 Printing Subsystem ¬Models 3,6, and 8.) Valid values are any number between 0 and ¬32767. )END ./ ADD NAME=PRINTIT7 )ATTR /********************************************************************** /* PANEL: PRINTIT7 * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the CKPTPAGE field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,4) ¬The CKPTPAGE parameter specifies the number of logical pages to ¬be printed or transmitted before JES takes a checkpoint. (JES3 ¬support is limted to 3800 Printing Subsystem Models 3, 6, and ¬8.) Valid values are any number between 1 and 32767. )END ./ ADD NAME=PRINTIT8 )ATTR /********************************************************************** /* PANEL: PRINTIT8 * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the CKPTSEC field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,4) ¬The CKPTSEC parameter specifies how many seconds of printing are ¬to elapse between each checkpint of this sysout data set. (JES3 ¬support is limted to 3800 Printing Subsystem Models 3, 6, and ¬8.) Valid values are any number between 1 and 32767. )END ./ ADD NAME=PRINTIT9 )ATTR /********************************************************************** /* PANEL: PRINTIT9 * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "PRINTIT" and "$PRINTIT" * /* CLIST/EDIT-MACRO system for printing datasets. It is the* /* "more information" pop-up panel for the CLASS field * /* on the PRINTIT2 screen. * /********************************************************************** ¬ TYPE(TEXT) COLOR(PINK) INTENS(LOW) SKIP(ON) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(65,4) ¬The CLASS parameter assigns the sysout data set to an output ¬class. Valid values are A - Z, 0 - 9 and "*". "*" indicates ¬that the sysout data set will be assigned to the same output ¬class as the MSGCLASS parameter on the JOB statement. )END ./ ADD NAME=PRNTCMDS )ATTR /********************************************************************** /* PANEL: PRNTCMDS * /* AUTHOR: DAVID LEIGH * /* FUNCTION: THIS IS A POP-UP TABLE DISPLAY OF VALID COMMANDS FOR THE * /* PRINTIT UTILITY. * /********************************************************************** _ TYPE(INPUT) INTENS(NON) @ TYPE(OUTPUT) INTENS(HIGH) ¬ TYPE(OUTPUT) INTENS(LOW) )BODY WINDOW(70,14) @ZWINTTL _ZCMD )MODEL @PTCMD ¬PTCMDDES % )END ./ ADD NAME=PROBCMDS )ATTR /********************************************************************** /* PANEL: PROBCMDS * /* AUTHOR: DAVID LEIGH * /* FUNCTION: THIS IS A POP-UP TABLE DISPLAY OF VALID COMMANDS FOR THE * /* UNISTAR PROBLEM LOG FACILITY * /********************************************************************** _ TYPE(INPUT) INTENS(NON) CAPS(ON) @ TYPE(OUTPUT) INTENS(HIGH) . TYPE(OUTPUT) INTENS(LOW) /* )BODY WINDOW(70,14) )BODY @ZWINTTL _ZCMD )MODEL @PLCMD .PLCMDDES % )END ./ ADD NAME=PROBLOG )ATTR /********************************************************************** /* Panel: PROBLOG * /* Author: David Leigh * /* Function: This panel works with the PROBLOG ISPF dialog. It is the* /* primary table display panel. * /********************************************************************** . TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(WHITE) # TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(GREEN) . TYPE(TEXT) INTENS(LOW) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD('_') COLOR(WHITE) ~ TYPE(INPUT) INTENS(HIGH) CAPS(OFF) JUST(LEFT) PAD(' ') COLOR(WHITE) * TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(' ') COLOR(RED) ` TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) ! TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(RED) @ TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(TURQ) )BODY LMSG(LONGMSG) EXPAND({{) .{-{ UNISTAR Problem Log {-{ +Command ==>~ZCMD +Scroll ==>*Z + %?.on the command line or next to a row to see valid commands `LONGMSG # System Abend/ SQL Reason # Prob Nbr Date Time Job Name Pgm Name /User Rtn Code Code Code # -------- -------- -------- -------- -------- ------ -------- ---- -------- )MODEL ROWS(&SCANALL) _Z`PROBLEM `PLDATE `PLTIME `JOBNAME `PROGRAM `Z `Z `Z `REASONCD )INIT &ZCMD = ' ' &ZSEL = ' ' .ZVARS = '(ZSCML ZSEL ABNDTYPE RETURNCD SQLCODE)' )PROC VPUT (ZSEL) SHARED VPUT (ZSCML) PROFILE )END ./ ADD NAME=PROBLOGB )ATTR /********************************************************************** /* Panel: PROBLOGB * /* Author: David Leigh * /* Function: This panel is the browse panel for the PROBLOG utility. * /* It shows the contents of the current row and the text * /* file associated with it. * /********************************************************************** | TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) PAD(' ') SKIP(ON) @ TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) . TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) PAD(' ') CAPS(ON) * TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) PAD(NULLS) CAPS(OFF) } TYPE(TEXT) INTENS(NON) )BODY WIDTH(&ZWIDTH) EXPAND({{) }this line is darkened since the browse service insists on putting a DSN here %{-{ UNISTAR Problem Log Facility {-{ %COMMAND ==>_ZCMD %SCROLL ==>_Z + % + |Problem Log Number:@PROBLEM |Logged On:@PLDATE |At:@PLTIME |Description:@PLDESC |Return/Abend Code:@Z |System/User:@Z|SQLCode:@SQLCODE|Reason Code:@REASONCD |Job:@JOBNAME |Step:@JOBSTEP @PROCSTEP|PROC:@PROCNAME|Program:@PROGRAM |Responsible Person:@PROGRAMR|Last Update On:@LUDATE |At:@LUTIME |By:@LUID + )INIT &ZCMD = '&Z' .ZVARS = '(ZSCBR RETURNCD ABNDTYPE)' &MIXED = MIX /* SET FORMAT MIX */ IF (&ZPDMIX = N) /* IF EBCDIC MODE REQUESTED */ &MIXED = EBCDIC /* SET FORMAT EBCDIC */ )PROC VPUT (ZSCBR) PROFILE )END ./ ADD NAME=PROBLOGE )ATTR /********************************************************************** /* Panel: PROBLOGB * /* Author: David Leigh * /* Function: This panel is the browse panel for the PROBLOG utility. * /* It shows the contents of the current row and the text * /* file associated with it. * /********************************************************************** ` TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) PAD(' ') SKIP(ON) @ TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) . TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) PAD(' ') CAPS(ON) * TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) PAD(NULLS) CAPS(OFF) _ TYPE(INPUT) CAPS(OFF) INTENS(HIGH) FORMAT(&MIXED) | AREA(DYNAMIC) EXTEND(ON) SCROLL(ON) USERMOD(20) ! TYPE(OUTPUT) INTENS(HIGH) PAD(-) . TYPE(OUTPUT) INTENS(LOW) COLOR(GREEN) + TYPE(TEXT) INTENS(LOW) SKIP(ON) › TYPE(OUTPUT) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) 01 TYPE(DATAOUT) INTENS(LOW) 02 TYPE(DATAOUT) INTENS(HIGH) 03 TYPE(DATAOUT) SKIP(ON) /* FOR TEXT ENTER CMD. FIELD */ 04 TYPE(DATAIN) INTENS(LOW) CAPS(OFF) 05 TYPE(DATAIN) INTENS(HIGH) CAPS(OFF) 06 TYPE(DATAIN) INTENS(LOW) CAPS(IN) 07 TYPE(DATAIN) INTENS(HIGH) CAPS(IN) 08 TYPE(DATAIN) INTENS(LOW) FORMAT(DBCS) 09 TYPE(DATAIN) INTENS(LOW) FORMAT(EBCDIC) 0A TYPE(DATAIN) INTENS(LOW) FORMAT(&MIXED) 20 TYPE(DATAIN) INTENS(LOW) CAPS(IN) FORMAT(&MIXED) )BODY WIDTH(&ZWIDTH) EXPAND({{) }this line is darkened since the browse service insists on putting a DSN here %{-{ UNISTAR Problem Log Facility {-{ %COMMAND ==>_ZCMD %SCROLL ==>_Z + % + `Problem Log Number:@PROBLEM `Logged On:@PLDATE `At:@PLTIME `Description:@PLDESC `Return/Abend Code:@Z `System/User:@Z`SQLCode:@SQLCODE`Reason Code:@REASONCD `Job:@JOBNAME `Step:@JOBSTEP @PROCSTEP`PROC:@PROCNAME`Program:@PROGRAM `Responsible Person:@PROGRAMR`Last Update On:@LUDATE `At:@LUTIME `By:@LUID + |ZDATA -------------------------------/-/--------------------------------------| | / / | | ------------------------------------/-/--------------------------------------| )INIT &ZCMD = '&Z' .ZVARS = '(ZSCED RETURNCD ABNDTYPE)' &UTHPANEL = HELPSHEL &MIXED = MIX /* SET FORMAT MIX */ IF (&ZPDMIX = N) /* IF EBCDIC MODE REQUESTED */ &MIXED = EBCDIC /* SET FORMAT EBCDIC */ )REINIT REFRESH(ZCMD,ZSCED,ZDATA,ZCL,ZCR) )PROC &ZCURSOR = .CURSOR &ZCSROFF = .CSRPOS &ZLVLINE = LVLINE(ZDATA) &CNAME = .CURSOR VPUT (ZSCED) PROFILE )END ./ ADD NAME=P84MEML )ATTR DEFAULT(%+_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) . TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) PAD(_) . TYPE(INPUT) INTENS(HIGH) CAPS(OFF) )BODY EXPAND(\\) +-\-\-›MEMLIST Prompt+-\-\- %OPTION ===>.ZCMD + + +Choose%one+of the following member specifications: +% +Combination %===>_CMEM1 + Range substring (or 6 for all) + %===>_CMEM2 + Pattern substring (optional) + +%OR+member/group list or short hand requests TODAY, 6 (for all member) +(_GROUP +) + +%OR+Pattern %===>_PMEM1 + imbedded substring 1 + %===>_PMEM2 + imbedded substring 2 (optional) + +%OR+Range of Members %===>_RMEM1 + From substring + %===>_RMEM2 + Through substring (optional) + +Modify the following%YES/NO+options if desired: + Prompting %===>_PROM+ + (Yes, prompt for filtering operands) + RESET Member list %===>_RSET+ + (Yes, reinitialize; No, merge members) )INIT &DLKD = &PDSLKDT IF (&DLKD=&Z) &DLKD='NO' .HELP = P84OPHH .CURSOR = CMEM1 &MEMS = &Z &LKDT = &DLKD VGET (RSET PROM) PROFILE IF (&RSET = &Z) &RSET = 'NO' IF (&PROM = &Z) &PROM = 'NO' &ZCMD = &Z )PROC VPUT (RSET PROM) PROFILE &PROM = TRANS(TRUNC(&PROM,1),Y,YES,N,NO,*,*) &RSET = TRANS(TRUNC(&RSET,1),Y,YES,N,NO,*,*) VER(&PROM,NB,LIST,YES,NO) VER(&RSET,NB,LIST,YES,NO) &PDSLKDT=&DLKD &ADDON=&Z VER(&RMEM1,NAME) VER(&RMEM2,NAME) IF (&CMEM1 ¬= &Z) IF (&CMEM1 = '6') &MEMS = ':' &CMEM1=&Z VER(&CMEM1,NAME) IF (&CMEM1 ¬= &Z) &MEMS = '&CMEM1*&CMEM2' IF (&MEMS = &Z) /* NO MEMBER NAME SO FAR*/ IF (&GROUP = '6') &MEMS = ':' &GROUP=&Z IF (&GROUP = 'TODAY') &MEMS = ':' &ADDON='TODAY' IF (&MEMS = &Z) /* NO MEMBER NAME SO FAR*/ IF (&GROUP ¬= &Z) &MEMS='(&GROUP)' IF (&MEMS = &Z) /* NO MEMBER NAME SO FAR*/ &MEMS = '&PMEM1/&PMEM2' IF (&MEMS = '/') &MEMS = &Z IF (&MEMS = &Z) /* NO MEMBER NAME SO FAR*/ &MEMS = '&RMEM1:&RMEM2' IF (&MEMS = ':') &MEMS = &Z IF (&MEMS = &Z) &MEMS = '*' IF (&RSET= 'YES') &ADDON='&ADDON RESET' IF (&PROM = 'NO') &PDSZSEL ='MEMLIST &MEMS &ADDON' IF (&PROM = 'YES') &OPERS = '&MEMS &ADDON' &PDSZSEL ='?' &ZCMD = &Z )END ./ ADD NAME=RCVDBPOP )ATTR + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(TURQ) ¬ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) JUST(RIGHT) ~ TYPE(OUTPUT) INTENS(HIGH) COLOR(PINK) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) ³ TYPE(INPUT) INTENS(NON) COLOR(YELLOW) )BODY WINDOW(35,19) CMD(ZCMD) LMSG(LMSGFLD) ~LMSGFLD +Sel Database³Z+ )MODEL ROWS(ALL) _Z+ ¬POPFIELD )INIT &ZWINTTL = 'Select A Database' .ZVARS = '(ZCMD SEL)' &SEL = &Z .CURSOR = SEL )REINIT &ZTDSELS = 0 .CURSOR = SEL )PROC &ZEDLMSG = 'Use "S" To Select' VER (&SEL,LIST,'S','s',MSG=UTLZ001W) )END ./ ADD NAME=RCVDBPO2 )ATTR + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(TURQ) ¬ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) JUST(RIGHT) ~ TYPE(OUTPUT) INTENS(HIGH) COLOR(PINK) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) ³ TYPE(INPUT) INTENS(NON) COLOR(YELLOW) )BODY WINDOW(49,19) CMD(ZCMD) LMSG(LMSGFLD) ~LMSGFLD +Sel Timestamp Tablspce Q/IC³Z+ )MODEL ROWS(ALL) _Z+ ¬POPFIELD )INIT &ZWINTTL = 'Select A Recovery Point' .ZVARS = '(ZCMD SEL)' &SEL = &Z .CURSOR = SEL )REINIT &ZTDSELS = 0 .CURSOR = SEL )PROC &ZEDLMSG = 'Use "S" To Select' VER (&SEL,LIST,'S','s',MSG=UTLZ001W) )END ./ ADD NAME=RECOVERY )ATTR /********************************************************************** /* PANEL: RECOVERY * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "RECOVERY" utility and allows * /* the user to select a "database area" to process and a * /* date/time stamp to process up to. * /********************************************************************** + TYPE(TEXT) COLOR(BLUE) SKIP(ON) % TYPE(TEXT) COLOR(WHITE) SKIP(ON) ¬ TYPE(TEXT) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) COLOR(YELLOW) SKIP(ON) ` TYPE(TEXT) COLOR(GREEN) SKIP(ON) ~ TYPE(TEXT) COLOR(PINK) SKIP(ON) _ TYPE(INPUT) COLOR(RED) CAPS(ON) $ TYPE(INPUT) COLOR(YELLOW) CAPS(ON) INTENS(HIGH) › TYPE(OUTPUT) COLOR(WHITE) SKIP(ON) | TYPE(OUTPUT) COLOR(GREEN) SKIP(ON) CAPS(OFF) )BODY EXPAND({{) %{-{ DB2 RECOVERY JCL Building Utility {-{ %COMMAND ==>_ZCMD %SCROLL ==_Z + % +Review Created JCL ==>$Z¬(Y/N) (i.e. the job to create recovery jcl) ¬Enter a Timestamp to recover to below: +Recovery Timestamp ==>$Z ¬-$Z ¬-$Z ¬-$Z ¬.$Z ¬.$Z ¬.$Z ¬ ~ 1995- 01- 01- 00- 00- 00- 000000- <==Valid Ranges ~ 9999 12 31 23 59 59 999999 ¬Select a "Database Area" to create recovery JCL for: )MODEL _Z¬›JCLMBR |JCLDESC )INIT .ZVARS = '(ZSCML JCLREVEW TSYYYY TSMM TSDD TSHH TSMN TSSS TSMLSS ZSEL)' .CURSOR = TSYYYY &ZCMD = &Z )PROC VPUT (JCLREVEW TSYYYY TSMM TSDD TSHH TSMN TSSS TSMLSS) SHARED VER (&JCLREVEW NB LIST Y N) VER (&TSYYYY NB RANGE 1995 9999) VER (&TSMM NB RANGE 01 12) VER (&TSDD NB RANGE 01 31) VER (&TSHH NB RANGE 00 23) VER (&TSMN NB RANGE 00 59) VER (&TSSS NB RANGE 00 59) VER (&TSMLSS NB RANGE 000000 999999) VER (&ZSEL LIST S) )END ./ ADD NAME=RECOVRDB )ATTR DEFAULT(@+_) /********************************************************************** /* PANEL: RECOVRDB * /* AUTHOR: DAVID LEIGH * /* FUNCTION: This panel is part of the "RECOVRDB" utility and allows * /* the user to select a source and target database for * /* creating recovery jcl to recover a database to a point * /* in time. * /********************************************************************** + TYPE(TEXT) COLOR(BLUE) SKIP(ON) @ TYPE(TEXT) COLOR(WHITE) SKIP(ON) ¬ TYPE(TEXT) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) COLOR(YELLOW) SKIP(ON) ` TYPE(TEXT) COLOR(GREEN) SKIP(ON) ~ TYPE(TEXT) COLOR(PINK) SKIP(ON) _ TYPE(INPUT) COLOR(RED) CAPS(ON) $ TYPE(INPUT) COLOR(YELLOW) CAPS(ON) INTENS(HIGH) › TYPE(OUTPUT) COLOR(WHITE) SKIP(ON) | TYPE(OUTPUT) COLOR(GREEN) SKIP(ON) CAPS(OFF) )BODY EXPAND({{) @{-{ DB2 "RECOVER TABLESPACE" Build Utility {-{ @COMMAND ==>_ZCMD @SCROLL ==>_Z + @ `DB2 Subsystem ==>$Z ¬ ("DSNT", "DSNP" or "DSNS") `DB2 Database Name ==>$SDBNAME ¬(Use "%" or partial name w/"%" for a list) `Tablespace Name(s) ==>$STSNAME ¬("%" for all or partial name w/"%" for subset) @ ¬Enter a timestamp as a point of recovery: @ @Note: Enter a date range for which to display a list of valid recovery points @ (Quiesces, Full Image Copies) from SYSIBM.SYSCOPY. Then select one of @ the timestamps from the list. @ ` From Date ==>$Z ¬-$Z ¬-$Z ¬(YYYY-MM-DD format) ` To Date ==>$Z ¬-$Z ¬-$Z ¬ `Selected Timestamp›XTMESTMP @ +Create JCL Now ==>$Z¬(Y/N) +Review Created JCL ==>$Z¬(Y/N) (i.e. the job to create RECOVERY JCL) )INIT .ZVARS = '(ZSCML SSSID + FTSYYYY FTSMM FTSDD + TTSYYYY TTSMM TTSDD + CREATJCL JCLREVEW)' &CREATJCL = 'N' IF (&JCLREVEW = &Z) &JCLREVEW = 'N' IF (&SSSID = &Z) &SSSID = 'DSNP' IF (&SDBNAME = &Z) &SDBNAME = '%' IF (&STSNAME = &Z) &STSNAME = '%' .CURSOR = SSSID &ZCMD = &Z )PROC VER (&SSSID NB LIST DSNT DSNP DSNS) VER (&SDBNAME NB) VER (&STSNAME NB) VER (&JCLREVEW NB LIST Y N) VER (&FTSYYYY RANGE 0001 9999) VER (&FTSMM RANGE 01 12) VER (&FTSDD RANGE 01 31) VER (&FTSYYYY RANGE 0001 9999) VER (&FTSMM RANGE 01 12) VER (&FTSDD RANGE 01 31) VPUT (ZSCML SSSID SDBNAME STSNAME JCLREVEW) SHARED VPUT (FTSYYYY FTSMM FTSDD) SHARED VPUT (TTSYYYY TTSMM TTSDD) SHARED )END ./ ADD NAME=SCHDCMDS )ATTR /********************************************************************** /* PANEL: SCHDCMDS * /* AUTHOR: DAVID LEIGH * /* FUNCTION: THIS IS A POP-UP TABLE DISPLAY OF VALID COMMANDS FOR THE * /* SCHEDULE UTILITY. * /********************************************************************** _ TYPE(INPUT) INTENS(NON) @ TYPE(OUTPUT) INTENS(HIGH) . TYPE(OUTPUT) INTENS(LOW) /* )BODY WINDOW(70,14) )BODY @ZWINTTL _ZCMD )MODEL @SCCMD .SCCMDDES % )END ./ ADD NAME=SCHEDULE )ATTR /********************************************************************** /* Panel: SCHEDULE * /* Author: David Leigh * /* Function: Primary table display panel of the SCHEDULE table. It * /* is used with the SCHEDULE CLIST to assist the Schedule * /* Administrator in his/her daily schedule preparation * /* duties. * /* Maintenance Notes: As the number of "valid databases" increases, * /* more blank lines may need to be added after the * /* "Valid Databases:" line below in order to * /* display all the valid databases on the panel. * /********************************************************************** › TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) SKIP(ON) COLOR(RED) HILITE(USCORE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(OFF) ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) PAD('_') . TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) . TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) )BODY EXPAND({{) %{-{ Schedule Administration {-{ %COMMAND ==>_ZCMD %SCROLL ==>_Z + % +Type\?+on the command line or on any line to display a list of valid commands. % +Rundate Used: ~DATE08 +(YYYY/MM/DD Format Date) +Valid Databases: .VALIDDBS % +Special Notes: ›SPECNOTE % \ Variable Variable Applicable \Select Name Value Edit Type Database \------ ------------ --------------------------------- --------- ---------- )MODEL ROWS(ALL) ~Z+ .VARIABLE +.VALUE +.EDITTYPE +.DATABASE+ )INIT .HELP = HELPSC01 .ZVARS = '(ZSCML ZSEL)' &ZCMD = &Z &ZSEL = &Z IF (&ERRROW > &Z) .CSRROW = &ERRROW .CURSOR = VALUE )PROC IF (&ZTDSELS ¬= '0000') &ERRROW = .CSRROW VER(&DATE08 NB) VER(&VARIABLE NB MSG=SCHD000C) VER(&VALUE NB MSG=SCHD000D) VER(&DATABASE NB LIST &VDB1 &VDB2 &VDB3 &VDB4 &VDB5 &VDB6 &VDB7 &VDB8 &VDB9 &VDB10 &VDB11 &VDB12 &VDB13 &VDB14 &VDB15 &VDB16 &VDB17 &VDB18 &VDB19 &VDB20 &VDB21 &VDB22 &VDB23 &VDB24 &VDB25 &VDB26 &VDB27 &VDB28 &VDB29 &VDB30 &VDB31 &VDB32 &VDB33 &VDB34 &VDB35 &VDB36 &VDB37 &VDB38 &VDB39 &VDB40 &VDB41 &VDB42 &VDB43 &VDB44 &VDB45 &VDB46 &VDB47 &VDB48 &VDB49 &VDB50 &VDB51 &VDB52 &VDB53 &VDB54 &VDB55 &VDB56 &VDB57 &VDB58 &VDB59 &VDB60 &VDB61 &VDB62 &VDB63 &VDB64 &VDB65 &VDB66 &VDB67 &VDB68 &VDB69 &VDB70 &VDB71 &VDB72 &VDB73 &VDB74 &VDB75 &VDB76 &VDB77 &VDB78 &VDB79 &VDB80 &VDB81 &VDB82 &VDB83 &VDB84 &VDB85 &VDB86 &VDB87 &VDB88 &VDB89 &VDB90 &VDB91 &VDB92 &VDB93 &VDB94 &VDB95 &VDB96 &VDB97 &VDB98 &VDB99 &VDB100 MSG=SCHD000B) VPUT (ZSCML) PROFILE )END ./ ADD NAME=SHOWLOG )ATTR /********************************************************************** /* Panel: SHOWLOG * /* Author: David Leigh * /* Function: This panel works with the SHOWLOG Clist which displays * /* the utility log file in an ISPF table for manipulation. * /********************************************************************** › TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(WHITE) # TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) | TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(PINK) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD('_') COLOR(WHITE) ~ TYPE(INPUT) INTENS(HIGH) CAPS(OFF) JUST(LEFT) PAD(' ') COLOR(WHITE) * TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(' ') COLOR(RED) ` TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) ! TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(RED) @ TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(TURQ) )BODY EXPAND({{) ›{={ UNIPAC Utility Log {={ +Command ==>~ZCMD +Scroll ==>*Z + % %?|on the command line or next to a row to see valid commands % +Enter row inclusion conditions%(EQ,GT,LT,LE,GE,NE)+and values below%(AND logic) % _Z _DATESCAN_Z _TIMESCAN_Z _UTILSCAN_Z _NAMESCAN + % _Z_Z+ _Z_Z+ _Z_Z+ _Z_Z+<===Sort Order and Direction +Sel Date Time Utility Name%(of utility user) +=== ======== ======== ======== ==================================== )MODEL ROWS(&SCANALL) _Z+ `DATE `TIME `UTILITY `NAME )INIT &ZCMD = &Z .ZVARS = '(ZSCML DATECOND TIMECOND UTILCOND NAMECOND + DATESORT DATEDIR TIMESORT TIMEDIR + UTILSORT UTILDIR NAMESORT NAMEDIR ZSEL)' .CURSOR = ZCMD &ZSEL = &Z )PROC VPUT (ZSCML) PROFILE VER (&DATECOND LIST EQ GT LT GE LE NE MSG=SHLM000A) VER (&TIMECOND LIST EQ GT LT GE LE NE MSG=SHLM000B) VER (&UTILCOND LIST EQ GT LT GE LE NE MSG=SHLM000C) VER (&NAMECOND LIST EQ GT LT GE LE NE MSG=SHLM000D) VER (&DATESORT NB LIST 1 2 3 4 MSG=SHLM000E) VER (&DATEDIR NB LIST A D MSG=SHLM000F) VER (&TIMESORT NB LIST 1 2 3 4 MSG=SHLM000G) VER (&TIMEDIR NB LIST A D MSG=SHLM000H) VER (&UTILSORT NB LIST 1 2 3 4 MSG=SHLM000I) VER (&UTILDIR NB LIST A D MSG=SHLM000J) VER (&NAMESORT NB LIST 1 2 3 4 MSG=SHLM000K) VER (&NAMEDIR NB LIST A D MSG=SHLM000L) IF (&DATESORT = '1') VER (&TIMESORT LIST 2 3 4 MSG=SHLM000M) VER (&UTILSORT LIST 2 3 4 MSG=SHLM000M) VER (&NAMESORT LIST 2 3 4 MSG=SHLM000M) IF (&DATESORT = '2') VER (&TIMESORT LIST 1 3 4 MSG=SHLM000M) VER (&UTILSORT LIST 1 3 4 MSG=SHLM000M) VER (&NAMESORT LIST 1 3 4 MSG=SHLM000M) IF (&DATESORT = '3') VER (&TIMESORT LIST 1 2 4 MSG=SHLM000M) VER (&UTILSORT LIST 1 2 4 MSG=SHLM000M) VER (&NAMESORT LIST 1 2 4 MSG=SHLM000M) IF (&DATESORT = '4') VER (&TIMESORT LIST 1 2 3 MSG=SHLM000M) VER (&UTILSORT LIST 1 2 3 MSG=SHLM000M) VER (&NAMESORT LIST 1 2 3 MSG=SHLM000M) IF (&TIMESORT = '1') VER (&UTILSORT LIST 2 3 4 MSG=SHLM000M) VER (&NAMESORT LIST 2 3 4 MSG=SHLM000M) IF (&TIMESORT = '2') VER (&UTILSORT LIST 1 3 4 MSG=SHLM000M) VER (&NAMESORT LIST 1 3 4 MSG=SHLM000M) IF (&TIMESORT = '3') VER (&UTILSORT LIST 1 2 4 MSG=SHLM000M) VER (&NAMESORT LIST 1 2 4 MSG=SHLM000M) IF (&TIMESORT = '4') VER (&UTILSORT LIST 1 2 3 MSG=SHLM000M) VER (&NAMESORT LIST 1 2 3 MSG=SHLM000M) IF (&UTILSORT = '1') VER (&NAMESORT LIST 2 3 4 MSG=SHLM000M) IF (&UTILSORT = '2') VER (&NAMESORT LIST 1 3 4 MSG=SHLM000M) IF (&UTILSORT = '3') VER (&NAMESORT LIST 1 2 4 MSG=SHLM000M) IF (&UTILSORT = '4') VER (&NAMESORT LIST 1 2 3 MSG=SHLM000M) )END ./ ADD NAME=SIGNIN )ATTR DEFAULT(\+#) /********************************************************************** /* Panel: modeladd * /* Author: David Utley * /* Function: Functions with signin clist to sign in a model or * /* template in ENDEVOR and in the DB2 tables. * /********************************************************************** ~ TYPE(TEXT) INTENS(HIGH) COLOR(GREEN) CAPS(IN) ` TYPE(INPUT) INTENS(HIGH) COLOR(PINK) CAPS(IN) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) . TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) @ TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) SKIP(ON) ! TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) )BODY EXPAND({{) \{-{ MTEXT model/template SIGNIN {-{ \COMMAND ==>#ZCMD . . @ Model \==>`Z \<== @Template\==>`Z \<== . @ Requestor's TSO userid\==>`Z \<== . @ Sign-in to userid\==>`Z \<== . @ Model/Template stage\==>`Z\(D|T|P) . . ~MODEL or TEMPLATE will be signed-in in ENDEVOR and in the ~DB2 tables. . . . ! Generate JCL Now\==>`Z\(Y|N) !Review JCL Prior to Submit\==>`Z\(Y|N) . . \ &PFK.to quit\ENTER.and\GENERATE=Y.to process your request )INIT &ZCMD = &Z .ZVARS = '(MODEL TEMPLATE RQSTR SIGNINID STAGE GENERATE JCLREVEW)' IF (&GENERATE = &Z) &GENERATE = 'N' IF (&JCLREVEW = &Z) &JCLREVEW = 'N' &PFK = PFK(END) IF (&PFK = &Z) &PFK = 'END' )PROC &PASSED = 'N' /********************************************************************** /* Check for model code entry. - MODEL * /********************************************************************** IF (&TEMPLATE = &Z) IF (&MODEL = &Z) &ZEDSMSG = 'Model/Template Required' &ZEDLMSG = 'A Model or Template Code is always required' .MSG = UTLZ001W .CURSOR = MODEL ELSE &PROCGRP = 'MODEL' ELSE IF (&TEMPLATE = &Z) &PROCGRP = 'TEMPLATE' ELSE &ZEDSMSG = 'Enter Model OR Template' &ZEDLMSG = 'Enter Model or Template but not both' .MSG = UTLZ001W .CURSOR = MODEL IF (&RQSTR = &Z) &ZEDSMSG = 'Requestor ID required' &ZEDLMSG = 'The Requestor''s ID is required' .MSG = UTLZ001W .CURSOR = RQSTR ELSE IF (&SIGNINID = &Z) &ZEDSMSG = 'Sign-in ID required' &ZEDLMSG = 'The Sign-in ID is required' .MSG = UTLZ001W .CURSOR = SIGNINID ELSE IF (&STAGE ¬= 'D','T','P') &ZEDSMSG = 'Sign-in stage invalid' &ZEDLMSG = 'Sign-in stage must be "D" for DEVL, "T" for + TEST "P" for PROD' .MSG = UTLZ001W .CURSOR = STAGE ELSE IF (&JCLREVEW ¬= 'Y','N') &ZEDSMSG = 'Must be "Y" or "N"' &ZEDLMSG = '"REVIEW JCL" Must be "Y" for YES or "N" + for NO' .MSG = UTLZ001W .CURSOR = JCLREVEW ELSE &PASSED = 'Y' )END ./ ADD NAME=SIGNOUT )ATTR /********************************************************************** /* Panel: SIGNOUT * /* Author: David Leigh * /* Function: This panel provides the input into the SIGNOUT utility. * /********************************************************************** + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) ~ TYPE(INPUT) INTENS(HIGH) PAD('_') | TYPE(INPUT) INTENS(HIGH) PAD('0') JUST(RIGHT) )BODY EXPAND({{) %{-{ SIGNOUT Utility {-{ %COMMAND ==>_ZCMD + % +Enter the data desired to qualify the report: + Field Compare Sort ************************************ + Value Operator Order * If you enter a full or partial * +Member Name %==>~MEMBER % ==>~Z %==>|Z+ * field value, you must enter a * +Element Type %==>~ELEMENT %==>~Z %==>|Z+ * compare operator of%EQ, GT, LT,+ * +Programmer ID%==>~PGMID % ==>~Z %==>|Z+ *%GE, LE,+or%NE+for%SYNCSORT+to use* +PR Number %==>~PRNBR % ==>~Z %==>|Z+ * in%INCLUDE+processing. You may * +LOG Date %==>|Z |Z |Z % ==>~Z %==>|Z+ * also want to enter a number in * +RFP Date %==>|Z |Z |Z % ==>~Z %==>|Z+ * one or more of the%SORT ORDER+ * +PRD Date %==>|Z |Z |Z % ==>~Z %==>|Z+ * fields to indicate a sort order * + * of the report other than the * +Send report output to a file%==>~Z+(Y/N) * default of Element Type, Member. * + ************************************ +The above dates must be in%YY MM DD+format. The valid element types are: %ASSEMBLER, COBOL, JCL, MAP, USER, COPYBOOK, DATA, MAILER, STATEMENT, PROC+and %PARM.+ Like all the above values, any of them may be blank as well. %AND+logic will be used if more than one field contains a value for%SYNCSORT+to use in its%INCLUDE+processing. + +Press%ENTER+to process the report or%END+to cancel )INIT &ZCMD = ' ' &FILE = 'N' .ZVARS = '(MEMOPER MEMSORT ELEOPER ELESORT PGMOPER PGMSORT PROPER + PRSORT LOGYY LOGMM LOGDD LOGOPER LOGSORT + RFPYY RFPMM RFPDD RFPOPER RFPSORT + PRDYY PRDMM PRDDD PRDOPER PRDSORT FILE)' )PROC &ZEDLMSG = '*** SORT ORDER NUMBERS CANNOT BE DUPLICATED ***' IF (&MEMBER > &Z) IF (&MEMOPER = &Z) &MEMOPER = 'EQ' ELSE VER (&MEMOPER NONBLANK LIST EQ LT GT LE GE NE) VER (&MEMSORT RANGE 0 7) IF (&ELEMENT > &Z) VER (&ELEMENT LIST ASSEMBLER COBOL JCL MAP USER COPYBOOK + DATA MAILER STATEMENT PROC PARM) IF (&ELEOPER = &Z) &ELEOPER = 'EQ' ELSE VER (&ELEOPER NONBLANK LIST EQ LT GT LE GE NE) &ELECODE = TRANS (&ELEMENT 'ASSEMBLER','A' 'COBOL ','C' 'JCL ','J' 'MAP ','M' 'USER ','U' 'COPYBOOK ','Y' 'DATA ','D' 'MAILER ','L' 'STATEMENT','S' 'PROC ','P' 'PARM ','R') IF (&ELESORT > 0) IF (&ELESORT = &MEMSORT) VER (&ELESORT NONBLANK LIST 0 MSG=UTLZ001W) VER (&ELESORT RANGE 0 7) IF (&PGMID > &Z) IF (&PGMOPER = &Z) &PGMOPER = 'EQ' ELSE VER (&PGMOPER NONBLANK LIST EQ LT GT LE GE NE) IF (&PGMSORT > 0) IF (&PGMSORT = &MEMSORT) VER (&PGMSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&PGMSORT = &ELESORT) VER (&PGMSORT NONBLANK LIST 0 MSG=UTLZ001W) VER (&PGMSORT RANGE 0 7) IF (&PRNBR > &Z) IF (&PROPER = &Z) &PROPER = 'EQ' ELSE VER (&PROPER NONBLANK LIST EQ LT GT LE GE NE) IF (&PRSORT > 0) IF (&PRSORT = &MEMSORT) VER (&PRSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&PRSORT = &ELESORT) VER (&PRSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&PRSORT = &PGMSORT) VER (&PRSORT NONBLANK LIST 0 MSG=UTLZ001W) VER (&PRSORT RANGE 0 7) IF (&LOGYY > &Z) VER (&LOGYY NUM) IF (&LOGOPER = &Z) &LOGOPER = 'EQ' ELSE VER (&LOGOPER NONBLANK LIST EQ LT GT LE GE NE) IF (&LOGMM > &Z) VER (&LOGMM NUM) IF (&LOGOPER = &Z) &LOGOPER = 'EQ' ELSE VER (&LOGOPER NONBLANK LIST EQ LT GT LE GE NE) IF (&LOGDD > &Z) VER (&LOGDD NUM) IF (&LOGOPER = &Z) &LOGOPER = 'EQ' ELSE VER (&LOGOPER NONBLANK LIST EQ LT GT LE GE NE) IF (&LOGSORT > 0) IF (&LOGSORT = &MEMSORT) VER (&LOGSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&LOGSORT = &ELESORT) VER (&LOGSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&LOGSORT = &PGMSORT) VER (&LOGSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&LOGSORT = &PRSORT) VER (&LOGSORT NONBLANK LIST 0 MSG=UTLZ001W) VER (&LOGSORT RANGE 0 7) IF (&RFPYY > &Z) VER (&RFPYY NUM) IF (&RFPOPER = &Z) &RFPOPER = 'EQ' ELSE VER (&RFPOPER NONBLANK LIST EQ LT GT LE GE NE) IF (&RFPMM > &Z) VER (&RFPMM NUM) IF (&RFPOPER = &Z) &RFPOPER = 'EQ' ELSE VER (&RFPOPER NONBLANK LIST EQ LT GT LE GE NE) IF (&RFPDD > &Z) VER (&RFPDD NUM) IF (&RFPOPER = &Z) &RFPOPER = 'EQ' ELSE VER (&RFPOPER NONBLANK LIST EQ LT GT LE GE NE) IF (&RFPSORT > 0) IF (&RFPSORT = &MEMSORT) VER (&RFPSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&RFPSORT = &ELESORT) VER (&RFPSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&RFPSORT = &PGMSORT) VER (&RFPSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&RFPSORT = &PRSORT) VER (&RFPSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&RFPSORT = &LOGSORT) VER (&RFPSORT NONBLANK LIST 0 MSG=UTLZ001W) VER (&RFPSORT RANGE 0 7) IF (&PRDYY > &Z) VER (&PRDYY NUM) IF (&PRDOPER = &Z) &PRDOPER = 'EQ' ELSE VER (&PRDOPER NONBLANK LIST EQ LT GT LE GE NE) IF (&PRDMM > &Z) VER (&PRDMM NUM) IF (&PRDOPER = &Z) &PRDOPER = 'EQ' ELSE VER (&PRDOPER NONBLANK LIST EQ LT GT LE GE NE) IF (&PRDDD > &Z) VER (&PRDDD NUM) IF (&PRDOPER = &Z) &PRDOPER = 'EQ' ELSE VER (&PRDOPER NONBLANK LIST EQ LT GT LE GE NE) IF (&PRDSORT > 0) IF (&PRDSORT = &MEMSORT) VER (&PRDSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&PRDSORT = &ELESORT) VER (&PRDSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&PRDSORT = &PGMSORT) VER (&PRDSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&PRDSORT = &PRSORT) VER (&PRDSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&PRDSORT = &LOGSORT) VER (&PRDSORT NONBLANK LIST 0 MSG=UTLZ001W) IF (&PRDSORT = &RFPSORT) VER (&PRDSORT NONBLANK LIST 0 MSG=UTLZ001W) VER (&PRDSORT RANGE 0 7) VER (&FILE NONBLANK LIST Y N) VPUT (MEMBER ELECODE PGMID PRNBR) SHARED VPUT (MEMOPER ELEMENT ELEOPER PGMOPER PROPER) SHARED VPUT (LOGOPER LOGYY LOGMM LOGDD) SHARED VPUT (RFPOPER RFPYY RFPMM RFPDD) SHARED VPUT (PRDOPER PRDYY PRDMM PRDDD) SHARED VPUT (MEMSORT ELESORT PGMSORT PRSORT LOGSORT RFPSORT PRDSORT) SHARED )END ./ ADD NAME=SYNCVARS )ATTR DEFAULT(\+#) /********************************************************************** /* Panel: SYNCVARS * /* Author: David Leigh * /* Function: Functions with the SYNCVARS utility to take user input. * /********************************************************************** ~ TYPE(TEXT) INTENS(HIGH) COLOR(GREEN) CAPS(IN) ` TYPE(INPUT) INTENS(HIGH) COLOR(PINK) CAPS(IN) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) @ TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) SKIP(ON) ! TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) )BODY EXPAND({{) WINDOW(65,10) \{-{ Syncronize ISPF Profile Pool Variables Across Profiles {-{ \COMMAND ==>#ZCMD \ @Variable Name\==>`PANELVAR@ ¬ ~ OR ¬ \ (fully qualified, without quotes) @Dataset Name \==>`PANELDSN @ \ \ END¬to quit or\ENTER¬to process your request )INIT &ZCMD = &Z )PROC VER (&PANELVAR,NAME) VER (&PANELDSN,DSNAME) VPUT (PANELVAR PANELDSN) SHARED )END ./ ADD NAME=SYNCVAR2 )ATTR /********************************************************************** /* PANEL: SYNCVAR2 * /* AUTHOR: DAVE LEIGH * /* FUNCTION: THIS PANEL WORKS WITH THE SYNCVARS UTILITY TO TELL THE * /* USER WHICH PROFILE IS BEING PROCESSED. * /********************************************************************** + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) % TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(32,1) +Currently Processing: \MBR )END ./ ADD NAME=TECHCMDS )ATTR /********************************************************************** /* PANEL: TECHCMDS * /* AUTHOR: DAVID LEIGH * /* FUNCTION: THIS IS A POP-UP TABLE DISPLAY OF VALID COMMANDS FOR THE * /* TOOLBOX TECHNOTE SYSTEM. * /********************************************************************** _ TYPE(INPUT) INTENS(NON) CAPS(ON) @ TYPE(OUTPUT) INTENS(HIGH) ¬ TYPE(OUTPUT) INTENS(LOW) )BODY WINDOW(70,14) @ZWINTTL _ZCMD )MODEL @TNCMD ¬TNCMDDES % )END ./ ADD NAME=TECHDOCS )ATTR › TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(WHITE) # TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) | TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(PINK) ³ TYPE(TEXT) INTENS(LOW) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD('_') COLOR(WHITE) ~ TYPE(INPUT) INTENS(HIGH) CAPS(OFF) JUST(LEFT) PAD(' ') COLOR(WHITE) * TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(' ') COLOR(RED) ` TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) ! TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(RED) @ TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(TURQ) )BODY LMSG(LONGMSG) EXPAND({{) ›{-{ UNIPAC Technical Documents {-{ +Command ==>~ZCMD +Scroll ==>*Z + %?|on the command line or next to a row to see valid commands `LONGMSG › Act Tech doc Type Short Description › --- -------- ---- --------------------------------------------------------- )MODEL ROWS(&SCANALL) # _Z³ `TNMBR `Z ³@TNDESC )INIT &ZCMD = ' ' &ZSEL = ' ' .ZVARS = '(ZSCML ZSEL TNGROUP)' )REINIT &ZCMD = ' ' &ZSEL = ' ' )PROC VPUT (ZSEL) SHARED VPUT (ZSCML) PROFILE )END ./ ADD NAME=TECHDTBL )ATTR › TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) \ TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(RED) + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(WHITE) # TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) ~ TYPE(INPUT) INTENS(HIGH) CAPS(OFF) JUST(LEFT) PAD(' ') COLOR(WHITE) @ TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(TURQ) )BODY EXPAND({{) ›{-{ UNIPAC Technical Documents - Table Row Display {-{ +Command ==>~ZCMD + % #Member Name \(TNMBR):@TNMBR % #Document Group \(TNGROUP):@TNGROUP % #Description \(TNDESC):@TNDESC % #Last Update Date\(LUDATE):@LUDATE % #Last Update Time\(LUTIME):@LUTIME % #Last Update ID \(LUID):@LUID % ›END#to return to the previous screen )END ./ ADD NAME=TECHPOP )ATTR › TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(TURQ) # TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) ` TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(RED) | TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(PINK) ³ TYPE(TEXT) INTENS(LOW) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD('_') COLOR(WHITE) ~ TYPE(INPUT) INTENS(HIGH) CAPS(OFF) JUST(LEFT) PAD(' ') COLOR(WHITE) * TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) PAD(' ') COLOR(WHITE) ¬ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) ! TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(RED) @ TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) COLOR(WHITE) )BODY WINDOW(58,3) +Enter Document Type ==>*Z › +Enter Document Description Below: ~TNDESC + )INIT .ZVARS = '(TNGROUP)' VGET GROUPS SHARED &A = TRUNC(&GROUPS,' ') &ZTRAIL = .TRAIL &B = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &C = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &D = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &E = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &F = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &G = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &H = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &I = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &J = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &K = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &L = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &M = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &N = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &O = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &P = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &Q = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &R = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &S = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &T = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL &U = TRUNC(&ZTRAIL,' ') &ZTRAIL = .TRAIL )PROC &ZEDSMSG = &Z &ZEDLMSG = 'Valid types: &GROUPS' VER (&TNGROUP NONBLANK LIST &A &B &C &D &E &F &G &H &I &J &K &L &M + &N &O &P &Q &R &S &T &U MSG=UTLZ001W) VER (&TNDESC,NONBLANK) VPUT (TNGROUP TNDESC) SHARED )END ./ ADD NAME=TOOLBOX )ATTR DEFAULT(%+_) % TYPE(TEXT) INTENS(HIGH) SKIP(ON) + TYPE(TEXT) INTENS(LOW) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY EXPAND({{) %{-{ UNIPAC Programmer's Toolbox {-{ %OPTION ==>_ZCMD + % %Technical Documentation %Utilities % D1.+UNIPAC IS Standards/Procedures % U1.+COBOL Utilities % D2.+Utility Documentation % U2.+CICS Utilities % D3.+IS Technical Library Contents % U3.+JCL Utilities % D4.+UNISTAR Documentation Menu % U4.+DATASET Utilities % D5.+ENDEVOR Documentation % U5.+DB2 Utilities % D6.+DBA Documentation % U6.+UNIPAC Specific Utilities % D7.+DB2 Documentation % U7.+ISPF Utilities % D8.+ % U8.+CSP Utilities % D9.+ % U9.+ADW Utilities %D10.+ %U10.+ %D11.+ %U11.+ %D12.+ %U12.+ %D13.+ %U13.+ %D14.+ %U14.+ %D15.+Misc. Technical Documents %U15.+Miscellaneous Utilities % D.+Show ALL Document Entries % U.+Show ALL Utility Entries + +Type your selection number at the%OPTION+prompt and press%enter.+ )INIT .HELP = HELPSHEL /* insert name of tutorial panel */ )PROC &ZSEL=TRANS(TRUNC(&ZCMD,'.') D,'CMD(%TECHDOCS)' D1,'CMD(%TECHDOCS TYPE(ST*))' D2,'CMD(%TECHDOCS TYPE(UTIL))' D3,'CMD(%TECHDOCS TYPE(LIBR))' D4,'PANEL(USTRDOC)' D5,'CMD(%TECHDOCS TYPE(ENDV))' D6,'CMD(%TECHDOCS TYPE(DBA))' D7,'CMD(%TECHDOCS TYPE(DB2))' D15,'CMD(%TECHDOCS TYPE(MISC))' U,'CMD(%UTILITY)' U1,'CMD(%UTILITY TYPE(COBOL))' U2,'CMD(%UTILITY TYPE(CICS))' U3,'CMD(%UTILITY TYPE(JCL))' U4,'CMD(%UTILITY TYPE(DATASET))' U5,'CMD(%UTILITY TYPE(DB2))' U6,'CMD(%UTILITY TYPE(UNIPAC))' U7,'CMD(%UTILITY TYPE(ISPF))' U8,'CMD(%UTILITY TYPE(CSP))' U9,'CMD(%UTILITY TYPE(ADW))' U15,'CMD(%UTILITY TYPE(MISC))' ' ',' ' *,'?') )END ./ ADD NAME=TRAPDBUG )ATTR ¬ TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) )BODY EXPAND({{) %{-{ TSO Message Trapping Utility {-{ %COMMAND ==>_ZCMD ¬ % ¬&TYPE Name to Execute (or TSO Command) ==>_UTILNAME¬ ¬ ¬Enter Any Data to Pass to the &TYPE Below : ¬ ¬==>_PARMDATA ¬ ¬ ¬Maximum Number of Lines to Trap ==>_MAXTRAP%(1 to 1000000) % ¬Primary Allocation of Results Dataset in Cylinders ==>_Z %(1 to 99) % ¬Press%¬to Execute Function or%END¬to Quit )INIT &ZCMD = ' ' .ZVARS = '(CYLINDER)' .CURSOR = UTILNAME )PROC VER (&UTILNAME NONBLANK) VER (&MAXTRAP NONBLANK) VER (&CYLINDER NONBLANK) VER (&MAXTRAP,RANGE,1,1000000) VER (&CYLINDER,RANGE,1,99) VPUT (UTILNAME PARMDATA MAXTRAP CYLINDER) SHARED )END ./ ADD NAME=USTRDOC )ATTR DEFAULT(%+_) % TYPE(TEXT) INTENS(HIGH) SKIP(ON) + TYPE(TEXT) INTENS(LOW) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY EXPAND({{) %{-{ UNISTAR Documentation {-{ %OPTION ==>_ZCMD + % % 1.+UNISTAR Current Situation Analysis Documentation (CSA) % 2.+All Other UNISTAR Documentation % 3.+ADW Documentation % 4.+DB2 Documentation % 5.+CSP Documentation % 6.+QA/Endevor Documentation % 7.+Shell Documentation % 8.+Project Information % 9.+Committee Meeting Minutes %10.+Database Change Documentation %11.+Outstanding Implementation Items %12.+Test Plans + +Type your selection number at the%OPTION+prompt and press%enter.+ )INIT .HELP = HELPSHEL /* insert name of tutorial panel */ )PROC &ZSEL=TRANS(TRUNC(&ZCMD,'.') 1,'CMD(%TECHDOCS TYPE(CSA))' 2,'CMD(%TECHDOCS TYPE(US*))' 3,'CMD(%TECHDOCS TYPE(USAD))' 4,'CMD(%TECHDOCS TYPE(USDB))' 5,'CMD(%TECHDOCS TYPE(USCS))' 6,'CMD(%TECHDOCS TYPE(USQA))' 7,'CMD(%TECHDOCS TYPE(USSH))' 8,'CMD(%TECHDOCS TYPE(USTR))' 9,'CMD(%TECHDOCS TYPE(USCM))' 10,'CMD(%TECHDOCS TYPE(USDC))' 11,'CMD(%TECHDOCS TYPE(USOI))' 12,'CMD(%TECHDOCS TYPE(USTP))' ' ',' ' *,'?') )END ./ ADD NAME=UTILBLDG )ATTR ¬ TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) )BODY EXPAND({{) %{-{ BLDG FUNCTION {-{ %COMMAND ==>_ZCMD ¬ % ¬Dataset Index Base Name%==>_DSN ¬ ¬ (a fully qualified DSN%without¬single quotes) ¬ ¬Enter Any Non-Blank Character In The Function Of Your Choice Below : ¬ ¬ Build%==>_Z¬Number of Entries%==>_ENT¬%(255 Max) ¬Delete%==>_Z¬ ¬ List%==>_Z¬ ¬ ¬Display IDCAMS SYSPRINT On Terminal%==>_Z¬(Y/N) %Note : SYSPRINT Will Always % Be Displayed For The % LIST Function. ¬ ¬Press%¬to Execute Function or%END¬to Quit )INIT &ZCMD = ' ' .ZVARS = '(BUILD DELETE LIST SYSPRINT)' .CURSOR = DSN )PROC VER (&DSN DSNAME) VER (&DSN NONBLANK) VER (&SYSPRINT,NONBLANK,LIST,Y,N) &ZEDLMSG = 'One and only one process option must/may be specified' IF (&BUILD ¬= ' ') VER (&ENT,NONBLANK,NUM,MSG=UTLZ001) VER (&ENT,RANGE,1,255,MSG=UTLZ001) VER (&DELETE,LIST,' ',MSG=UTLZ001) VER (&LIST,LIST,' ',MSG=UTLZ001) IF (&DELETE ¬= ' ') VER (&BUILD,LIST,' ',MSG=UTLZ001) VER (&LIST,LIST,' ',MSG=UTLZ001) IF (&LIST ¬= ' ') VER (&DELETE,LIST,' ',MSG=UTLZ001) VER (&BUILD,LIST,' ',MSG=UTLZ001) VPUT (DSN BUILD ENT DELETE LIST SYSPRINT) SHARED )END ./ ADD NAME=UTILBROW )ATTR _ TYPE(INPUT) CAPS(OFF) INTENS(HIGH) FORMAT(&MIXED) . AREA(DYNAMIC) EXTEND(ON) SCROLL(ON) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) ! TYPE(OUTPUT) INTENS(HIGH) COLOR(BLUE) 01 TYPE(DATAOUT) INTENS(LOW) COLOR(BLUE) 02 TYPE(DATAOUT) INTENS(LOW) COLOR(TURQ) 0B TYPE(DATAOUT) INTENS(HIGH) FORMAT(DBCS) COLOR(RED) 0C TYPE(DATAOUT) INTENS(HIGH) FORMAT(EBCDIC) COLOR(RED) 0D TYPE(DATAOUT) INTENS(HIGH) FORMAT(&MIXED) COLOR(RED) 10 TYPE(DATAOUT) INTENS(LOW) FORMAT(DBCS) COLOR(TURQ) 11 TYPE(DATAOUT) INTENS(LOW) FORMAT(EBCDIC) COLOR(TURQ) 12 TYPE(DATAOUT) INTENS(LOW) FORMAT(&MIXED) COLOR(TURQ) )BODY WIDTH(&ZWIDTH) EXPAND(//) %/-/ CAS UTILITIES /-/-%LINE!ZLINES %COL!ZCOLUMS+ %COMMAND ===>_ZCMD / / %SCROLL ===>_Z + % +THIS IS THE DEBUG SWITCH :!DBGSWTCH+ +************************************+ .ZDATA ---------------------------------/ /------------------------------------. . / / . . --------------------------------------/-/------------------------------------. )INIT .HELP = ISR10000 /* DEFAULT TUTORIAL NAME */ .ZVARS = 'ZSCBR' /* SCROLL AMT VARIABLE NAME */ &MIXED = MIX IF (&ZPDMIX = N) /* EBCDIC MODE REQUESTED */ &MIXED = EBCDIC )REINIT REFRESH(ZCMD,ZSCBR,ZDATA,ZLINES,ZCOLUMS) .ATTRCHAR(+) = 'INTENS(&ZINTEN)' )PROC &ZCURSOR = .CURSOR &ZCSROFF = .CSRPOS &ZLVLINE = LVLINE(ZDATA) )END ./ ADD NAME=UTILCMDS )ATTR /********************************************************************** /* PANEL: UTILCMDS * /* AUTHOR: DAVID LEIGH * /* FUNCTION: THIS IS A POP-UP TABLE DISPLAY OF VALID COMMANDS FOR THE * /* TOOLBOX UTILITIES SYSTEM. * /********************************************************************** _ TYPE(INPUT) INTENS(NON) @ TYPE(OUTPUT) INTENS(HIGH) ¬ TYPE(OUTPUT) INTENS(LOW) )BODY WINDOW(70,14) @ZWINTTL _ZCMD )MODEL @UTCMD ¬UTCMDDES % )END ./ ADD NAME=UTILCOMP )ATTR . TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) )BODY EXPAND({{) %{-{ COMPILE UTILITY {-{ %COMMAND ==>_ZCMD . % .Source Dataset Name ==>_SDSN . Program Name ==>_PROGNAME%(if not MEMBER name of SOURCE DATASET NAME) . Load Library ==>_LLIB . .Enter Name of Dataset to Contain the Compiled Listing%(Blank if not Desired) .Listing Dataset Name ===>_LDSN . .Print Compiled Listing ? ==>_Z.(Y/N) Box ==>_SBOX. Copies ==>_COP. . Green Bar ? ==>_Z.(Y/N) Print at Emergency Printer ? ==>_Z.(Y/N) . .If an IDMS Compile, Mark the Environment to Compile Against : . _Z.Maintenance _Z.UAT _Z.Training _Z.Production . .Review JCL Prior to Compile ? ==>_Z. (Y/N) . .Compiler Options ==>_COMPOPT1 .(Cont.)==>_COMPOPT2 .Link Options ==>_LINKOPT1 .(Cont.)==>_LINKOPT2 . .Press%.to Compile or%END.to Quit Without Compileing )INIT &ZCMD = ' ' .ZVARS = '(PCOMP PGREEN PEMER MAINT UAT TRAIN PROD JCLREVEW)' .CURSOR = SDSN )PROC VER (&SDSN DSNAME) VER (&SDSN NONBLANK) VER (&LLIB NONBLANK) VER (&SBOX NONBLANK) VER (&JCLREVEW NONBLANK LIST Y N MSG=UTILM032) VER (&PCOMP NONBLANK LIST Y N MSG=UTLM001D) VER (&PEMER NONBLANK LIST Y N MSG=UTLM001E) VER (&PGREEN NONBLANK LIST Y N MSG=UTLM001L) IF (&MAINT ¬= ' ') VER (&UAT,LIST,' ',MSG=UTLM001F) VER (&TRAIN,LIST,' ',MSG=UTLM001F) VER (&PROD,LIST,' ',MSG=UTLM001F) IF (&UAT ¬= ' ') VER (&MAINT,LIST,' ',MSG=UTLM001F) VER (&TRAIN,LIST,' ',MSG=UTLM001F) VER (&PROD,LIST,' ',MSG=UTLM001F) IF (&TRAIN ¬= ' ') VER (&UAT,LIST,' ',MSG=UTLM001F) VER (&MAINT,LIST,' ',MSG=UTLM001F) VER (&PROD,LIST,' ',MSG=UTLM001F) IF (&PROD ¬= ' ') VER (&UAT,LIST,' ',MSG=UTLM001F) VER (&TRAIN,LIST,' ',MSG=UTLM001F) VER (&MAINT,LIST,' ',MSG=UTLM001F) VPUT (SDSN LLIB LDSN PCOMP SBOX COP PEMER COMPOPT1 COMPOPT2) SHARED VPUT (PROGNAME LINKOPT1 LINKOPT2 MAINT UAT TRAIN PROD JCLREVEW) SHARED VPUT (PGREEN) SHARED )END ./ ADD NAME=UTILCTKY )ATTR ¬ TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) ? TYPE(TEXT) INTENS(HIGH) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) )BODY EXPAND({{) %{-{ &INVOKE FUNCTION {-{ %COMMAND ===>_ZCMD ¬ % ¬Enter dataset name which contains the key values to be counted below : ? (no ''s needed on dataset name) ¬Dataset Name%==>_DSN ¬ ¬Beginning column of key field%==>_COL1 ¬ ¬ ¬ Ending column of key field%==>_COL2 ¬ ¬ ¬ Output dataset name%==>_OUTDSN ¬ ¬ ¬ Output viewing option%==>_Z¬ B-Browse ¬ E-Edit ¬ -do not automatically view output % ¬Press%¬to process dataset or%END¬to quit without processing )INIT .HELP = UTILH006 .ZVARS = '(VIEW)' &ZCMD = ' ' IF (&COL2 = &Z) IF (&COL1 = &Z) IF (&DSN = &Z) .CURSOR = DSN IF (&COL2 = &Z) IF (&COL1 = &Z) .CURSOR = COL1 IF (&COL2 = &Z) .CURSOR = COL2 )PROC VER (&DSN NONBLANK) VER (&COL1 NONBLANK) VER (&COL2 NONBLANK) &ZEDLMSG = 'E-dit, B-rowse, and " " are the only valid options' VER (&VIEW,LIST,E,B,' ',MSG=UTLZ001) VPUT (DSN COL1 COL2 VIEW OUTDSN) )END ./ ADD NAME=UTILDSCP )ATTR . TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) ? TYPE(TEXT) INTENS(HIGH) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) )BODY EXPAND({{) %{-{ CMC UTILITIES - &INVOKE FUNCTION {-{ %COMMAND ===>_ZCMD . % .Dataset to copy?from ? (no ''s needed on dataset name) . Dataset Name ===>_IN . .Dataset to copy?to.(it may or may not exist) ? (no ''s needed on dataset name) . Dataset Name ===>_OUT % .Volume Esoteric ===>_UNIT ?(will use FROM dataset volume if not specified) .Disposition of?to.dataset if it exists ===>_Z .MOD - Append the data . SHR - Overwrite - Shared . OLD - Overwrite - Exclusive % .LRECL for new datasets ==>_LRECL?(will use FROM dataset LRECL if not specified) .BLKSIZE for new datasets ==>_BLKSZ?(will use a valid default if not specified) % . Display SYSPRINT output on terminal ? ===>_Z. Y - Yes . N - No % .Press%.to process dataset or%END.to quit without processing )INIT .HELP = UTILH007 .ZVARS = '(DISP SYSPRINT)' &ZCMD = ' ' IF (&SYSPRINT = &Z) IF (&DISP = &Z) IF (&OUT = &Z) IF (&IN = &Z) .CURSOR = IN IF (&SYSPRINT = &Z) IF (&DISP = &Z) IF (&OUT = &Z) .CURSOR = OUT IF (&SYSPRINT = &Z) IF (&DISP = &Z) .CURSOR = DISP IF (&SYSPRINT = &Z) .CURSOR = SYSPRINT )PROC IF (&BLKSZ > &Z) VER (&LRECL NONBLANK) VER (&LRECL,RANGE,0,32767) VER (&BLKSZ,RANGE,0,23476) VER (&IN NONBLANK) VER (&OUT NONBLANK) VER (&DISP,NB,LIST,MOD,OLD,SHR) VER (&SYSPRINT,NB,LIST,Y,N) VPUT (IN OUT SYSPRINT DISP LRECL BLKSZ) )END ./ ADD NAME=UTILEDIT )ATTR _ TYPE(INPUT) CAPS(OFF) INTENS(HIGH) FORMAT(&MIXED) . AREA(DYNAMIC) EXTEND(ON) SCROLL(ON) USERMOD(20) ! TYPE(OUTPUT) INTENS(HIGH) PAD(-) 01 TYPE(DATAOUT) INTENS(LOW) COLOR(TURQ) 02 TYPE(DATAOUT) INTENS(HIGH) COLOR(YELLOW) 03 TYPE(DATAOUT) SKIP(ON) /* FOR TEXT ENTER CMD. FIELD */ 04 TYPE(DATAIN) INTENS(LOW) CAPS(OFF) COLOR(TURQ) 05 TYPE(DATAIN) INTENS(HIGH) CAPS(OFF) COLOR(YELLOW) 06 TYPE(DATAIN) INTENS(LOW) CAPS(IN) COLOR(TURQ) 07 TYPE(DATAIN) INTENS(HIGH) CAPS(IN) COLOR(YELLOW) 08 TYPE(DATAIN) INTENS(LOW) FORMAT(DBCS) COLOR(TURQ) 09 TYPE(DATAIN) INTENS(LOW) FORMAT(EBCDIC) COLOR(TURQ) 0A TYPE(DATAIN) INTENS(LOW) FORMAT(&MIXED) COLOR(TURQ) 20 TYPE(DATAIN) INTENS(LOW) CAPS(IN) FORMAT(&MIXED) COLOR(TURQ) )BODY WIDTH(&ZWIDTH) EXPAND(//) %EDIT -----!ZTITLE -------------------/-/---------------------%COLUMNS!ZCL!ZCR%% %COMMAND ===>_ZCMD / / %SCROLL ===>_Z % %THE DEBUG SWITCH VALUE IS!DBGSWTCH+ .ZDATA -------------------------------/-/--------------------------------------. . / / . . ------------------------------------/-/--------------------------------------. )INIT .HELP = ISR20000 /* DEFAULT TUTORIAL NAME */ .ZVARS = 'ZSCED' /* SCROLL AMT VARIABLE NAME */ &MIXED = MIX /* SET FROMAT MIX */ IF (&ZPDMIX = N) /* IF EBCDIC MODE REQUESTED */ &MIXED = EBCDIC /* SET FORMAT EBCDIC */ )REINIT REFRESH(ZCMD,ZSCED,ZDATA,ZTITLE,ZCL,ZCR) .HELP = ISR20000 /* DEFAULT TUTORIAL NAME */ )PROC &ZCURSOR = .CURSOR &ZCSROFF = .CSRPOS &ZLVLINE = LVLINE(ZDATA) )END /* DYNAMIC AREA SCREEN WIDTH FROM PQUERY. (80,132,160) /* DYNAMIC AREA SCREEN DEPTH FROM PQUERY. (24,32,43,27,60) ./ ADD NAME=UTILH001 )ATTR DEFAULT(%+_) % TYPE(TEXT) INTENS(HIGH) | TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY expand({{) %TUTORIAL {-{ HELP FOR PRINT PANEL {-{ %COMMAND ===>_ZCMD + % |This panel allows the user to type in a dataset name (or the name may be%pre- %populated|by the%DSNPRINT|edit macro), press%ENTER|, and automatically submit |a job to print the selected dataset. The panel works much the same as the%PDF %option 2 'EDIT-ENTRY PANEL'.| There are also the following different fields on |this panel which may be changed from their defaults to allow greater flexibil- |ity in the printing process. Defaults are set using %=A;U;X UPDTUSER|or can be |typed in each time this screen is accessed. This panel differs from the%EDIT- %ENTRY PANEL|significantly in that it currently does not support a member list |sub-panel, or a%mask|member name. These are the variable fields : | % Job Class |This is the%MVS|execution class for the print job (e.g. % CLASS=X|in JCL). The default value comes from the panel % accessed when ISPF option%=A;U;X UPDTUSER|is executed. % Print Class |This is the%MVS|sysout class for the print job (e.g. % SYSOUT=A|in JCL). The%MSGCLASS|parameter on the generated | JCL will always be%Y|which will send the JES sysout to the % HOLD|queue. The default value comes from the same place. % Programmer Name |This is the%'Programmer Name'|variable that follows the | accounting parameters in standard%MVS JCL.| The default | value is the%TSO user's name. |(Continued...) Press%ENTER|to see next screen. )PROC &ZCONT = UTILH002 )END ./ ADD NAME=UTILH002 )ATTR DEFAULT(%+_) % TYPE(TEXT) INTENS(HIGH) | TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY expand({{) %TUTORIAL {-{ HELP FOR PRINT PANEL (cont.) {-{ %COMMAND ===>_ZCMD + % % Print Destination |This is the standard%DEST=|parameter from%MVS JCL.| If this | panel was accessed via the%DSNPRINT|edit macro (as opposed | to the%DOWPRINT|CLIST) the destination will be set to your | default%8x11|printer if the%LRECL|of the dataset is%90 or % less,|and to your default%11x17|printer if the%LRECL|is % greater than 90.| These default printer destinations are | updated using the%=A;U;X UPDTUSER|ISPF option. | % Review JCL |This is a%YES/NO|switch (%Y|or%N|) which tells the pro- | cessing whether or not you wish to see the JCL that is gen- | erated for this particular print. The default is%No.| in | this situation, when you press%ENTER|the JCL is submitted | for you in the backround. If you overtype the%N|with a%Y, | the processing would generate the JCL, and then take you | into a%ISPF/PDF edit|of the temporary jcl dataset (which | will always be named%&ZUSER.TEMP.JCL|) where you are able | change the JCL in any manner and submit the job yourself | with the%SUB|command, or not submit the job at all. | | |(Continued...) Press%ENTER|to see next screen. )PROC &ZCONT = UTILH003 &ZUP = UTILH001 )END ./ ADD NAME=UTILH003 )ATTR DEFAULT(%+_) % TYPE(TEXT) INTENS(HIGH) | TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY expand({{) %TUTORIAL {-{ HELP FOR PRINT PANEL (cont.) {-{ %COMMAND ===>_ZCMD + % % Carriage Control |The Carriage Control parameter refers to datasets with | special characters in the%column 1|of each record which | tell the printer what kind of line skipping or non-line- | skipping should take place for each record. Valid values | are%A|for%ANSI,|and%M|for%machine,|or%|for no car- | ridge control. If the print panel has been accessed via | the%DSNPRINT|edit macro (as opposed to the%DOWPRINT|CLIST), | the carriage control value is preset to whatever the%RECFM | of the dataset denotes (e.g.%RECFM=FBA|would set the car- | riage control value to%A|). The default is%|and | any preset value may be set to a different one. | % Copies |The Copies parameter denotes how many copies should be | printed of this dataset. The default is%1,|and valid | values are%1-99.| | %Note :|All values may be%overtyped|to change the default. Certain field | values cannot be%.| You will be prompted for those if necessary. | )PROC &ZUP = UTILH002 )END ./ ADD NAME=UTILH004 )ATTR DEFAULT(%+_) % TYPE(TEXT) INTENS(HIGH) | TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY expand({{) %TUTORIAL {-{ HELP FOR PROJECT PARMS PANEL {-{ %COMMAND ===>_ZCMD + % |This panel allows the user to store parameters related to this specific pro- |ject. The screen is set up to handle virtually any type of parameter that the |user would like to store for use by project utilities. | |The panel contains%5|modifiable columns of data. They are as follows : | |1.%SEL|- This column is where the user places an%I|to%INSERT|a new line (i.e. | provide a new blank line in which to enter a new parameter) or a%D|to | %DELETE|an existing line. | |2.%T/P|- This column is where the user places a%T|to indicate that this param- | eter is only for the%TEST|environment of the project. Conversely, the | user may place a%P|here to indicate%PRODUCTION|environment parameters. | |3.%Element|- This column contains the basic identifier or catagory of each | parameter. | |4.%Qualifier|- This column contains a qualifier to the value in the%Element| | column. | |(Continued...) Press%ENTER|to see next screen. )PROC &ZCONT = UTILH005 )END ./ ADD NAME=UTILH005 )ATTR DEFAULT(%+_) % TYPE(TEXT) INTENS(HIGH) | TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY expand({{) %TUTORIAL {-{ HELP FOR PROJECT PARMS PANEL {-{ %COMMAND ===>_ZCMD + % |5.%Parameter|- This column contains the actual parameter that is identified by | the%T/P, Element,|and%Qualifier|columns. | |When you have entered an%I|in the%SEL|field and pressed%ENTER,|just type the |desired values in the specified columns. | |To change an existing line, just overtype the values in the columns and press %ENTER.| | | | | | | | | | | | | |Use the%END|command to return to the%PROJECT PARMS|panels )PROC &ZUP = UTILH004 )END ./ ADD NAME=UTILH006 )ATTR DEFAULT(%+_) % TYPE(TEXT) INTENS(HIGH) | TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR &INVOKE PANEL {-{ %COMMAND ===>_ZCMD + % +This utility enables the user to count the number of occurances of each unique +unique string within a column within a dataset, and automatically view the +the output dataset. Input field definitions are as follows : + |Dataset name -+This is the fully qualified and|un-quoted+name of the dataset + which contains the keys to be counted. It is automatically + populated if the utility is invoked via the|KEYCOUNT+edit macro. |Beginning column -+This is the column of the dataset which defines the begin- + ning of the "vertical" column of data in which to find + unique strings. |Ending column -+This is the column of the dataset which defines the ending of + the "vertical" column of data in which to find unique strings. |Output dataset -+This is the dataset which will contain the output from the + utility. It is pre-populated but it may be changed. It may + |not+be a dataset name with a|relative+gdg generation number. |Viewing option -+This field tells the utility to alternately take the user into + a|browse+or|edit+of the output dataset, or to not take the + user into the output dataset at all (the|+option). % +Press%END+to return to%&INVOKE +utility. )PROC )END ./ ADD NAME=UTILH007 )ATTR DEFAULT(%+_) % TYPE(TEXT) INTENS(HIGH) | TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR &INVOKE PANEL {-{ %COMMAND ===>_ZCMD + % +This utility enables the user to copy an input dataset of any lrecl to an +output dataset of any lrecl that does or does not exist (appending or over- +writing if the output dataset exists). Automatic truncation or padding occurs +if necessary as well. + |From dataset -+This is the fully qualified and|un-quoted+name of the dataset + which will be copied. It is automatically populated if the + utility is invoked via the|COPYDS+edit macro. |To dataset -+This is the fully qualified and|un-quoted+name of the dataset + which will be created, appended or overwritten by the "from" + dataset. %Note : neither dataset can have a gdg relative gen num. |Disposition -+This is the "JCL-type" disposition of the|to+dataset if it|exists | already.+ To append the dataset, use|MOD.+ To overwrite the data- + set use|SHR+or|OLD.+ For exclusive "to" dataset access use|OLD. |SYSPRINT viewing -+A|Y+in this option will cause the SYSPRINT output from + WAAPDSUT (the utility used to do the copies) to be displayed + on the screen. A|N+will cause these messages to be suppres- + sed. % +Press%END+to return to%&INVOKE+utility. )PROC )END ./ ADD NAME=UTILH008 )ATTR DEFAULT(+¬_) + TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) +TUTORIAL {-{ HELP FOR ADSOBGEN UTILITY {-{ TUTORIAL +COMMAND ===>_ZCMD + + ¬The+ADSOBGEN¬utility submits a batch job to perform an IDMS ADSOBGEN of a +CA-ADS¬dialog. + +ADSOBGEN¬can be invoked in a few different ways : + ¬ 1. Call+ADSOBGEN¬from a+CLIST¬with the following syntax : + %ADSOBGEN DIALOG(dialogname) ¬ where+dialogname¬is the name of the CA-ADS dialog to be regenerated + ¬ 2. Call+ADSOBGEN¬from an+ISPF COMMAND¬line with the following syntax : + TSO ADSOBGEN DIALOG(dialogname) ¬ where+dialogname¬is the name of the CA-ADS dialog to be regenerated + ¬When+ADSOBGEN¬is invoked from a+CLIST,¬JCL is generated and a batch job is ¬submitted in the backround to process the%ADSOBGEN. + ¬When+ADSOBGEN¬is invoked from an+ISPF COMMAND¬line, the user is presented with ¬a panel to specify several options. + (Cont...) +END¬quit +RIGHT¬next panel )PROC &ZCONT = UTILH024 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH009 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR COMPARE UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +This utility simply invokes the%SUPERCE+compare utility%(ISPF option 3.13). % % % % % % +Press%ENTER+to see the help associated with the%SUPERCE+utility. This utility +can be particularly helpful when in the %CHAMP+enviornment for comparing CHAMP +datasets since they are only accessible from within the CHAMP system. % % % % % % % % % %END+quit %LEFT+previous panel %RIGHT+next panel )PROC &ZCONT = ISR31300 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH010 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR "A" EDIT MACRO {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%"A"+edit macro allows you to insert a line of%STRING2+after every line in +which%STRING1+occurs at least once. + +Basic Syntax : +COMMAND ===>%a xxxx $$$$ + % File View + +Before command execution : After command execution : +000100%aaaa +000100%aaaa +000200%bbbb +000200%bbbb +000300%xxxx +000300%xxxx +000400%cccc +000301%$$$$ +000500%xxxx +000400%cccc + +000500%xxxx + +000501%$$$$ + + (Cont....) %END+quit %RIGHT+next panel )PROC &ZCONT = UTILH011 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH011 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR "A" EDIT MACRO {-{ TUTORIAL %COMMAND ===>_ZCMD + % % (Help for "A" edit macro cont...) + +To process only excluded lines : +COMMAND ===>%a xxxx $$$$ x + +Before command execution : +After command execution : +000100%aaaa +000100%aaaa +000200%bbbb +000200%bbbb %x xxxx +000300%xxxx +000400%cccc +000301%$$$$ +000500%xxxx +000400%cccc + +000500%xxxx + + + (Cont...) + + + %END+quit %LEFT+previous panel %RIGHT+next panel )PROC &ZUP = UTILH010 &ZCONT = UTILH012 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH012 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR "A" EDIT MACRO {-{ TUTORIAL %COMMAND ===>_ZCMD + % % (Help for "A" edit macro cont...) + +To process only included lines : +COMMAND ===>%a xxxx $$$$ nx + +Before command execution : +After command execution: +000100%aaaa +000100%aaaa +000200%bbbb +000200%bbbb %x xxxx - - - - - 1 LINE(S) NOT DISPLAYED +000400%cccc +000400%cccc +000500%xxxx +000500%xxxx + +000501%$$$$ + + + (Cont...) + + + %END+quit %LEFT+previous panel %RIGHT+next panel )PROC &ZUP = UTILH011 &ZCONT = UTILH013 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH013 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR "A" EDIT MACRO {-{ TUTORIAL %COMMAND ===>_ZCMD + % % (Help for "A" edit macro cont...) + %Special Notes :+If neither%X+nor%NX+are specified to deal with excluded or + included lines, all lines will be searched regardless of + inclusion/exclusion status. + + Single/Double quote usage around the 2 strings is identical to + that of the edit%CHANGE+(or %C+) command. + + The # of lines inserted will be placed in the short message + field at the upper right hand corner of your screen. + + If you specify%X+for processing excluded lines, all lines will + be reset at the end of macro execution. + + If you do not specify%X+or%NX,+ and excluded lines are found + contain%STRING1+ they will be reset. + + (Cont...) %END+quit %LEFT+previous panel %RIGHT+next panel )PROC &ZUP = UTILH012 &ZCONT = UTILH014 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH014 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR "A" EDIT MACRO {-{ TUTORIAL %COMMAND ===>_ZCMD + % % (Help for "A" edit macro cont...) + %Special Notes :+The utility uses a variable named%COUNT+to count the number of + lines that it inserts. This variable may be used as part of + %STRING2+to make it increment by one. For example if you want + to have%XXXn+placed after%ABCD+(where%n+is an ascending number + incremented by 1), you could use the following syntax : + COMMAND ===>%a ABCD XXX&&COUNT + + This brings up the point that the utility will resolve symbolic + variables that are imbedded in either%STRING1+or%STRING2.+ So, + if you want to put the string%"WRITE &&LASTCC"+after another + string, you should specify somthing like%WRITE ¬LASTCC+when you + call the utility and then do an edit%CHANGE+command. + + % *** END OF HELP *** + + %END+quit %LEFT+previous panel )PROC &ZUP = UTILH012 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH015 )ATTR DEFAULT(%¬_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ADDCOL UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % ¬ The%ADDCOL¬edit macro will automatically add up a column of numbers in ¬ a block of lines in a column that you are editing. The edit macro will ¬ take into account zero-filling where necessary and any non-numeric lines ¬ that may fall into the selected block of lines. If there are decimal ¬ points, an additional parameter may be passed to the macro to take them ¬ into account. Possible uses for this macro include adding up a column ¬ of numbers in a report or extract file, or adding up file or print line ¬ layouts in a program. The basic method of using it is to determine the ¬ columns in the file that begin and end the numeric area to accumulate ¬ (this can be accomplised via the%COLS¬edit line command). Then you ¬ %EXCLUDE¬the block of lines to be accumulated (this can be accomplished ¬ via the%X¬or%XX¬edit line commands). Then invoke the macro (syntax on ¬ the next help page(s). The output is an%ISPF¬message line. % % % (Cont...) % % % %END¬quit %RIGHT¬next panel )PROC &ZCONT = UTILH016 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH016 )ATTR DEFAULT(%¬_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ADDCOL UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % % Basic Syntax : % ¬ COMMAND ===>%addcol 1 3 2 % ¬ (where%1¬= beginning column of numeric area to accumulate) % ¬ (where%3¬= ending column of numeric area to accumulate) % ¬ (where%2¬= an optional parameter indicating the column position % ¬ of the decimal point in this numeric area...if there is one) % % % % % (Cont...) % % % %END¬quit %LEFT¬previous panel %RIGHT¬next panel )PROC &ZCONT = UTILH017 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH017 )ATTR DEFAULT(%¬_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ADDCOL UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % % Example #1 ¬ COMMAND ===>%addcol 10 12 ¬ ****** ***************************** TOP OF DATA ***************** ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ XX0100 111 ¬ 000200 111 ¬ 000300 111 ¬ 000400 111 ¬ XX0500 111 % Message After Command Execution : ¬ COMMAND ===> % TOTAL LINES READ = 5 NON-NUM = 0 NUM = 5 TOTAL AMOUNT = 555 ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ 000100 111 ¬ 000200 111 ¬ 000300 111 ¬ 000400 111 ¬ 000500 111 % (Cont...) %END¬quit %LEFT¬previous panel %RIGHT¬next panel )PROC &ZCONT = UTILH018 &ZUP = UTILH016 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH018 )ATTR DEFAULT(%¬_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ADDCOL UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % % Example #2 - Numbers With Decimal Points ¬ COMMAND ===>%addcol 10 15 13 ¬ ****** ***************************** TOP OF DATA ***************** ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ XX0100 111.11 ¬ 000200 111.11 ¬ 000300 111.11 ¬ 000400 111.11 ¬ XX0500 111.11 % Message After Command Execution : ¬ COMMAND ===> % TOTAL LINES READ = 5 NON-NUM = 0 NUM = 5 TOTAL AMOUNT = 555.55 ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ 000100 111.11 ¬ 000200 111.11 ¬ 000300 111.11 ¬ 000400 111.11 ¬ 000500 111.11 % (Cont...) %END¬quit %LEFT¬previous panel %RIGHT¬next panel )PROC &ZCONT = UTILH019 &ZUP = UTILH017 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH019 )ATTR DEFAULT(%¬_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ADDCOL UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % % EXAMPLE #3 - #'s w/Decimal Points && Letting ADDCOL "Zero-Fill" Spaces. ¬ COMMAND ===>%addcol 10 15 13 ¬ ****** ***************************** TOP OF DATA ***************** ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ XX0100 111.1 ¬ 000200 111. ¬ 000300 111 ¬ 000400 11.11 ¬ XX0500 1 % Message After Command Execution : ¬ COMMAND ===> % TOTAL LINES READ = 5 NON-NUM = 0 NUM = 5 TOTAL AMOUNT = 345.21 ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ 000100 111.1 ¬ 000200 111. ¬ 000300 111 ¬ 000400 11.11 ¬ 000500 1 % (Cont...) %END¬quit %LEFT¬previous panel %RIGHT¬next panel )PROC &ZCONT = UTILH020 &ZUP = UTILH018 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH020 )ATTR DEFAULT(%¬_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ADDCOL UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % % Example #4 - Interspersing Non-Numeric Lines w/i The Block Of Numeric Data. ¬ COMMAND ===>%addcol 10 15 13 ¬ ****** ***************************** TOP OF DATA ***************** ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ XX0100 111.11 ¬ 000200 XXXXXXXXXX ¬ 000300 111 ¬ 000400 XXXXXXXXXXX ¬ XX0500 1 % Message After Command Execution : (Notice NON-NUM vs. NUM Counts) ¬ COMMAND ===> % TOTAL LINES READ = 5 NON-NUM = 2 NUM = 3 TOTAL AMOUNT = 223.11 ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ 000100 111.11 ¬ 000200 XXXXXXXXXX ¬ 000300 111 ¬ 000400 XXXXXXXXXXX ¬ 000500 1 % (Cont...) %END¬quit %LEFT¬previous panel %RIGHT¬next panel )PROC &ZCONT = UTILH021 &ZUP = UTILH019 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH021 )ATTR DEFAULT(%¬_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ADDCOL UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % % Example #5 - Practical Use For Adding Up Record Layouts. ¬ ¬ COMMAND ===>%addcol 44 45 ¬ ****** ***************************** TOP OF DATA ***************** ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ 000100 01 PRINT-LINE-1. ¬ XX0200 05 PRINT-DATE PIC 9(06) ¬ 000300 VALUE ZEROS. ¬ 000200 05 FILLER PIC X(20) ¬ 000300 VALUE SPACES. ¬ 000200 05 FILLER PIC X(29) ¬ 000300 VALUE 'THIS IS THE LONG REPORT TITLE'. ¬ 000200 05 FILLER PIC X(21) ¬ 000300 VALUE ' PAGE '. ¬ XX0200 05 PRINT-PAGE PIC 9(04) ¬ 000300 VALUE ZEROS. ¬ ****** **************************** BOTTOM OF DATA *************** ¬ % (Cont...) %END¬quit %LEFT¬previous panel %RIGHT¬next panel )PROC &ZCONT = UTILH022 &ZUP = UTILH020 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH022 )ATTR DEFAULT(%¬_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ADDCOL UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % % Message After Command Execution : Notice that only the report title is % considered non-numeric in this group of lines. That is because the % lines in which columns 44 and 45 both contain spaces are "zero- % filled" and thus become the numeric value '00'. ¬ COMMAND ===> % TOTAL LINES READ = 9 NON-NUM = 1 NUM = 8 TOTAL AMOUNT = 80 ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ 000100 01 PRINT-LINE-1. ¬ 000200 05 PRINT-DATE PIC 9(06) ¬ 000300 VALUE ZEROS. ¬ 000400 05 FILLER PIC X(20) ¬ 000500 VALUE SPACES. ¬ 000600 05 FILLER PIC X(29) ¬ 000700 VALUE 'THIS IS THE LONG REPORT TITLE'. ¬ 000800 05 FILLER PIC X(21) ¬ 000900 VALUE ' PAGE '. ¬ 001000 05 PRINT-PAGE PIC 9(04) ¬ 001100 VALUE ZEROS. % (Cont...) %END¬quit %LEFT¬previous panel %RIGHT¬next panel )PROC &ZCONT = UTILH023 &ZUP = UTILH021 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH023 )ATTR DEFAULT(%¬_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ADDCOL UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % % Special Notes :¬More information on%EXCLUDING¬lines can be found by typing ¬ %HELP¬from any%ISPF EDIT¬session and choosing option ¬ %11 edit line commands.¬ % ¬ %ADDCOL¬will only%ZERO-FILL SPACES¬in the specified columns. ¬ therefore, the following #'s would not be added correctly. ¬ ¬ COMMAND ===>%addcol 10 15 13 ¬ ****** ***************************** TOP OF DATA ***************** ¬ =COLS>%----+----1----+----2----+----3----+----4----+----5----+---- ¬ XX0100 $111.11 ¬ 000200 $11.11 ¬ 000300 $1.11 ¬ 000400 111.1X ¬ XX0500 1 ¬ ****** **************************** BOTTOM OF DATA *************** ¬ Only lines%000100,¬and%000500¬above would be considered%numeric¬and ¬ would be added. % %END¬quit %LEFT¬previous panel )PROC &ZUP = UTILH022 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH024 )ATTR DEFAULT(+¬_) + TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) +TUTORIAL {-{ HELP FOR ADSOBGEN UTILITY {-{ TUTORIAL +COMMAND ===>_ZCMD + + ¬The user must specify a+DIALOG NAME.¬ This is not checked immediately, so you ¬can specify a bogus dialog name, and the job will just not execute properly. + ¬The user can also specify a+dataset name¬into which output messages may be out- ¬put. If this field is left blank, the messages would be output with the+JES¬ ¬messages that the job produces. + ¬The user may indicate that he would like to+review¬the+JCL¬that the utility ¬generated. If so, the user will be taken into an+EDIT¬session of the dataset ¬which contains the+JCL.¬ The+JCL¬will+not¬be automatically submitted if this ¬option is selected. The user must use the+SUBMIT¬command to invoke the job. ¬If the user+did not¬review the+JCL,¬the+ADSOBGEN¬job is submitted in the back- ¬round automatically. + ¬The+ADSOBGEN¬utility gets most of the variable information associated with the +CMC¬project environment from the+PROJECT ISPF table¬(e.g. the+IDMS¬dataset ¬names). The+PROJECT¬table can be updated with the+UPDTPROJ¬utility. + (Cont...) + +END¬quit +LEFT¬previous panel +RIGHT¬next panel )PROC &ZCONT = UTILH025 &ZUP = UTILH008 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH025 )ATTR DEFAULT(+¬_) + TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) +TUTORIAL {-{ HELP FOR ADSOBGEN UTILITY {-{ TUTORIAL +COMMAND ===>_ZCMD + + ¬The+ADSOBGEN¬utility will automatically execute a+UCFBATCH¬job to issue a+DCMT +VARY NEW COPY IMMEDIATE¬of the generated dialog. + ¬At the conclusion of the+ADSOBGEN¬job, the user will be sent messages to indi- ¬cate how the job did. Their format is as follows : + + *** BEGINNING OF &DIALOG ADSOBGEN MSGS ¬| Note : In addition to using the + * DIALOG GENERATE SUCCESSFUL ¬|+PROJECT¬table for certain vari- ¬ or ¬| ables,+ADSOBGEN¬uses the user's + * DIALOG GENERATE UNSUCCESSFUL ¬| own+ISPF PROFILE¬variables. The + * VARY NEW COPY SUCCESSFUL ¬| ones that are used can be set up ¬ or ¬| and updated in+ISPF¬option + * VARY NEW COPY UNSUCCESSFUL ¬|+a;p;1.¬ The+password¬for the + *====================================== ¬|+UCFBATCH¬job, for instance, is + * GENERATE AND VARY MESSAGES ¬| obtained from here. + * ARE IN &ODSN(0) ' USER(&SYSUID) LOGON ¬| + * TYPE "TSO VIEWOUT" TO SEE THE OUTPUT ¬| + *** END OF &DIALOG ADSOBGEN MSGS ¬| + +END¬quit +LEFT¬previous panel +RIGHT¬next panel )PROC &ZUP = UTILH024 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH026 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR PUTMOD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%PUTMOD+utility is an%edit macro+which assumes that the dataset that you are +editing is actually a%CA-ADS+module. It takes this dataset that you are edit- +and%punches+it to the%IDMS IDD+to update (or add) a given CA-ADS module that +resides in the IDD. % %PUTMOD+actually scans the dataset being edited to determine the name of the +module (it searches for the first occurance of%PROCESS NAME IS+to find the mod- +ule name). This name is used to create the%SYSIN+to the IDMS utility%IDMSDDDL. % +Frequently, when you are updating a module, you want to%re-generate+the asso- +ciated CA-ADS dialog. This can be accomplished by specifying the keyword%GEN. +The%GEN+keyword tells%PUTMOD+to also scan for%USED BY PROGRAM+in the module +comments at the top. If this string is found, the dialog name specified here +is passed to the%ADSOBGEN+utility, and a batch job is submitted to re-generate +this dialog and issue the%DCMT VARY NEW COPY IMMEDIATE+command. If the name is +not found,%ADSOBGEN+is invoked, and a panel is displayed where you may enter +the name of the dialog to be re-generated. % % (Cont...) %END+quit %RIGHT+next panel )PROC &ZCONT = UTILH027 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH027 )ATTR DEFAULT(%¬_) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR PUTMOD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD ¬ % ¬If you have mulitple%USED BY PROGRAM¬comment lines in your dialog,%PUTMOD¬will ¬select the%first¬one and always re-generates%version 1¬of the dialog if mul- ¬tiple versions exist (even if the USED BY PROGRAM line specifies a version ¬other than 1). % ¬If you want to specify a dialog%other¬than that specified in the comments,%or %none¬is specified in the comments, you can add or change the CA-ADS comment ¬line to specify your desired dialog name. You could specify a line like : % % *+ USED BY PROGRAM xxxxxxxx % ¬(where the%*+¬is in column 1 and the%xxxxxxxx¬is the name of the dialog to be ¬re-generated. If you did not want to change or add a comment line, or you want ¬to specify a different dialog only occasionally, you could invoke%ADSOBGEN¬as a ¬seperate utility with a stacked command. So, instead of typing%PUTMOD GEN¬to ¬invoke%PUTMOD¬with a re-generate step, you could type%PUTMOD;ADSOBGEN¬and be ¬prompted for the dialog name, or%PUTMOD;ADSOBGEN DIALOG(xxxxxxxx)¬to specify ¬the dialog name at invocation time. % %END¬quit %LEFT¬previous panel )PROC &ZCONT = UTILH026 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH028 )ATTR DEFAULT(%¬_) \ TYPE(TEXT) INTENS(HIGH) COLOR(RED) ~ TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) ? TYPE(TEXT) INTENS(LOW) COLOR(GREEN) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR COPYX UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD ¬ % ¬The%COPYX¬utility is an edit macro that allows the user to copy all the lines ¬that are%excluded,¬after or before another line in the file. An Example : % %EDIT ---- TCWCA.TWB.WORKFILE(TEMP) - 01.00 ------------------- COLUMNS 001 072 %COMMAND ===>\copyx~<-- type command and press ENTER% SCROLL ===>\CSR ?x00001 DATA FROM LINE 1 %+----------------------------------------------+ ?000002 DATA FROM LINE 2 %| Lines 1 and 3 are "excluded" and an "a" is on| ?x00003 DATA FROM LINE 3 %| on line 5 to direct results "after" line 5. | ?000004 DATA FROM LINE 4 %+----------------------------------------------+ ?a00005 DATA FROM LINE 5 %EDIT ---- TCWCA.TWB.WORKFILE(TEMP) - 01.00 ------------------- COLUMNS 001 072 %COMMAND ===> ~-- file view after execution --% SCROLL ===>\CSR ?000001 DATA FROM LINE 1 %+----------------------------------------------+ ?000002 DATA FROM LINE 2 %| Now lines 1 and 3 have been copied after line| ?000003 DATA FROM LINE 3 %| 5 and the "excluded" status of lines 1 and 3 | ?000004 DATA FROM LINE 4 %| has been reset. You can use "b" to denote | ?000005 DATA FROM LINE 5 %| "before" and ALL "excluded" lines are copied.| ?000006 DATA FROM LINE 1 %+----------------------------------------------+ ?000007 DATA FROM LINE 3 % END¬quit )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH029 )ATTR DEFAULT(%¬_) \ TYPE(TEXT) INTENS(HIGH) COLOR(RED) ~ TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) ? TYPE(TEXT) INTENS(LOW) COLOR(GREEN) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR MOVEX UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD ¬ % ¬The%MOVEX¬utility is an edit macro that allows the user to move all the lines ¬that are%excluded,¬after or before another line in the file. An Example : % %EDIT ---- TCWCA.TWB.WORKFILE(TEMP) - 01.00 ------------------- COLUMNS 001 072 %COMMAND ===>\movex~<-- type command and press ENTER% SCROLL ===>\CSR ?x00001 DATA FROM LINE 1 %+----------------------------------------------+ ?000002 DATA FROM LINE 2 %| Lines 1 and 3 are "excluded" and an "a" is on| ?x00003 DATA FROM LINE 3 %| on line 5 to direct results "after" line 5. | ?000004 DATA FROM LINE 4 %+----------------------------------------------+ ?a00005 DATA FROM LINE 5 %EDIT ---- TCWCA.TWB.WORKFILE(TEMP) - 01.00 ------------------- COLUMNS 001 072 %COMMAND ===> ~-- file view after execution --% SCROLL ===>\CSR ?000001 DATA FROM LINE 2 %+----------------------------------------------+ ?000002 DATA FROM LINE 4 %| Now lines 1 and 3 have been moved after line | ?000003 DATA FROM LINE 5 %| 5 and the "excluded" status of lines 1 and 3 | ?000004 DATA FROM LINE 1 %| has been reset. You can use "b" to denote | ?000005 DATA FROM LINE 3 %| "before" and ALL "excluded" lines are copied.| % +----------------------------------------------+ % % END¬quit )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH030 )ATTR DEFAULT(%¬_) \ TYPE(TEXT) INTENS(HIGH) COLOR(RED) ~ TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) ? TYPE(TEXT) INTENS(LOW) COLOR(GREEN) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ¬ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR NOBLANK UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD ¬ % ¬The%NOBLANK¬utility is an edit macro that deletes%ALL¬the blank lines in a file ¬that you are editing. An Example : % %EDIT ---- TCWCA.TWB.WORKFILE(TEMP) - 01.00 ------------------- COLUMNS 001 072 %COMMAND ===>\NOBLANK~<-- type command and press ENTER% SCROLL ===>\CSR \******¬**************************** TOP OF DATA ******************************* ?000001 DATA FROM LINE 1 %+----------------------------------------------+ ?000002 %| Lines 2 and 4 are completely blank (including| ?000003 DATA FROM LINE 3 %| any sequence #'s in columns 73-80) at the | ?000004 %| time NOBLANK is invoked. | ?000005 DATA FROM LINE 5 %+----------------------------------------------+ \******¬*************************** BOTTOM OF DATA ***************************** %EDIT ---- TCWCA.TWB.WORKFILE(TEMP) - 01.00 ------------------- COLUMNS 001 072 %COMMAND ===> ~-- file view after execution --% SCROLL ===>\CSR \******¬***********************%+----------------------------------------------+ ?000001 DATA FROM LINE 1 %| Now lines 2 and 4 have been deleted and only | ?000002 DATA FROM LINE 3 %| 1,3, and 5 remain in the file. | ?000003 DATA FROM LINE 5 %+----------------------------------------------+ \******¬*************************** BOTTOM OF DATA ***************************** % END¬quit )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH031 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR COMPMARK UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%COMPMARK+utility will mark the lines in a COBOL program which have compiler +errors. The actual compiler error message is placed in an ISPF EDIT MSGLINE +directly under the line in error. % +To execute%COMPMARK+you must be editing the COBOL program in which you want to +mark compiler errors. The compiled listing must be in your program default list +dataset. If you use the DOW compile utilities your output listing will be put +there by default. +Once the lines have been marked, you can type "L SPECIAL" to locate the error +messages. You can also specify a%PF KEY+at execution time to be set to +"l special". You would invoke COMPMARK by typeing :%compmark pf19 % +If%COMPMARK+is unable to find a particular line to mark, it will create more %ISPF EDIT MSGLINEs+which will display the line that was being searched for, and +the associated error message directly under it. % % % END+Quit % )PROC &ZCONT = UTILH032 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH032 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR COMPMARK/CM UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +If%COMPMARK+is unable to find a particular line to mark, it will create more %ISPF EDIT MSGLINEs+which will display the line that was being searched for, and +the associated error message directely under it. % % % % % % % % % % % % % % % % %END+quit %LEFT+previous panel )PROC &ZUP = UTILH031 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH033 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ABENDLOG UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % + The%ABENDLOG+utility is a facility for storing information about the % CAS+system batch cycle problems. + + The following topics are presented sequentially, or may be selected by + number. % % 1.+Utility Overview % % 2.+Primary Commands % % 3.+Line Commands % % 4.+Detail Screen Field Descriptions % % % % % % % { {%END+(PF3) quit %RIGHT+(PF11) next page { { )PROC &ZSEL = TRANS(&ZCMD 1,UTILH034 2,UTILH036 3,UTILH040 4,UTILH000 *,'?') )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES|NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH034 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ABENDLOG UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %ABENDLOG+can be used by SE's on the DOW team to store and retrieve information +about production batch cycle problems. These may be JCL errors, bad return +codes, abends, etc. % +Several key pieces of information are stored about each problem, as well as +free-form text about the problem. The initial panel shows a table of the key +information pieces of each problem logged in%ABENDLOG.+ These are presented in +a%one-line-per-problem+format. The table may be sorted by one or more of the +key information pieces. By%selecting+a problem with an%s+next to the specific +line, the detailed free-form text may be viewed and updated (as well as the +key information pieces.) % +It is up to the DOW SE's to keep this information up-to-date for it to be ef- +fective in problem solving situations. % % % (CONTINUED ON NEXT PAGE) % % { {%END+(PF3) quit %LEFT+(PF10) previous page %RIGHT+(PF11) next page { { )PROC &ZCONT = UTILH035 )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES|NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH035 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ABENDLOG UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +How would an SE use the information stored in%ABENDLOG+? The most probable use +would be in an%abend-solving+situation. For instance, program%xxxxxxxx+abends +during the batch cycle with a%System 0CB+(S0CB) abend. The%on-call SE+can go +into%ABENDLOG+by typeing%tso abendlog+at any%ISPF command line.+ From there, +the SE can%sort the table by "program"+and%locate program "xxxxxxxx".+ If this +program has had any problems before, they should show up now. If one of the +previous problems was a%S0CB,+that line on the display could be%selected+and +the on-call SE could read the nature of the previous S0CB and%how the problem %was solved.+ They would also know who had solved the problem, and how long ago +it occured. Additionally, the SE could sort the table on the%abend type+to see +if other S0CB's have ever occured, and what was done to solve them. % +All this information could be useful for solving the current abend. As long as +the information is complete and accurate,%ABENDLOG+provides a versatile tool +for audit trails and solving of production batch cycle problems. The more in- +formation entered, the more useful%ABENDLOG+can be. % % % { {%END+(PF3) quit %LEFT+(PF10) previous page{ { )PROC &ZUP = UTILH034 )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES|NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH036 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ABENDLOG UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % + The following commands are entered at the%command line+of the + initial%ABENDLOG+display of all problems. + % + The commands are presented sequentially, or may be selected by + name. % % % I+Insert a new table row. % % % L+Locate the row in which the last primary sort field + begins with a string > or = the passed string argument. % % % SORT+Sort the table by one or more fields. % % % { {%END+(PF3) quit %RIGHT+(PF11) next page { { )PROC &ZSEL = TRANS(&ZCMD I,UTILH037 L,UTILH038 SORT,UTILH039 *,'?') )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES|NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH037 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ABENDLOG UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % { {%****************************** { { { {%*** INSERT PRIMARY COMMAND *** { { { {%****************************** { { % % % % +The%INSERT+command is used to insert a new row into the table. It is invoked +by typing%I+on the%command line+and pressing%ENTER.+ At this point the user is +taken to a screen on which they can enter the relevant information about this +problem. If the%END+command (usually PF3) is entered prior to pressing%ENTER +to save the information entered, the row%will not be added.+ If%ENTER+is pres- +sed on the detail screen, and the information passes the edits, the row is ad- +ded. % % % % % { {%END+(PF3) quit %RIGHT+(PF11) next page { { )PROC &ZUP = UTILH036 )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES|NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH038 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ABENDLOG UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % { {%****************************** { { { {%*** LOCATE PRIMARY COMMAND *** { { { {%****************************** { { % % +The%LOCATE+command is used to locate the row in the ISPF table in which the +field that was the last primary sort field begins with a string that is equal +to or greater than the argument string. To invoke this command, type%L string +on the%command line+(where%string+is the string that is to be located). % % %Special Notes :+This command works like the locate command on a dataset member + list where you can sort the member list by a certain field like + the last update ID, and then "locate" a given ID or the first + ID that begins "xxx" or the first ID that is greater than "xxx" + if no ID begins "xxx". The initial sort order of the%ABENDLOG + table is by%job name. % { {%END+(PF3) quit %LEFT+(PF10) previous page %RIGHT+(PF11) next page { { )PROC &ZUP = UTILH036 )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES|NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH039 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ABENDLOG UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % { {%**************************** { { { {%*** SORT PRIMARY COMMAND *** { { { {%**************************** { { % +The%SORT+command orders the ISPF table in ascending format for the fields that +were specified. Multiple fields may be specified. Descending collating se- +quence is not supported. At least 1 field must be specified. To invoke the %SORT+command type%S fld1 fld2...fldn+on the command line and press%ENTER+(where +fld1-fldn are valid screen field tag names (see Special Notes). % %Special Notes :+Valid field names to sort by are :%job program sys/user abend, % idms/code date+and%se.+ JOB is the name of the job. PROGRAM is + the name of the program. SYS/USER is an%S+or%U+to denote a + %system+or%user+abend code. ABEND is the abend code. IDMS/CODE + is the IDMS operation DML return code if the abend was IDMS re- + lated. DATE is the cycle date. SE is the on-call SE. The 1st + field specified is saved as the primary sort field for LOCATEs. % % { {%END+(PF3) quit %LEFT+(PF10) previous page %RIGHT+(PF11) next page { { )PROC &ZUP = UTILH036 )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES|NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH040 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR ABENDLOG UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % + The following commands are entered next to a specific row on + the initial%ABENDLOG+display of all problems. + % + The commands are presented sequentially, or may be selected by + name. % % % D+Delete a table row. % % % I+Insert a new table row. % % % S+Select a table row to view more detail. % % % % { {%END+(PF3) quit %RIGHT+(PF11) next page { { )PROC &ZSEL = TRANS(&ZCMD D,UTILH041 I,UTILH042 S,UTILH043 *,'?') )END /* &ZCONT = PANELNAME NAME OF NEXT CONTINUATION PANEL*/ /* &ZHINDEX = PANELNAME NAME OF FIRST INDEX PANEL */ /* &ZHTOP = PANELNAME NAME OF TOP PANEL */ /* &ZIND = YES|NO YES SPECIFIES AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PARENT PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH044 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR $COUNT UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%$COUNT+utility is specifically designed to work with the dataset names spe- +cified in%ISPF+option%3.4.+ It is used to count the number of records in a file +and display the results in the standard ISPF message lines. Simply type%$count +next to the dataset name and press%ENTER.+ % +The%$COUNT+utility can be used outside of the ISPF 3.4 screen. Simply type %tso $count 'xxx'+(where%xxx+is the dataset to count%within single quotes),+and +press%ENTER. % % % % % % % % % % % %END+quit %LEFT+previous panel %RIGHT+next panel )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION $ */ ./ ADD NAME=UTILH045 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR BLKSIZE UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The BLKSIZE edit macro provides a facility for calculating optimum dataset +block sizes in JCL. It functions differently depending upon where the%cursor +is located in the file being edited. % +If the cursor is located on the%command line,+the entire file is processed. +This process is as follows : % + 1. Each%DCB+parameter is found in the JCL. % + 2. The%LRECL+parameter is interrogated within the given%DCB+parameter. % + 3. The%BLKSIZE+is calculated from the%LRECL+and the%optimum block size factor. + Note : the default optimum block size is%23476.+ You may change this + factor when you invoke the utility. For example, instead of typing + %blksize+and pressing%enter,+you could type%blksize 15476+and press % enter. +In this example%15476+would be used in the calculations + instead of%23476. % (continued on next page) % %END+quit %RIGHT+next panel )PROC &ZCONT = UTILH046 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH046 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR BLKSIZE UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % + 4. A new%message+line is inserted before the JCL%data+line which contains the % BLKSIZE+parameter. This%message+line is what the JCL%data+line would be + with the correct block size. You can make the%message+line into an actual % data+line in the file by using the%md+line command ("Make Data"). You + would then delete the%old+line of JCL. + Note : You can have the%blksize+utility do automatic replacement of the%old + line with the%new+line. To do this you would invoke%blksize+with an + extra parameter. You would type%blksize write+and press%enter+to + accomplish this. You may specify the%write+parameter in conjunction + with a different%optimum block size factor.+ They may be specified + in any order (e.g.%blksize write 15476+or%blksize 15476 write+). + +If your%cursor+is within the body of the file that is being edited%(i.e. not %on the command line),+the%blksize+utility will%try+to determine which DD +statement you are in and what the%LRECL+value is (if you are in a DD, and if an %LRECL+parameter has been specified. This%LRECL+is then passed to the%BLKCALC +utility to prepopulate its%LRECL+field. Simply press%enter+then to obtain the +correct block size. You must then manually change your JCL. % %END+quit %LEFT+previous panel )PROC &ZUP = UTILH045 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH047 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % +This screen lists utilities which are available to programmers for general +purpose use. It is a scrollable list and may be modified by authorized users. % +The following topics are presented in sequence or may be selected by number. % % 1.+General discussion on utility use and conventions. % % 2.+Utility fields description/definition. % % 3.+Primary commands. % % 4.+Line commands. % % 5.+How to use and fill out the detail screen. % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZSEL = TRANS(&ZCMD 1,UTILH048 2,UTILH049 3,UTILH050 4,UTILH051 5,UTILH052 *,'?') )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH048 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % +These utilities are all%CLIST+driven processes which are designed to +automate tedious tasks, standardize project procedures, avoid reinvention of +the wheel, and generally aid productivity. Though they are written in the +CLIST language, they may call other types of utilities, other programs, and +other CLISTs. The utilities are broken down into to two major types :%CLISTs +and%EDIT MACROs.+ % %CLISTs+are processes called from the%READY+prompt in%TSO,+any%ISPF+command +line, or specifically from%ISPF+option%6.+ The most common way to invoke a +CLIST is from an ISPF command line by typing%tso xxxxxxxx+where%xxxxxxxx+is the +name of the utility. At this point you may also pass required and optional +parameters to the given utility. % %EDIT MACROs+are utilities which may only be used in conjunction with an%ISPF +edit session. They may or may not process the actual dataset being edited, but +they do have unique capabilities to do so. % % (continued on the next page) % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZCONT = UTILH053 &ZUP = UTILH047 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH049 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The fields on the%UTILITY+table are presented in sequence or may be selected +by number. % % 1. SEL+- Selection field % 2. NAME+- Utility name field % 3. TYPE+- Utility type field % 4. EDIT MACRO+- Edit Macro flag field % 5. SHORT DESCRIPTION+- Utility short description field % %{={ The following fields are only on the detail screen {={ % % 6.+"HELP" panel name field % 7.+ISPEXEC SELECT field % 8.+Detail description lines % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZSEL = TRANS(&ZCMD 1,UTILH057 2,UTILH058 3,UTILH059 4,UTILH060 5,UTILH061 6,UTILH062 7,UTILH063 8,UTILH064 *,'?') &ZUP = UTILH047 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH050 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The following are commands that may only be executed from the%ISPF+command line +on the utilities list screen. You may also enter every valid%line command+on +the command line by typing%x yyyyyyyy+where%x+is the line command, and%yyyyyyyy +is the name of the utility. % +The following commands are presented in sequence or may be selected by number. % % 1. L+- Locate a line % % 2. PT+or%PT FULL+- Print the utilities table % % 3. S+- Sort the table in a given order % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZSEL = TRANS(&ZCMD 1,UTILH071 2,UTILH072 3,UTILH073 *,'?') )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH051 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % +Line commands are the valid%one letter+commands that can be placed in the %SEL+(selection) field next to a given row on the utilities list screen. % +The following commands are presented in sequence or may be selected by number. % % D+- Delete a utility description % % H+- Display Help for a utility % % I+- Insert a new utility into the table % % S+- Select a utility to view the description % % V+- View the code for a utility % % X+- eXecute a given utility % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZSEL = TRANS(&ZCMD D,UTILH065 H,UTILH066 I,UTILH067 S,UTILH068 V,UTILH069 X,UTILH070 *,'?') &ZUP = UTILH047 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH052 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%detail+screen is used to store/update a more complete description of a +given utility. Only authorized users' changes will be saved on this screen. % +When updating this screen, the detailed description should include a statement +of what the utility does, some syntax examples, and some results examples if +possible. % +The following fields are presented in sequence or may be selected by number. % % 1. SEL+- Selection field % 2. NAME+- Utility name field % 3. TYPE+- Utility type field % 4. EDIT MACRO+- Edit Macro flag field % 5. SHORT DESCRIPTION+- Utility short description field % 6.+"HELP" panel name field % 7.+ISPEXEC SELECT field % 8.+Detail description lines % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZSEL = TRANS(&ZCMD 1,UTILH057 2,UTILH058 3,UTILH059 4,UTILH060 5,UTILH061 6,UTILH062 7,UTILH063 8,UTILH064 *,'?') &ZUP = UTILH047 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH053 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % +Edit Macros are typically written in the CLIST language (though they do not +have to be) with an additionaly sub-set of edit-specific commands. Edit Macros +are invoked within an edit session by typing the name of the macro (and +associated parameters if any) and pressing%enter.+ Consequently, the Edit +Macros in the utilities list%cannot+be executed from there (CLISTs on the other +hand can be executed from the utilities list by placing an%x+next to the +utility and pressing%enter. % +Many of the utilities have%help text+written for them (some don't yet). This +help text takes two formats : 1.%WRITE+commands within the%CLIST+code. 2.%ISPF +panels (like the one you are viewing now). Help may be viewed for these +utilities in several ways. % %1.+If the utility is a Edit Macro and the help text is in an ISPF panel, the + utilities list screen provides the line command%h+to view the help. Simply + place an%h+next to the utility name and press%enter. % % (continued on the next page) % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZCONT = UTILH054 &ZUP = UTILH053 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH054 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %2.+If the utility is an Edit Macro and the help text is in the form of CLIST + WRITE commands, you must invoke the utility with the passed parameter of % help+to view the help text. You would type%xxxxxxxx help+on the I SPF edit + command line (where%xxxxxxxx+is the utility name) and press%enter.+ The help + text will then be displayed, but no processing will be performed. % %3.+If the utility is a CLIST you may view either type of help text by placing + an%h+next to the utility on the utilities list screen, or passing the%help + parameter at invocation of the utility (e.g.%tso xxxxxxxx help+ on the ISPF + command line). + %4.+If either type of utility has an ISPF panel associated with the actual + processing (i.e. not a%help+panel), and the help text is in an ISPF panel, + you can type%help+at the ISPF command line on the utility's ISPF processing + panel. % % % (continued on the next page) % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZCONT = UTILH055 &ZUP = UTILH053 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH055 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The utilities use, to varying degrees, variables from two%ISPF tables+and +each users%ISPF profile variables.+ The user's default variables should be set +up and can be maintained by executing CLIST%UPDTUSER+ (this can be done by +typing%tso updtuser+at any ISPF command line or placing an%x+next to the %UPDTUSER+utility on the utilities list screen). The variables set up and +maintained here will be saved when the user logs off of TSO. %Note : the EDSNET %multisession *end command will not save these variables. + +The%PROJECT+ISPF table maintains information about the%CMC+project that are +used by some of the utilities (e.g. libraries where certain information resides +or access codes, etc.). This information is maintainable via the%UPDTPROJ +utility. Only changes made by authorized users will be saved on this table. + +The%CODELIST+ISPF table maintains codes and associated descriptions that are +used by some of the utilities. This information is maintainable via the %UPDTCODE+utility. Only changes made by authorized users will be saved. % % (continued on the next page) % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZUP = UTILH054 &ZCONT = UTILH056 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH056 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % +Like the%PROJECT+and%CODELIST+tables, the utilities list is maintained on an +ISPF table called%UTILITY.+ This table is maintained on the same screens that +the utilities list and detail are displayed. The updateable fields on these +screens are available to all users, but again, only changes made by authorized +users will be saved. + +If an authorized user is on the utilities list screen, the screen will be +unavailable for other users. The unavailablility of the utilities list in no +way curtails the execution of any of the utilities on the list. You may want +to keep a hardcopy list of the available utilities for these situations. You +can create such a list via the%PT+or%PT FULL+command on the utilities list +screen. (See help for this command for more information) + +You can determine if you are an authorized user when you enter the utilities +list screen by the initial message that is displayed in the upper-left hand +corner of the screen. If the message says%**** UPDATE MODE ****+then you are +an authorized user. If the message says%**** READ-ONLY MODE ****+then you are +not an authorized user. % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZUP = UTILH055 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH057 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {*******************{ { %{ {* Selection Field *{ { %{ {*******************{ { % +The%SEL+(selection) field allows you to process commands against a specific +utililty. You may specify processing against more than one utility at a time +by specifying a line command in the selection field next to more than one +utility list row. % +The following line commands are valid for the selection field and will be +presented in sequence or may be selected by name. % % D+- Delete a utility description % H+- Display Help for a utility % I+- Insert a new utility into the table % S+- Select a utility to view the description % V+- View the code for a utility % X+- eXecute a given utility % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZSEL = TRANS(&ZCMD D,UTILH065 H,UTILH066 I,UTILH067 S,UTILH068 V,UTILH069 X,UTILH070 *,'?') )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH058 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {**************{ { %{ {* Name Field *{ { %{ {**************{ { % +The%NAME+field contains the actual name of the utility. This is both the name +of the member in the CLIST library which contains the utility code, and the +name by which the utility is invoked. % % % % % % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH059 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {**************{ { %{ {* Type Field *{ { %{ {**************{ { % +The%TYPE+field contains the name of the utility type catagory into which a +given utility resides. Only certain utility types are valid. To see a full +list of the valid utility types, execute the%UPDTCODE+utility. This will bring +you to a list screen of various codes. At this screen type%s element+to sort +the list by code types and type%l utiltype+to locate the the codes under the +the type of%utiltype+(utility type). You could do this now from this screen by +typing%tso updtcode;s element;l utiltype+and pressing%enter. % +If you are maintaining the utilities list (only authorized user's changes will +be saved) and you enter an invalid utility type on the detail screen, you may +place your cursor on the%Utility Type+field and press%PF12+to choose from a +list of valid utility types. % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH060 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {********************{ { %{ {* Edit Macro Field *{ { %{ {********************{ { % +The%EDIT MACRO+field is a flag field containing a%Y+(yes) or an%N+(no). The %y+indicates that this utility is an%edit macro,+and an%n+indicates that this is +not an%edit macro.+ Edit macros can only be executed from within an%ISPF/PDF +edit session. They are invoked by simply typing the name of the utility (and +associated parameters if any) and pressing%enter.+ Non-edit macro utilities +can be invoked from any ISPF command line by typing%tso xxxxxxxx+(and passed +parameters if any) and pressing%enter. % +A%y+also prohibits execution of a given utility from the utilities list screen. +If the utility has%CLIST WRITE+command help instead of%ISPF PANEL+help, a%y+ +also prohibits displaying the help from the utilities list screen. An%n+means +just the opposite for utilities list execution and help display. % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH061 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {***************************{ { %{ {* Short Description Field *{ { %{ {***************************{ { % +The%SHORT DESCRIPTION+field is simply a short, one-line statement of what the +utility is for or what the utility does. It exists simply to provide a list +screen capability for rapid scanning of available utilities. % % % % % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH062 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {*************************{ { %{ {* Help Panel Name Field *{ { %{ {*************************{ { % +The%HELP PANEL NAME+field is a field which should contain the name of the%ISPF %panel+which contains the help for this utility or is the initial help panel for +a tutorial on this utility. Using this field does not preclude the need for +explicit coding of this value in CLISTs and ISPF panels. It simply provides a +facility for the utilities list program to invoke the help for a given utility +without having to invoke the utility itself (using line command%h+). % +If no help has been written for this utility you should put the panel name %HELPSHEL+in this field. HELPSHEL is a help panel shell which indicates that +"help" has not been written for this utility yet. % +If help has been written but is in the form of%CLIST WRITE+statements imbedded +within the CLIST, this field should be left blank. % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH063 )ATTR ³ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) ³TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL ³COMMAND ===>_ZCMD + ³ ³{ {************************{ { ³{ {* ISPEXEC SELECT field *{ { ³{ {************************{ { ³ +The³ISPEXEC SELECT+field is a field in which to store the remainder of a³CLIST- ³format ISPEXEC SELECT+command which would invoke this utility. For instance, +if this utility is a CLIST named GETDATA, you would fill in this field with the +value³CMD(%GETDATA)+which would be then used by the utilities list program to +invoke the%getdata+CLIST when the user placed an%x+next to the utility name. +It would form a complete command of³ISPEXEC SELECT CMD(%GETDATA)+within the +utilities list program. ³ +You may specify anything in this field that is valid for the%ISPEXEC SELECT +command such as programs, panels, passed parameters, etc. ³ +If it is not valid to execute a given utility in this manner (e.g. it's an +Edit Macro), this field should be left blank. ³ ³ ³HELP+(PF1 usually) for tutorial help ³END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH064 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {*****************************{ { %{ {* Detail Description Fields *{ { %{ {*****************************{ { % +The%Detail Description+fields are used to provide the user of the utilities +list facility with enough information to use a given utility effectively, or +to point the user to where more information can be obtained. It is a free +format text area, so anything could be put there, and none of the lines are +required. It is advised, however, that information such as syntax (with +examples), valid parameters, typical input, typical output, good practical +uses, further description, etc. % +If the user wants to get a hardcopy of the detail description information on +each utility, they can issue the%PT+command from the utilities list screen +with the%FULL+option. They would type%PT FULL+and press%enter+to get this +report. % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH065 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {********************{ { %{ {* "D" Line Command *{ { %{ {********************{ { % The%D+line command will%delete+a row from the utilities list screen (the%UTILITY +ISPF table). Place a%d+next to the row you would like to delete and press %enter.+ The row will then be deleted. If you are not an authorized user, your +deletes will not be saved. If you are an authorized user,%you will delete the %table rows ! % +If you want a hard copy of the utilities table with only a subset of rows (e.g. +only Edit Macros), you could delete all of the non-Edit Macro rows and then +issue the%PT+command, and your report would only contain Edit Macros. If you +are an authorized user (i.e. the utilities list panel gives you the message %*** UPDATE MODE ***+when you first enter) you should%not+use this technique. % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH066 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {********************{ { %{ {* "H" Line Command *{ { %{ {********************{ { % +The%H+line command allows the user to view%help text+associated with a given +utility. There are some caveats regarding this command : % %1.+There may not be any help written for a given utility yet. If this is the + case, you may be shown a shell panel with a message stateing this fact. % %2.+Help for Edit Macros must be in%ISPF panel+format to be displayed via this + method. If Edit Macro help exists solely in the form of%CLIST WRITE + statements immbedded in the utility, you may view the help by invoking the + utility with the%help+parameter. To do this, you would go into edit of any + file and type%xxxxxxxx help+(where%xxxxxxxx+is the Edit Macro name) on the + command line and press%enter.+ This would display the help, but not perform + any processing (note : this method would also work with%ISPF PANEL+mode + help. % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH067 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {********************{ { %{ {* "I" Line Command *{ { %{ {********************{ { % +The%I+line command allows the user to%insert+new utilities into the utilities +list. Only those rows inserted by%authorized users in update mode+will be +saved. % +Placing an%i+next to any utilities list line and pressing%enter,+will bring the +user to the utilities list detail entry/update screen. From here, the user may +enter data regarding the new utility. Pressing%enter+on the detail screen will +save the updates, and pressing%end+(PF3 usually) on the detail screen will +return the user to the list screen (with changes since the last%ENTER+not saved +to the table). % +The following topic will be presented only if selected by number. % % 1.+How to use and fill out the detail screen. % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZSEL = TRANS(&ZCMD 1,*UTILH052 *,'?') )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH068 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {********************{ { %{ {* "S" Line Command *{ { %{ {********************{ { % +The%S+line command will%select+the given row for viewing of the detailed +utility description. You may overtype the fields on the detailed description +screen, but if you are not an%authorized user in update mode,+your changes will +not be saved. % +The following topic will be presented only if selected by number. % % 1.+How to use and fill out the detail screen. % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZSEL = TRANS(&ZCMD 1,*UTILH052 *,'?') )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH069 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {********************{ { %{ {* "V" Line Command *{ { %{ {********************{ { % +The%V+line command allows authorized users to view the source code of a given +utility. The utilities list program attempts to first%edit+the member in the +project%CLIST+library with the same name as the utility selected on the +utilities list screen. If this is unsuccessful, an attempt is made to%browse +the member. % % % % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH070 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {********************{ { %{ {* "X" Line Command *{ { %{ {********************{ { % +The%X+line command allows the user to%execute+a given utility on the utilities +list screen. Only utilities that are valid to be executed in this mode%(i.e. %Edit Macros are not)+will actually be invoked. When the utility is finished, +control is returned to the utilities list screen. % % % % % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH071 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {***********************{ { %{ {* "L" Primary Command *{ { %{ {***********************{ { % +The%L+(locate) command allows you to position the table display on the line +where the string you're locating is%less than or equal+to the string in the +table column which was last used as the%primary+sort column. For instance if +you have not issued the%SORT+command at all, the table is sorted in%utility %name+order. Therefore, typing%l xxxxxxxx+and pressing ENTER positions the +table display on the row where the utility name =%xxxxxxxx+or the first row +where the utility name was greater than%xxxxxxxx. % % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH072 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {************************{ { %{ {* "PT" Primary command *{ { %{ {************************{ { % +The%PT+command stands for%print table+and provides the user with a hardcopy of +the utilities table. It uses the user defaults set up by executing utility %UPDTUSER+and executes the DOW print utility%DOWPRINT+to actually print the +report. Just typing%PT+will give you the information shown on the table list +screen. If you type%PT FULL,+you will get a report that shows the full +detailed description of each utility. The report will be in the sort order of +the last%SORT+command. % % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH073 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ UTILITES LIST {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {************************{ { %{ {* SORT Primary Command *{ { %{ {************************{ { % +The%SORT+command allows you to sort the table display in any field comination +order (ascending only). Type sort%column1 column2...columnx+to change the sort +order of the screen. This can be quite helpful if, for instance you want to +see which utilities are available for datasets in alphabetical order, grouped +by whether they are%EDIT MACROs+or not. To do this, you would type%SORT TYPE %MACRO NAME+on the command line. Since%TYPE+was the first sort parameter, +values in this column may now be%located+using the%L+command. In this example +you would type%l dataset+to position the table display on the first row where %TYPE=dataset. % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH074 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2UNLD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%DB2UNLD+utility provides an easy way to unload%DB2 tables+to sequential +files for future loading. %DB2UNLD+is%CLIST-based+so it can be executed via +typing%tso db2unld+on any%ISPF+command line and pressing%ENTER.+ % +The fields on the screen are filled out as follows : % %Table or View Name+can be filled in with either the%DB2 table name+or the%DB2 %view+associated with a given table. For example, assume that table%T00101+has +an associated view named%INQUIRY.+ You may type%t00101+or%inquiry+into this +field. %DB2UNLD+will then query the%DB2 catalog+to determine which of these is +the view name, and then use the view name in its processing. Therefore, if you +type in%t00101+or%inquiry, inquiry+will be used. % %DB2 Subsystem+must be filled in with the proper%DB2 subsystem name+in which the +desired table or view resides. This field is generally pre-populated with the +default value for your project. % % (Cont...) % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZCONT = UTILH075 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH075 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2UNLD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %DB2 Database+must be filled in with the name of the%DB2 database+in which the +desired table or view resides. This field is typically pre-populated with the +default value for your project. % %Output Dataset Name+may be filled in with the name in which the%DB2 table+is to +be unloaded. If not specified, the output dataset will default to %&ZUSER..LOAD.xxxxxxxx+where%xxxxxxxx+is the%first 8 characters+of the%DB2 view %name.+ The output dataset will be%deleted+and%replaced+if it already exists. +The output dataset may be a%GDG+with a%relative GDG number+(or explicit %"goovoo").+ However, generations which did not already exist may cause other +generations to%"fall off"+of the GDG index, by their creation. If, for some +reason, the relative GDG dataset is%invalid+then the output dataset name will +revert to the default. % +There are%three+selection fields which follow the output dataset field. These +fields are used to direct output to%none, any,+or%all+of three different +destinations. The output is not the data itself, but small%"report"+which +indicates in which%output dataset column+each%DB2 column+in the table begins. % (Cont...) %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZUP = UTILH074 &ZCONT = UTILH093 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH076 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%DB2LOAD+utility facilitates the loading of data into%DB2 tables+from %sequential+files (or%PDS+members). %DB2LOAD+should not be confused with%DB2's %"LOAD"+utility program. In fact,%DB2LOAD+was written due to the limitations of +the%DB2LOAD+utility. %DB2's "LOAD"+utility is not limited in%functionality+in +any way, rather in%access. "DBADMN"+or%"DBCTL"+authority are required to +execute%DB2's "LOAD"+utility, however, this level of authority allows other +capabilities that should remain restricted to application and system%DBAs. + %DB2LOAD+uses%ISPF+services, a special%COBOL II+program, and the%DB2+sample +program%DSNTEP2. DB2LOAD+does not currently support the%graphic DB2 datatypes. + +The following field descriptions will be presented in sequence or may be +selected by number. % %1.+Table/View Name%4.+Load Table From %7.+R/C Scroll # %10.+Sort Card Dsn %2.+Subsystem %5.+Curr Rec %8.+Find String %11.+Execute Load Now %3.+Database %6.+Load Dataset Scroll%9.+Prev/Next %12.+Review Jcl Prior % 13.+Defining the load fields to the DB2 table. to Submission %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZSEL = TRANS(&ZCMD 1,UTILH077 2,UTILH078 3,UTILH079 4,UTILH080 5,UTILH081 6,UTILH082 7,UTILH083 8,UTILH084 9,UTILH085 10,UTILH086 11,UTILH087 12,UTILH088 13,UTILH089 *,'?') )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH077 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {*******************{ { %{ {* Table/View Name *{ { %{ {*******************{ { + +The%Table/View Name+field is the name of the%DB2 table+or%view+into which you +wish to insert data. %DB2LOAD+will validate the name entered in this field with +the%DB2 Catalog+to determine if it exists. If it does exist, and if the name +specified was a%table,+and not a%view, DB2LOAD+will find the%view+name +associated with the%table+and substitute it for the%table+name. This is done +since priviledges are generally given on%DB2 views+as opposed to%DB2 tables +(i.e. you may be able to act upon a given%DB2 view+when you have no authority +to act upon its associated%table(s)). + %DB2LOAD+will then query the%DB2 Catalog+for the%view structure+(i.e. column +definitions) and use it in subsequent processing. + +You may change the table name by%overtyping+it, and the%DB2 Catalog+will be %re-queried+for the new table structure definition without having to%exit+and %re-enter+the utility. %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH078 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {*************{ { %{ {* Subsystem *{ { %{ {*************{ { + +The%Subsystem+field must be filled out with the name of the%DB2 subsystem+in +which the selected%DB2 database+resides. This field will generally be %pre-populated+with the subsystem associated with your project. %DB2+is unable +to locate the proper database and table without this information. + + + + + + + + + + + %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH079 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {************{ { %{ {* Database *{ { %{ {************{ { + +The%Database+field must be filled out with the name of the%DB2 database+in +which the selected%DB2 table+resides. This field will generally be %pre-populated+with the database associated with your project. %DB2+is unable to +locate the proper table without this information. + + + + + + + + + + + %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH080 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {*******************{ { %{ {* Load Table From *{ { %{ {*******************{ { % +The%Load Table From+field must be filled out with the name of the%sequential %file+or%PDS dataset+(and member) which contains the data to be loaded into the +selected%DB2 table.+ This dataset may also be a%GDG member+specified with a %relative GDG generation number.+ This dataset may also be changed by%overtyping +without having to exit the utility and re-enter, which effectively allows you +to%enter data from more than one dataset into a single table.+ When you enter a +dataset name for the first time, or change the dataset name, the dataset name +is%validated,+and the%first record from the dataset is displayed+on the panel. +This dataset may then be%scrolled up, down, left, and right+to view various +parts of it. This scrolling enables the user to determine which column +positions in the%dataset+relate to which columns in the%target DB2 table. %Strings+may also be found in this dataset. % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH081 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {************{ { %{ {* Curr Rec *{ { %{ {************{ { % +The%Curr Rec+field is maintained by%DB2LOAD+and is%protected.+ It contains the %record number+of the record currently being displayed on the screen, of the +dataset that is being loaded into the table. Initially, (and when you change +input dataset names) the value will be%1.+ However, if you were to scroll +forward five lines,+the value would be%6+(line 1 + 5 lines of scrolling). If +you search for a string, and it is found, the line which contains the string is +displayed, and the associated line number is in%Curr Rec. % % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH082 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {***********************{ { %{ {* Load Dataset Scroll *{ { %{ {***********************{ { % +The%Load Dataset Scroll+field may be populated with a%U, D, L or R+to specify +the direction you would like to scroll in the dataset being loaded into the DB2 +table. %U+is for%UP, D+is for%DOWN, L+is for%LEFT,+and%R+is for%RIGHT.+ After +you have scrolled, this field is blanked out to keep you from scrolling when +you did not mean to. The normal%scroll commands+and%PF keys+are already being +used to scroll the display of the%DB2 table structure,+ hence the need for this +field. % +You may not request a%scroll+function and a%string search+function %simultaneously.+ This will produce an error message. % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH083 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {*************************{ { %{ {* Rows/Columns Scroll # *{ { %{ {*************************{ { % +The%Rows/Columns Scroll #+field indicates how far to scroll in the given scroll +direction. For%up+and%down,+this field refers to number of%rows+or%records+to +scroll in the%load dataset.+ For%left+and%right,+this field refers to the +number of%columns+to scroll on the current record being displayed from the load +dataset. If a value is specified that would take you%past the boundries+of the +load dataset%(i.e. before record #1, past end of file, before column #1, past %the width of the data line),+you will go to%just the boundry,+and the scroll +number will be adjusted accordingly. If you are already at the boundry of the +load dataset in any direction, and you try to proceed further in that +direction, you will receive an error message, and%no scrolling action will %occur.+ The scroll amount will remain between invocations of a scroll function. +If no scroll value is specified, it will%default+to%screen width+for%left+and %right,+and%1+for%up+and%down. % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH084 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {***************{ { %{ {* Find String *{ { %{ {***************{ { % +The%Find String+field can be filled in with a%text string+to find in the%load %dataset.+ The string to be input is%not case sensitive,+so either%upper,lower +or%mixed+case representations of the string to be found will be considered +matches. The default find direction is%next+(i.e. like the%ISPF edit+default), +but you may specify a search%previous to the current record+by placing a%P+in +the%Next/Prev+field. Both the%search string+and the%Next/Prev+value will +remain until changed. You cannot both execute a%find+process and a%scroll +process. One or the other must be%blanked out.+ If the string is%not found+in +a given invocation of the search, the display will remain on the%current record +and a%NOT FOUND+message will be displayed. % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH085 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {*************{ { %{ {* Prev/Next *{ { %{ {*************{ { % +The%Prev/Next+field simply indicates which%direction+to search if a%string %search+is invoked. It must have a value of%P+for%previous+or%N+for%next.+ The +value initially is set to%N+for%next.+ Previous indicates the line%before+the +line displayed. Next indicates the line%after+the line displayed. Multiple +string findings on%a given line+are not supported. % % % % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH086 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {******************{ { %{ {* Sort Cards Dsn *{ { %{ {******************{ { % +The%Sort Cards Dsn+field indicates the name of a%dataset+which contains %SyncSort+(tm) sysin processing cards that are to be executed against the load +dataset%prior to loading the data into DB2.+ The%presence+of this dataset +indicates that the SyncSort (tm) step%is to be executed,+and the%absence+of +this dataset indicates that it%is not to be executed.+ This feature can be +quite helpful if the data to be loaded into DB2 was unloaded with the%DB2UNLD +utility and the data description was%prefixed to the data file.+ By utilizing +the%OMIT+sort card, unwanted records can be excluded from the load dataset +prior to processing. This feature also allows%sorting of the data prior+to +load, so that the data will be in DB2 in the most desirable initial order. % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH087 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {********************{ { %{ {* Execute Load Now *{ { %{ {********************{ { % +The%Execute Load Now+field must contain an%N+for%no+or a%Y+for%yes.+ It simply +indicates that you are finished defining the relationship between the%load %dataset+and the%target DB2 table,+and you are ready to create the JCL to +execute the load into DB2 and alternately%submit the job+or%edit the JCL.+ When +the job has been submitted, or the JCL has been edited, you will be returned to +the%DB2LOAD+utility screen, with the value in this field changed to%N+for%no. +This allows you to change either the target table/view name and/or the load +dataset name, or the sort dataset name, and re-invoke the load. % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH088 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {**********************************{ { %{ {* Review JCL Prior to Submission *{ { %{ {**********************************{ { % +The%Review JCL Prior to Submission+field must contain an%N+for%no+or a%Y+for %yes.+ An%n+indicates that when you execute the load, the JCL is to be created +and%submitted in the backround.+ A%y+indicates that once the JCL is created, +you are to be taken into an%ISPF edit+of the file containing the JCL. This +allows you to modify the JCL, store it for later use, copy it for different +use, etc. It will%not be submitted automatically+if you review the JCL. You +must invoke the job via the%SUBMIT+command. This feature can be quite helpful +if loading a very large file since some of the intermediate datasets within the +job have fixed space allocations. If the job should%abend+with a space +problem, you could re-invoke the%DB2LOAD+utility and this time place a%Y+in %Review JCL Prior to Submission.+ Now you could up the space on the necessary +files and re-submit the job. % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH089 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %{ {*********************************************{ { %{ {* Defining the Load Fields to the DB2 Table *{ { %{ {*********************************************{ { % +This is the essential function of this utility (other than the actual load). +It is designed such that the user does not have to go to multiple files and +create JCL to load data from a%flat file+into a%DB2 table.+ When you invoke %DB2LOAD,+you are presented with a panel in which you can specify (among other +things) what dataset is to be loaded into which table. When you do this, %DB2LOAD+will first find the table or view name in the%DB2 catalog,+and get the +definition of all the columns in the table. This definition is then displayed +in the form of an%ISPF table display+on the screen. + +Next,%DB2LOAD+will validate your input load dataset and display the first +record on the screen. Directly above the record that is displayed, is a%column %scale.+ Now that you have the layout of the load dataset, and the definition of +the DB2 table in front of you, you can go about matching a given DB2 table +column with a pair of column boundries in the load dataset. % (Cont...) %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZCONT = UTILH090 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH090 )ATTR DEFAULT(%??) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ? TYPE(TEXT) INTENS(LOW) COLOR(BLUE) ? TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) ~ TYPE(TEXT) COLOR(TURQ) ` TYPE(TEXT) COLOR(YELLOW) @ TYPE(TEXT) COLOR(RED) # TYPE(TEXT) COLOR(PINK) } TYPE(TEXT) COLOR(GREEN) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>?ZCMD ? % ~Table/View Name ==>`INQUIRER ~Subsystem ==>`D2P1~Database ==>`T4300TMG ~Load Table From ==>`&ZUSER..LOAD.INQUIRER ~Curr Rec:@1 ~Load Dataset Scroll ==>` ?(Up,Down,Left,Right)~Rows/Columns Scroll # ==>`1 ~Find String ==>` ~Prev/Next:`N~(P/N) }----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---- # * ` ~Edit ?`N~(Y/N) ~Execute Load Now ?`N~(Y/N) Review JCL Prior to Submission ?`N~(Y/N) ?Key DB2 Field Name Col. 1 Col. 2 Default Value-if "not null" ?--- ------------------ ------- ------- ------------------------------- @ 1 INQUIRER_ID `1 `4 `0 @NOT NULL %+-----------------------------------------------------------------------------+ %|This is a model of the DB2LOAD screen. You'll notice that the 1st record of | %|&ZUSER..LOAD.INQUIRER is being displayed. Assuming you know the layout of | %|your input file, you say that columns 1-4 in the file = INQUIRER_ID in DB2. | %|There is also a "0" in the default values column. Since this field is a "not| %|null" field, "0" would be entered into INQUIRER_ID if columns weren't entered| %+-----------------------------------------------------------------------------+ % (Cont...) %HELP?(PF1 usually) for tutorial help %END?(PF3 usually) to quit help and return )PROC &ZCONT = UTILH091 &ZUP = UTILH089 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH091 )ATTR DEFAULT(%??) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ? TYPE(TEXT) INTENS(LOW) COLOR(BLUE) ? TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) ~ TYPE(TEXT) COLOR(TURQ) ` TYPE(TEXT) COLOR(YELLOW) @ TYPE(TEXT) COLOR(RED) # TYPE(TEXT) COLOR(PINK) } TYPE(TEXT) COLOR(GREEN) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>?ZCMD ? % ~Table/View Name ==>`INQUIRER ~Subsystem ==>`D2P1~Database ==>`T4300TMG ~Load Table From ==>`&ZUSER..LOAD.INQUIRER ~Curr Rec:@1 ~Load Dataset Scroll ==>` ?(Up,Down,Left,Right)~Rows/Columns Scroll # ==>`1 ~Find String ==>` ~Prev/Next:`N~(P/N) }----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---- # * ` ~Edit ?`N~(Y/N) ~Execute Load Now ?`N~(Y/N) Review JCL Prior to Submission ?`N~(Y/N) ?Key DB2 Field Name Col. 1 Col. 2 Default Value-if "not null" ?--- ------------------ ------- ------- ------------------------------- @ 1 INQUIRER_ID `1 `4 `0 @NOT NULL %+-----------------------------------------------------------------------------+ %|You could also specify a different value in the defaults field (whether this | %|is a "not null" field or not), and that value would be loaded into every row | %|for that column. In the case above, INQUIRER_ID, you would not want to do | %|that since INQUIRER_ID is specified as a KEY field, and as such, must be | %|unique. | %+-----------------------------------------------------------------------------+ % (Cont...) %HELP?(PF1 usually) for tutorial help %END?(PF3 usually) to quit help and return )PROC &ZCONT = UTILH092 &ZUP = UTILH090 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH092 )ATTR DEFAULT(%??) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) ? TYPE(TEXT) INTENS(LOW) COLOR(BLUE) ? TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) ~ TYPE(TEXT) COLOR(TURQ) ` TYPE(TEXT) COLOR(YELLOW) @ TYPE(TEXT) COLOR(RED) # TYPE(TEXT) COLOR(PINK) } TYPE(TEXT) COLOR(GREEN) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2LOAD UTILITY {-{ TUTORIAL %COMMAND ===>?ZCMD ? % ~Table/View Name ==>`INQUIRER ~Subsystem ==>`D2P1~Database ==>`T4300TMG ~Load Table From ==>`&ZUSER..LOAD.INQUIRER ~Curr Rec:@1 ~Load Dataset Scroll ==>` ?(Up,Down,Left,Right)~Rows/Columns Scroll # ==>`1 ~Find String ==>` ~Prev/Next:`N~(P/N) }----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---- # * ` ~Edit ?`N~(Y/N) ~Execute Load Now ?`N~(Y/N) Review JCL Prior to Submission ?`N~(Y/N) ?Key DB2 Field Name Col. 1 Col. 2 Default Value-if "not null" ?--- ------------------ ------- ------- ------------------------------- @ 1 INQUIRER_ID `1 `4 `0 @NOT NULL %+-----------------------------------------------------------------------------+ %|You may specify anything in the defaults field which would be a legal value | %|in an SQL INSERT statement (including CURRENT DATE, TIME, and TIMESTAMP). | %|If column numbers are specified for a given DB2 column, any default value for| %|that column will be ignored. The default values are initialized to values | %|that are compatible with the DB2 data type. | %+-----------------------------------------------------------------------------+ % End of DB2LOAD Help %HELP?(PF1 usually) for tutorial help %END?(PF3 usually) to quit help and return )PROC &ZUP = UTILH091 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH093 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2UNLD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + + +Selecting the%first+destination indicates that you wish the output to%remain %with the data.+ In this case, the first lines in the output dataset are the +lines which describe in which dataset columns the DB2 columns begin. Each of +these lines begins%** comment line **+so that it can be stripped out with sort %OMIT+cards in the%DB2LOAD+utility pre-load sort step. + +Selecting the%second+destination indicates that you wish the output to be %printed+in the form of a%short report.+ If you select this option, your%sysout %delivery box+field must also be%non-blank.+ Selecting the%third+destination +indicates that you wish the output to be#displayed in the job sysout. + %All+or%none+or%any combination+of these fields may be selected. + +The%DB2 LOAD Utility Format Dataset Name+field is the place for the name of the +dataset which will contain the layout of the output data which is in the format +compatible for the%DB2 LOAD+utility (not to be confused with the%CMC DB2LOAD +utility). If your%DBA+needs to load your data using%DB2's LOAD+utility, he/she +will need this dataset. % (Cont...) %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZUP = UTILH075 &ZCONT = UTILH097 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH094 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR SPUFI UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + + +The%SPUFI+edit macro allows you to process%DB2 SQL+commands which are in a file +that you are%editing.+ For instance, if you are editing a%COBOL+program and +want to test your%DB2 cursor+code, you could make a legal%SPUFI-type SQL +statement, execute the%SPUFI+edit macro, see your results, and%never leave your %program edit session. + +The%SPUFI+edit macro extracts the desired lines and uses them as input to%DB2 +sample program%DSNTEP2+which is designed just for%executing SQL.+ It is +important to note that%DSNTEP2+output differs from that of%DB2I SPUFI.+ %DSNTEP2's+output is formatted into a%133 column-wide report+regardless of the +width of the result of the%"projection"+portion of a%SELECT SQL+statement. +This has some advantages and disadvantages depending upon what you want to use +the output for. If you are looking for%quick results+to see if your query is +right, or trying to do a quick%INSERT, DELETE,+or%UPDATE,+or need your output +to fit on a%hard copy report,+the%DSNTEP2+output is excellent. If, however, +you are looking to use the output as%input to another process,+it could be +cumbersome. % (Cont...) + %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZCONT = UTILH095 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH095 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR SPUFI UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The syntax of%SPUFI+is relatively simple. % +If your entire file is%valid SQL+and you want to submit it for%interactive +processing, you would invoke%SPUFI+with the following command. %COMMAND ==> spufi % +If your entire file is%valid SQL+and you want to submit it for%batch+processing +you would invoke%SPUFI+with the following command. %COMMAND ==> spufi batch % +If you only wish to submit a%subset+of the lines in your file to%SPUFI+for %interactive+processing, you would first%label+your lines with%ISPF+edit lables +such as%.a+or%.b.+ For sake of example let's assume that you've labeled the +beginning of your%SQL+with%.a+and the end of it with%.b.+ Your command to +invoke SPUFI would be : %COMMAND ==> spufi .a .b % % (Cont...) % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZUP = UTILH094 &ZCONT = UTILH096 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH096 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR SPUFI UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +If you only wish to submit a%subset+of the lines in your file to%SPUFI+for %batch+processing, you would first%label+your lines with%ISPF+edit lables such +as%.a+or%.b.+ For sake of example let's assume that you've labeled the +beginning of your%SQL+with%.a+and the end of it with%.b.+ Your command to +invoke SPUFI would be : %COMMAND ==> spufi .a .b batch + +You may want to execute%SQL+which you anticipate will run for a while in%batch +mode as%interactive+mode ties up your terminal. + +It is also important to note another difference between the way%DB2I SPUFI +processes%SQL+and the way%DSNTEP2+processes%SQL. DSNTEP2+does not allow +comments. Therefore the%--+character string typically used in%DB2I SPUFI+will +be treated as an error by%DSNTEP2. % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZUP = UTILH095 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH097 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR DB2UNLD UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + + %Review JCL Prior to Submission+must be filled in with a%Y+for%yes+or an%N+for %no.+ If you specify%Y,+you will be taken into an%edit session+of the JCL that +is created. You must then%submit the JCL yourself+if you wish to go ahead with +the process. Specifying%N+in this field will%submit the job for you. % % % % % % % % % % % % % % % %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZUP = UTILH093 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH098 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR LINEUPTO UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + + +The%LINEUPTO+utility automatically scans a%COBOL+program and attempts to align +all the%"TO"s+within a given%section+or%paragraph.+ It processes each %paragraph/section+seperately performing the following sequence of functions : + %1.+Move all%"TO"s+as far%left+as possible within the constraints of%COBOL + coding rules. + %2.+Determine which is the%rightmost "TO"+within the%paragraph/section. + %3.+Attempt to%line up+all the%"TO"s+with the%rightmost "TO". + +If a given line cannot be shifted any further to the right%(i.e. it would go %past column 72)+it will be marked as an%"error"+line with the%ISPF/PDF+edit +line error marking of%"==ERR>"+next to it. To see which lines were unable to +be aligned, type%"l err"+on the command line and press%enter.+ This will +position you at the specific line. You may then make%manual adjustments+as +needed to align the%"TO"s+in that given%paragraph/section. + + %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH099 )ATTR DEFAULT(%+|) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) | TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR EXPLAIN UTILITY {-{ TUTORIAL %COMMAND ===>|ZCMD + + +The%EXPLAIN+edit macro will run a%DB2 "explain"+on a given%SQL+statement, %interpret+the explain results into understandable english, and then insert that +interpretation as%edit "message" lines+right after the%SQL+statement being +"explained". It is specifically designed for explaining%SQL calls imbedded %within programs. + +To execute%EXPLAIN,+you type%explain+on the command line, place your cursor on +the the line of the%SQL+call you want to explain which contains+EXEC SQL,% +and press%.+ You will receive several messages indicating what step of +the process is executing. Then when you come back to your edit screen, your +explain results will be directly below your%SQL+statement. + %EXPLAIN+operates in a default mode of%INSERT+as outlined above. In addition to %INSERT,+you may specify%FILE, EDIT,+and%PRINT+as passed parameters when +executing%EXPLAIN.+ You may specify%none,+or%any+or%all+of these parameters%in %any order. % (Cont...) + %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZCONT = UTILH100 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH100 )ATTR DEFAULT(%+|) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) | TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR EXPLAIN UTILITY {-{ TUTORIAL %COMMAND ===>|ZCMD + + %INSERT+(the default) specifies that the interpreted explain results are to be +inserted as%ISPF edit "message" lines+in the file being edited immediately +after the%SQL+statement being explained. If another parameter is specified, %INSERT+must be explicitly specified as well to have the%"message"+lines +inserted. + %FILE+specifies that the interpreted results, the actual%PLAN_TABLE+values and +the%SQL+call being explained are to be placed in an output file. This file +will be named%&ZUSER..TEMP.EXPLAIN.OUTPUT. + %EDIT+specifies that the results dataset created by the%FILE+command is to be +edited using the%ISPF+editor. %EDIT+invokes an%implicit FILE+command so that +when you specify%EDIT+you do not need to specify%FILE+as well...though you may. + %PRINT+specifies that the results dataset created by the%FILE+command is to be +printed. %PRINT+invokes an%implicit FILE+command so that when you specify%PRINT +you do not need to specify%FILE+as well...though you may. + + %HELP+(PF1 usually) for tutorial help %END+(PF3 usually) to quit help and return )PROC &ZUP = UTILH099 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH106 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR PRINTIT UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%PRINTIT+utility allows printing of %sequential+and%PDS+datasets. Specific print specifications are handled with what are called%"print configurations".+ Each print configuration specifies a destination, appropriate print parameters from the%OUTPUT JCL+command, and the ability to specify up to%13+different%ISPF skeletons+to use to create the JCL. To use%PRINTIT,+you specify the dataset name, any necessary%JOB+parameters, and then%"select"+a print configuration (using an%"S"+next to the desired configuration). When you select a print configuration and press%,+the JCL is created and submitted. +The following information will help you fill in the necessary fields. Available%"line commands"+can be found by typing a%"?"+next to any print configuration and pressing%. %Dataset name+ Type the dataset name to be printed in this field. If the dataset to be printed is a%single PDS member,+type the entire name here with the member name. If%multiple members+are to be printed just put the%PDS name+here. %Relative GDG generations+will be resolved if specified here. +Press%ENTER+to continue or use the%END+command to return to%PRINTIT. )PROC &ZCONT = UTILH107 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH107 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ "PDS" Utility Member Name Groups {-{ TUTORIAL %COMMAND ===>_ZCMD + % %"PDS" format member group+ This field allows specifications of%PDS member groups+ to print. Valid syntax is as follows: %aa AA %(aa,bb) %AA+and%BB %(aa,bb/) %AA+and any member names containing%BB %: +all members --%X'00'+through%X'FF'+ %aa: +members from%AA...+through%X'FF' %:bb +members from%X'00'+through%BB... %aa:bb +members between%AA...+and%BB...+inclusive %(abc,d:) +member%ABC+and those from%D...+through%X'FF' %aa/ +member names containing%AA+anywhere %/bb +member names containing%BB+anywhere %aa/bb +member names containing%AA+and%BB %(aa/,bb/) +member names containing%AA+or%BB %aa* +members with names%AA... %*bb +member names containing%BB+anywhere %aa*bb +member with names%AA...+and%BB+elsewhere %(aa*,bb/,xyz) +members with names%AA...+or with%BB+anywhere, and%XYZ +Press%ENTER+to continue or use the%END+command to return to%PRINTIT. )PROC &ZCONT = UTILH108 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH108 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR PRINTIT UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % %Job name character suffix+ This field defaults to%"P"+but may be over-typed to facilitate concurrent print jobs to run. %Job access code+ Type the access code necessary to run the batch print job in this field. %Job Class+ Type the job class character in which you want the batch print job to run. %Sysout delivery location+ Type the sysout delivery location here where you would like the print to be delivered. %Carriage control+ Type an%A+here if your dataset has%ANSI+control characters, and an%M+if it has machine control characters, and a%blank+if no carriage control is used. If specified, this field will override the%RECFM+of the dataset. %Job card programmer name+ Type what ever you want in this field. %Number of copies+ This field will override the number of copies specified in the selected print configuration if it is greater than%0. %Review JCL+ Type%Y+ in this field if you would like to edit the JCL created and submit the job yourself. Type%N+if you wish the job to be submitted automatically for you. +Press%ENTER+to continue or use the%END+command to return to%PRINTIT. )PROC &ZCONT = UTILH109 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH109 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR PRINTIT UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%PRINTIT+configuration specification panel has help associated with each of the specific%OUTPUT JCL+parameters. To see this help, just type a%"?"+on any of the fields. For more help, consult an%MVS JCL+manual of recent vintage. To create a new print configuration which is%"modeled"+after an existing one, overtype the existing print configuration name with the new one. Change any parameters you wish and the short description if needed and%"END"+out of the screen. This will create the new print configuration. If the print configuration name is not changed, the changes made to the print parameters will be reflected in this configuration. You may cancel the changes you have made by typing%"CANCEL"+on the command line. The only print configuration values which are required are%DEST, COPIES,+and %CLASS.+ These will default to%LOCAL, 1,+and%Y+respectively. You may also get to the print configuration%ISPF+skeleton specification screen from this screen by placing a%"Y"+in the%Go To Extended Skeleton Screen+field. +Press%ENTER+to continue or use the%END+command to return to%PRINTIT. )PROC &ZCONT = UTILH110 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILH110 )ATTR % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) )BODY EXPAND({{) %TUTORIAL {-{ HELP FOR PRINTIT UTILITY {-{ TUTORIAL %COMMAND ===>_ZCMD + % +The%PRINTIT+skeleton specification panel is where you indicate which%ISPF skeletons+will be used to create the batch print job. Several skeletons will be pre-populated when creating a new print configuration. You may choose to use the provided default skeletons or supply your own or any mix of the two, up to%13+seperate skeletons. The skeletons which are supplied are: %PRINTIT1+ This contains the%JOB+card. %PRINTIT2+ This contains the%JOBPARM+card. %PRINTIT3+ This contains the%OUTPUT JCL+card. %PRINTPDS+ This contains the step which allows%PDS multi-member+printing. %PRINTIT4+ This contains the step which actually prints the dataset. +Use the%END+command to return to%PRINTIT. )PROC &ZCONT = UTILH106 )END /* &ZIND = YES INDICATES THAT THIS IS AN INDEX PAGE */ /* &ZUP = PANELNAME NAME OF PREVIOUS HELP PANEL */ /* &ZCONT = PANEL NAME NAME OF NEXT HELP PANEL */ /* &ZSEL = TRANS(&ZCMD 1,PANELA 2,PANELB 3,PANELC *,'?')*/ /* THIS INDICATES WHICH PANEL GOES WITH WHICH OPTION # */ ./ ADD NAME=UTILITY )ATTR | TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(PINK) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON) \ TYPE(TEXT) INTENS(LOW) COLOR(GREEN) $ TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) _ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) ~ TYPE(INPUT) INTENS(HIGH) COLOR(WHITE) CAPS(IN) PAD('_') ¬ TYPE(INPUT) INTENS(HIGH) COLOR(RED) CAPS(ON) › TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) @ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) ` TYPE(OUTPUT) INTENS(HIGH) COLOR(TURQ) CAPS(OFF) SKIP(ON) )BODY EXPAND({{) ›ZDATE ${ {Unipac Utilities List { {›ZTIME %COMMAND ==>_ZCMD %SCROLL ==>¬Z + % %?|on the command line or next to a table row for a list of valid commands $ Edit $Sel Name Type Macro Short Description $--- -------- ------- ----- --------------------------------------------------- )MODEL ROWS(&SCANALL) ~Z+@UTNAME @UTTYPE @Z `UTSDESC )INIT &ZHTOP = UTILH047 .ZVARS = '(ZSCML SEL UTMACFLG)' &ZCMD = &Z &SEL = &Z VGET (SCANALL) SHARED )REINIT VGET (SCANALL) SHARED )PROC VPUT (ZSCML) PROFILE )END ./ ADD NAME=UTILITYB )ATTR ³ TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) PAD(' ') SKIP(ON) @ TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) ¬ TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) PAD(' ') CAPS(ON) * TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) PAD(NULLS) CAPS(OFF) } TYPE(TEXT) INTENS(NON) )BODY WIDTH(&ZWIDTH) EXPAND({{) }this line is darkened since the browse service insists on putting a DSN here %{-{ Unipac Utilities {-{ %COMMAND ==>_ZCMD %SCROLL ==>_Z + % + ³Utility Name ==>¬UTNAME ³Edit Macro ==>¬Z\(Y/N/B) ³Last Update DATE :@LUDATE ³Utility Type ==>¬UTTYPE ³ ³Last Update TIME :@LUTIME ³"HELP" Panel Name ==>¬UTHPANEL\( if none) ³Last Update USER :@LUID % % ³ISPEXEC SELECT ==>¬UTEXECMD ³ ³Short Description ==>*UTSDESC ³<==+ )INIT &ZHTOP = UTILH052 &ZCMD = '&Z' .ZVARS = '(ZSCBR UTMACFLG)' &MIXED = MIX /* SET FORMAT MIX */ IF (&ZPDMIX = N) /* IF EBCDIC MODE REQUESTED */ &MIXED = EBCDIC /* SET FORMAT EBCDIC */ )PROC VPUT (ZSCBR) PROFILE )END ./ ADD NAME=UTILITYE )ATTR ` TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) \ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) PAD(' ') SKIP(ON) @ TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) ¬ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) PAD(' ') CAPS(ON) * TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) PAD(NULLS) CAPS(OFF) _ TYPE(INPUT) CAPS(OFF) INTENS(HIGH) FORMAT(&MIXED) ³ AREA(DYNAMIC) EXTEND(ON) SCROLL(ON) USERMOD(20) ! TYPE(OUTPUT) INTENS(HIGH) PAD(-) | TYPE(OUTPUT) INTENS(LOW) COLOR(GREEN) + TYPE(TEXT) INTENS(LOW) SKIP(ON) › TYPE(OUTPUT) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) 01 TYPE(DATAOUT) INTENS(LOW) 02 TYPE(DATAOUT) INTENS(HIGH) 03 TYPE(DATAOUT) SKIP(ON) /* FOR TEXT ENTER CMD. FIELD */ 04 TYPE(DATAIN) INTENS(LOW) CAPS(OFF) 05 TYPE(DATAIN) INTENS(HIGH) CAPS(OFF) 06 TYPE(DATAIN) INTENS(LOW) CAPS(IN) 07 TYPE(DATAIN) INTENS(HIGH) CAPS(IN) 08 TYPE(DATAIN) INTENS(LOW) FORMAT(DBCS) 09 TYPE(DATAIN) INTENS(LOW) FORMAT(EBCDIC) 0A TYPE(DATAIN) INTENS(LOW) FORMAT(&MIXED) 20 TYPE(DATAIN) INTENS(LOW) CAPS(IN) FORMAT(&MIXED) )BODY WIDTH(&ZWIDTH) EXPAND({{) %{-{ Unipac Utilities ---------------- COLS!ZCL!ZCR% %COMMAND ==>_ZCMD / / %SCROLL ==>_Z % % `Utility Name ==>¬UTNAME `Edit Macro ==>¬Z\(Y/N/B) `Last Update DATE :@LUDATE `Utility Type ==>¬UTTYPE ` `Last Update TIME :@LUTIME `"HELP" Panel Name ==>¬UTHPANEL\( if none) `Last Update USER :@LUID % `Enter%ISPEXEC`command below for invocation%( if not applicable) `ISPEXEC SELECT ==>¬UTEXECMD ` `Short Description ==>*UTSDESC `<== `Enter a More Detailed Description Below : ³ZDATA -------------------------------/-/--------------------------------------³ ³ / / ³ ³ ------------------------------------/-/--------------------------------------³ )INIT &ZHTOP = UTILH052 &ZCMD = '&Z' .ZVARS = '(ZSCED UTMACFLG)' &UTHPANEL = HELPSHEL &MIXED = MIX /* SET FORMAT MIX */ IF (&ZPDMIX = N) /* IF EBCDIC MODE REQUESTED */ &MIXED = EBCDIC /* SET FORMAT EBCDIC */ )REINIT REFRESH(ZCMD,ZSCED,ZDATA,ZCL,ZCR) )PROC &ZCURSOR = .CURSOR &ZCSROFF = .CSRPOS &ZLVLINE = LVLINE(ZDATA) &CNAME = .CURSOR VER (&UTNAME,NONBLANK) VER (&UTMACFLG,NB,LIST,Y,N,B) &ZEDLMSG = 'Valid types: COBOL, CICS, ISPF, DB2, CSP, DATASET, + ADW, JCL, MISC, UNIPAC *** PF1 for more help' VER (&UTTYPE,NONBLANK,LIST,COBOL,CICS,DB2,CSP,DATASET,+ ISPF,MISC,ADW,JCL,UNIPAC,MSG=UTLZ001W) VER (&UTHPANEL,NAME) VER (&UTSDESC,NONBLANK) VPUT (ZSCED) PROFILE )END ./ ADD NAME=UTILSEND )ATTR . TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(ON) . TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) CAPS(ON) ? TYPE(INPUT) INTENS(NON) CAPS(ON) )BODY EXPAND({{) %{-{ CMC UTILITIES - SEND FUNCTION {-{ %COMMAND ==>_ZCMD . % .Sending Dataset ==>_THISDSN . %(If this is a PDS, enter a member list below in WAAPPDSS format) .Member List ==>_MBRSPEC . . .Receiving Dataset ==>_NEXTDSN . . .Desired Action ==>_ACTION .%(Valid Values are : CREATE, APPEND, and REPLACE) . .IPC Sending : .THISIPC. Receiving ==>_NEXTIPC. . .TSO Logon Sending : .SYSUID . Receiving ==>_NEXTID . . .TSO Password Sending ==>?THISPASS. Receiving ==>?NEXTPASS. %(Sending Password Optional to Receive Messages). New Password ==>_NEWPASS . . .Job Access Code Sending ==>_Z . Receiving ==>_Z . . .Sysout Box ==>_BOX . Review JCL Prior to Submitting ==>_Z.%(Y - Yes or N - No) . .Press%.to Execute Function or%END.to Quit )INIT &ZCMD = &Z .ZVARS = '(THISCODE NEXTCODE JCLREVEW)' )PROC VER (&THISDSN NONBLANK DSNAME) VER (&NEXTDSN NONBLANK DSNAME) VER (&ACTION NONBLANK LIST CREATE APPEND REPLACE) VER (&JCLREVEW NONBLANK LIST Y N) VER (&BOX NONBLANK) VER (&NEXTIPC NONBLANK PICT AAAAA9A) VER (&NEXTID NONBLANK) VER (&NEXTPASS NONBLANK) VER (&THISCODE NONBLANK PICT CCCCCC) VER (&NEXTCODE NONBLANK PICT CCCCCC) VPUT (THISDSN MBRSPEC NEXTDSN ACTION BOX THISIPC NEXTIPC NEXTID) SHARED VPUT (JCLREVEW NEXTPASS NEWPASS THISCODE NEXTCODE THISPASS) SHARED )END ./ ADD NAME=UTILUPCS )ATTR ¬ TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) ? TYPE(TEXT) INTENS(HIGH) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) )BODY EXPAND({{) %{-{ CONVERT AN ISPF TABLE TO UPPER CASE {-{ %COMMAND ===>_ZCMD ¬ % ¬Name of table to convert to upper case ===>_TNAME + ¬ ¬Dataset name of output?ISPTLIB¬library ?(no ''s needed on dataset name) ¬Dataset Name ===>_TDSN ¬ % ¬Press%¬to see field selection or%END¬to quit without processing )INIT .HELP = UTILH007 &ZCMD = ' ' IF (&TDSN = &Z) IF (&TNAME = &Z) .CURSOR = TNAME IF (&TDSN = &Z) .CURSOR = TDSN )PROC VER (&TNAME NONBLANK) VER (&TDSN NONBLANK) VPUT (TNAME TDSN) )END ./ ADD NAME=UTILUPC2 )ATTR @ TYPE(OUTPUT) INTENS(LOW) ¬ TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) + TYPE(TEXT) INTENS(LOW) $ TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) ? TYPE(OUTPUT) INTENS(HIGH) JUST(RIGHT) PAD(0) _ TYPE(INPUT) INTENS(HIGH) CAPS(IN) )BODY EXPAND(//) %/-/ CONVERT AN ISPF TABLE TO UPPER CASE FUNCTION "&TNAME" FIELDS /-/ %OPTION ===>_ZCMD %SCROLL ===>_Z + % $Place an%S$next to each field you want to convert to upper case $Type%ALL$on the command line and press%ENTER$to process all fields $Issue%END$command when you have selected your fields to process them $Type%CANCEL$on the command line and press%ENTER$to quit without processing % + SEL NAME + V -------- )MODEL _Z+ @FIELD ¬SELECT )INIT .ZVARS = '(ZSCML SEL)' &ZCMD = &Z &SEL = &Z )REINIT IF (.MSG = ' ') &SEL = &Z &ZCMD = &Z )PROC VPUT (ZSCML) PROFILE &ZEDLMSG = '"S" is the only valid line command' VER (&SEL,LIST,S,MSG=UTLZ001) )END ./ ADD NAME=UTILUPPC )ATTR . TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) ? TYPE(TEXT) INTENS(HIGH) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) )BODY EXPAND({{) %{-{ CMC UTILITIES - PRODCOPY FUNCTION {-{ %COMMAND ===>_ZCMD . % .Enter name of PDS containing CMC status 1 JCL ?(no ''s needed on dataset name) .Dataset Name%==>_DSN . .Review JCL Prior to Execution%==>_Z. Y-Yes/N-No . .Job defaults are listed below - overtype to change them : . . Job Class%==>_Z. . . . 'Programmer Name'%==>_YMPPGMN . . .Sysout Delivery Location%==>_Z . . .Press%.to update PRODCOPY dataset or%END.to quit without update )INIT .HELP = UTILH001 &ZCMD = ' ' .ZVARS = '(JCLREVEW JC XMPRMNO)' IF (&DSN ¬= ' ') .CURSOR = DSN )PROC VER (&JC NONBLANK) VER (&XMPRMNO NONBLANK) VER (&JCLREVEW NONBLANK LIST Y N MSG=UTILM032) VPUT (YMPPGMN JCLREVEW XMPRMNO JC) SHARED )END ./ ADD NAME=XBROWSE )ATTR DEFAULT(%+_) ¬ TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) @ TYPE(INPUT) INTENS(NON) )BODY EXPAND({{) +{-{›Extended BROWSE Dataset Selection+{-{ %OPTION ===>_ZCMD + + +LIBRARY%===>_Z ¬ (Select a number from the list or%"99"¬to set default cursor) +MEMBER %===>_MEM ¬ (" " or pattern for mbr list or%"99"¬for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_ZODSN + VOLUME SERIAL %===>_VOL + (If not cataloged) + Column 3 Name Prefix %===>_COL3BPFX + 1_QBRN1 +14_QBRN14 +27_QBRN27 + 2_QBRN2 +15_QBRN15 +28_QBRN28 + 3_QBRN3 +16_QBRN16 +29_QBRN29 + 4_QBRN4 +17_QBRN17 +30_QBRN30 + 5_QBRN5 +18_QBRN18 +31_QBRN31 + 6_QBRN6 +19_QBRN19 +32_QBRN32 + 7_QBRN7 +20_QBRN20 +33_QBRN33 + 8_QBRN8 +21_QBRN21 +34_QBRN34 + 9_QBRN9 +22_QBRN22 +35_QBRN35 +10_QBRN10 +23_QBRN23 +36_QBRN36 +11_QBRN11 +24_QBRN24 +37_QBRN37 +12_QBRN12 +25_QBRN25 +38_QBRN38 +13_QBRN13 +26_QBRN26 +39_QBRN39 )INIT .ZVARS = '(QBLIB)' VGET EXCURSOR PROFILE &ZMLCSR = ' ' /* @M1A*/ &ZCMD = ' ' VGET MEM SHARED IF (&TEMP = 'RESETDSN') &ZODSN = &Z IF (&ZODSN > &Z) .CURSOR = ZODSN ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QBLIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEM ELSE .CURSOR = QBLIB IF (&MIX = ' ') &MIX = 'YES' IF (&ZDBCS = 'NO') &MIX = 'NO' )REINIT IF (&TEMP = 'RESETDSN') &ZODSN = &Z IF (&ZODSN > &Z) .CURSOR = ZODSN )PROC IF (&MEM = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &TEMP = RESETDSN &MEM = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEM NONBLANK MSG=UTLZ000) IF (&QBLIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &TEMP = RESETDSN &QBLIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEM NONBLANK MSG=UTLZ000) VPUT MEM SHARED IF (&ZODSN ¬= ' ') /* @M1A*/ &TEMP = &Z &ZFC = TRUNC(&ZODSN,1) /* IF FIRST CHARACTER @M2A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M2A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M2A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M2A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M2A*/ &ZODSN = '&ZODSN&ZFC' /* ADD IT TO THE END @M2A*/ ELSE IF (&ZPREFIX ¬= &Z) &ZODSN = '''&ZPREFIX..&ZODSN''' &ZBCDSN = &ZODSN /* copy other ds field @M2A*/ &ZMLCSR = '********' /* @M1A*/ PANEXIT((ZODSN,ZMLCSR),PGM,&ZMLVEXIT,&ZMLVDATA,MSG=ISRM040) ELSE IF (&QBLIB < 1 ³ &QBLIB > 39) &TEMP = RESETDSN VER (&QBLIB,NB,RANGE,1,39) IF (&QBLIB = 1) VER (&QBRN1,DSNAME) &QDSN = &QBRN1 IF (&QBLIB = 2) VER (&QBRN2,DSNAME) &QDSN = &QBRN2 IF (&QBLIB = 3) VER (&QBRN3,DSNAME) &QDSN = &QBRN3 IF (&QBLIB = 4) VER (&QBRN4,DSNAME) &QDSN = &QBRN4 IF (&QBLIB = 5) VER (&QBRN5,DSNAME) &QDSN = &QBRN5 IF (&QBLIB = 6) VER (&QBRN6,DSNAME) &QDSN = &QBRN6 IF (&QBLIB = 7) VER (&QBRN7,DSNAME) &QDSN = &QBRN7 IF (&QBLIB = 8) VER (&QBRN8,DSNAME) &QDSN = &QBRN8 IF (&QBLIB = 9) VER (&QBRN9,DSNAME) &QDSN = &QBRN9 IF (&QBLIB = 10) VER (&QBRN10,DSNAME) &QDSN = &QBRN10 IF (&QBLIB = 11) VER (&QBRN11,DSNAME) &QDSN = &QBRN11 IF (&QBLIB = 12) VER (&QBRN12,DSNAME) &QDSN = &QBRN12 IF (&QBLIB = 13) VER (&QBRN13,DSNAME) &QDSN = &QBRN13 IF (&QBLIB = 14) VER (&QBRN14,DSNAME) &QDSN = &QBRN14 IF (&QBLIB = 15) VER (&QBRN15,DSNAME) &QDSN = &QBRN15 IF (&QBLIB = 16) VER (&QBRN16,DSNAME) &QDSN = &QBRN16 IF (&QBLIB = 17) VER (&QBRN17,DSNAME) &QDSN = &QBRN17 IF (&QBLIB = 18) VER (&QBRN18,DSNAME) &QDSN = &QBRN18 IF (&QBLIB = 19) VER (&QBRN19,DSNAME) &QDSN = &QBRN19 IF (&QBLIB = 20) VER (&QBRN20,DSNAME) &QDSN = &QBRN20 IF (&QBLIB = 21) VER (&QBRN21,DSNAME) &QDSN = &QBRN21 IF (&QBLIB = 22) VER (&QBRN22,DSNAME) &QDSN = &QBRN22 IF (&QBLIB = 23) VER (&QBRN23,DSNAME) &QDSN = &QBRN23 IF (&QBLIB = 24) VER (&QBRN24,DSNAME) &QDSN = &QBRN24 IF (&QBLIB = 25) VER (&QBRN25,DSNAME) &QDSN = &QBRN25 IF (&QBLIB = 26) VER (&QBRN26,DSNAME) &QDSN = &QBRN26 IF (&QBLIB = 27) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN27' ELSE &QDSN = '&QBRN27' VER (&QDSN,DSNAME) IF (&QBLIB = 28) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN28' ELSE &QDSN = '&QBRN28' VER (&QDSN,DSNAME) IF (&QBLIB = 29) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN29' ELSE &QDSN = '&QBRN29' VER (&QDSN,DSNAME) IF (&QBLIB = 30) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN30' ELSE &QDSN = '&QBRN30' VER (&QDSN,DSNAME) IF (&QBLIB = 31) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN31' ELSE &QDSN = '&QBRN31' VER (&QDSN,DSNAME) IF (&QBLIB = 32) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN32' ELSE &QDSN = '&QBRN32' VER (&QDSN,DSNAME) IF (&QBLIB = 33) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN33' ELSE &QDSN = '&QBRN33' VER (&QDSN,DSNAME) IF (&QBLIB = 34) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN34' ELSE &QDSN = '&QBRN34' VER (&QDSN,DSNAME) IF (&QBLIB = 35) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN35' ELSE &QDSN = '&QBRN35' VER (&QDSN,DSNAME) IF (&QBLIB = 36) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN36' ELSE &QDSN = '&QBRN36' VER (&QDSN,DSNAME) IF (&QBLIB = 37) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN37' ELSE &QDSN = '&QBRN37' VER (&QDSN,DSNAME) IF (&QBLIB = 38) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN38' ELSE &QDSN = '&QBRN38' VER (&QDSN,DSNAME) IF (&QBLIB = 39) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN39' ELSE &QDSN = '&QBRN39' VER (&QDSN,DSNAME) &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&PRJ > &Z) &PRJ0 = &PRJ &PRJ1 = &PRJ &ZBCPRJ1 = &PRJ IF (&LIB > &Z) &LIB0 = &LIB &LIB1 = &LIB &ZBCLIB1 = &LIB IF (&TYP > &Z) &TYP0 = &TYP &TYP1 = &TYP &ZBCTYP1 = &TYP IF (&TEMP > &Z) IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB..&TYP..&TEMP(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB..&TYP..&TEMP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB..&TYP(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB..&TYP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ(&MEM)''' ELSE &ZODSN = '''&PRJ''' &TEMP = RESETDSN VER (&PROF NAME) IF (&IMAC ¬= ' ' ) &ZXXX = TRUNC(&IMAC,'!') &IMACNM = .TRAIL IF (&IMACNM = ' ') &IMACNM = &ZXXX VER (&IMACNM NAME MSG = ISRE900) &MIX = TRANS(TRUNC(&MIX,1) N,NO Y,YES *,*) VER (&MIX LIST,YES,NO) IF (&FNAM ¬= ' ') VER (&FNAM NAME) &ZBCMIX = &MIX &ZBCFNAM = &FNAM VPUT (MIX FNAM) PROFILE VPUT (ZBCMIX ZBCFNAM) SHARED VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 PRJ0 LIB0 TYP0) PROFILE VPUT (PROF COL3BPFX) PROFILE VPUT (QBRN1 QBRN2 QBRN3 QBRN4 QBRN5 QBRN6 QBRN7 QBRN8 QBRN9 QBRN10 QBRN11 QBRN12 QBRN13 QBRN14 QBRN15 QBRN16 QBRN17 QBRN18 QBRN19 QBRN20 QBRN21 QBRN22 QBRN23 QBRN24 QBRN25) PROFILE VPUT (QBRN26 QBRN27 QBRN28 QBRN29 QBRN30 QBRN31 QBRN32 QBRN33 QBRN34 QBRN35 QBRN36 QBRN37 QBRN38 QBRN39 QBLIB) PROFILE VPUT (ZBCPRJ1 ZBCLIB1 ZBCTYP1) PROFILE )END ./ ADD NAME=XEDIT )PANEL KEYLIST(ISRSAB,ISR) )ATTR DEFAULT(...) FORMAT(MIX) ¬ TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) )BODY EXPAND({{) CMD(ZCMD) +{-{›Extended EDIT Dataset Selection+{-{ %OPTION ===>_ZCMD + + +LIBRARY%===>_Z ¬ (Select a number from the list or%"99"¬to set default cursor) +MEMBER %===>_MEM ¬ (" " or pattern for mbr list or%"99"¬for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_DSN + VOLUME SERIAL %===>_VOL + (If not cataloged) + Column 3 Name Prefix %===>_COL3EPFX + 1_QERN1 +14_QERN14 +27_QERN27 + 2_QERN2 +15_QERN15 +28_QERN28 + 3_QERN3 +16_QERN16 +29_QERN29 + 4_QERN4 +17_QERN17 +30_QERN30 + 5_QERN5 +18_QERN18 +31_QERN31 + 6_QERN6 +19_QERN19 +32_QERN32 + 7_QERN7 +20_QERN20 +33_QERN33 + 8_QERN8 +21_QERN21 +34_QERN34 + 9_QERN9 +22_QERN22 +35_QERN35 +10_QERN10 +23_QERN23 +36_QERN36 +11_QERN11 +24_QERN24 +37_QERN37 +12_QERN12 +25_QERN25 +38_QERN38 +13_QERN13 +26_QERN26 +39_QERN39 )INIT .ZVARS = '(QELIB)' VGET EXCURSOR PROFILE &ZWINTTL = 'Edit' .HELP = ISR20000 &ZCMD = ' ' VGET MEM SHARED &zpm3 = 1 &ZMLCSR = ' ' /* @M1A*/ /* IF (.MSG = ' ') &MEM = ' ' */ IF (&TEMP = 'RESETDSN') &DSN = &Z IF (&DSN > &Z) .CURSOR = DSN ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QELIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEM ELSE .CURSOR = QELIB VGET (ZEDLOCKP MIX ZEDITWS) PROFILE /* get profile values @W1A*/ IF (&ZEDLOCKP ¬= 'NEVER') &ZEDLOCKP = 'YES' IF (&ZDBCS = NO) &MIXM = &Z /* @W1A*/ ELSE &MIXM = TRANS(&MIX NO,&Z *,/) /* @W1A*/ &ZWSBVE = TRANS (&ZEDITWS &Z,&Z *,/) /* @W1A*/ &GRPBOX1 = 'Options' )REINIT IF (&TEMP = 'RESETDSN') &DSN = &Z IF (&DSN > &Z) .CURSOR = DSN &PMENU3 = 1 REFRESH (*) )PROC IF (&MEM = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &TEMP = RESETDSN &MEM = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEM NONBLANK MSG=UTLZ000) IF (&QELIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &TEMP = RESETDSN &QELIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEM NONBLANK MSG=UTLZ000) VPUT MEM SHARED &PMENU3 = 1 VGET (ZRDSN ZRVOL) SHARED IF (&ZRDSN ¬= ' ') &ZTEMP = TRUNC(&ZRDSN,2) &ZTEMP1 = TRUNC(&ZTEMP,1) &ZTEMP2 = .TRAIL IF (&ZTEMP1 = '$' OR &ZTEMP1 = '~' OR &ZTEMP1 = '/' OR &ZTEMP2 = ':') &WSFN = &ZRDSN .CURSOR = WSFN ELSE &DSN = &ZRDSN &WSFN = &Z .CURSOR = DSN VGET (ZREFVOLM) PROFILE IF (&ZREFVOLM = 'ON') &VOL = &ZRVOL ELSE /* OW15849*/ &VOL = &Z /* OW15849*/ &ZRDSN = ' ' &ZRVOL = ' ' VPUT (ZRDSN ZRVOL) SHARED VGET (ZELIST) PROFILE IF (&ZELIST ¬= 'EXECUTE') .MSG = ISRDS003 VGET (DSALSEL) SHARED IF (&DSALSEL ¬= ' ') VGET (DSA1,DSA2,DSA3,DSA4,DSA5,DSA6,DSA7) SHARED &PRJ1 = &DSA1 &LIB1 = &DSA2 &LIB2 = &DSA3 &LIB3 = &DSA4 &LIB4 = &DSA5 &TYP1 = &DSA6 &MEM = &DSA7 &DSN = ' ' &VOL = ' ' &DSALSEL = ' ' VPUT (DSALSEL) SHARED .CURSOR = MEM VGET (ZELIST) PROFILE IF (&ZELIST ¬= 'EXECUTE') .MSG = ISRDS003 IF (&ZPCFMCN ¬= ' ') /* Field is not blank @C5A*/ &ZCFMCNCL = 'YES' /* Set dialog variable @C5A*/ &ZPCFMCN = '/' /* @C5A*/ ELSE &ZCFMCNCL = 'NO' /* Field is blank @C5A*/ VPUT (ZPCFMCN) PROFILE /* VPUT to profile @C5A*/ IF (&ZCMD = 'LOCKNEV','LOCKNO','LOCKYES') .MSG = 'ISRE200' &ZEDLOCKP = TRANS(&ZCMD 'LOCKNEV','NEVER' 'LOCKNO','NO' *,'YES') &ZCMD = &Z .CURSOR = ZCMD IF (&ZCMD ¬= ' ') .MSG = ISRE176 IF (&DSN = &Z & &WSFN = &Z) /* Verify non-blank @W1C*/ VER (&PRJ1 NONBLANK) VER (&LIB1 NONBLANK) VER (&TYP1 NONBLANK) IF (&VOL ¬= ' ') .MSG = ISRE094 IF (&DSN ¬= ' ' & &WSFN = &Z) /* @W2C*/ &ZFC = TRUNC(&DSN,1) /* IF FIRST CHARACTER @M3A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M3A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M3A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M3A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M3A*/ &DSN = '&DSN&ZFC' /* ADD IT TO THE END @M3A*/ &ZMCDSN = &DSN /* copy other ds field @M2A*/ &ZMLCSR = '********' /* @M1A*/ PANEXIT((DSN,ZMLCSR),PGM,&ZMLVEXIT,&ZMLVDATA,MSG=ISRM040) ELSE IF (&QELIB < 1 ³ &QELIB > 39) &TEMP = RESETDSN VER (&QELIB,NB,RANGE,1,39) IF (&QELIB = 1) VER (&QERN1,DSNAME) &QDSN = &QERN1 IF (&QELIB = 2) VER (&QERN2,DSNAME) &QDSN = &QERN2 IF (&QELIB = 3) VER (&QERN3,DSNAME) &QDSN = &QERN3 IF (&QELIB = 4) VER (&QERN4,DSNAME) &QDSN = &QERN4 IF (&QELIB = 5) VER (&QERN5,DSNAME) &QDSN = &QERN5 IF (&QELIB = 6) VER (&QERN6,DSNAME) &QDSN = &QERN6 IF (&QELIB = 7) VER (&QERN7,DSNAME) &QDSN = &QERN7 IF (&QELIB = 8) VER (&QERN8,DSNAME) &QDSN = &QERN8 IF (&QELIB = 9) VER (&QERN9,DSNAME) &QDSN = &QERN9 IF (&QELIB = 10) VER (&QERN10,DSNAME) &QDSN = &QERN10 IF (&QELIB = 11) VER (&QERN11,DSNAME) &QDSN = &QERN11 IF (&QELIB = 12) VER (&QERN12,DSNAME) &QDSN = &QERN12 IF (&QELIB = 13) VER (&QERN13,DSNAME) &QDSN = &QERN13 IF (&QELIB = 14) VER (&QERN14,DSNAME) &QDSN = &QERN14 IF (&QELIB = 15) VER (&QERN15,DSNAME) &QDSN = &QERN15 IF (&QELIB = 16) VER (&QERN16,DSNAME) &QDSN = &QERN16 IF (&QELIB = 17) VER (&QERN17,DSNAME) &QDSN = &QERN17 IF (&QELIB = 18) VER (&QERN18,DSNAME) &QDSN = &QERN18 IF (&QELIB = 19) VER (&QERN19,DSNAME) &QDSN = &QERN19 IF (&QELIB = 20) VER (&QERN20,DSNAME) &QDSN = &QERN20 IF (&QELIB = 21) VER (&QERN21,DSNAME) &QDSN = &QERN21 IF (&QELIB = 22) VER (&QERN22,DSNAME) &QDSN = &QERN22 IF (&QELIB = 23) VER (&QERN23,DSNAME) &QDSN = &QERN23 IF (&QELIB = 24) VER (&QERN24,DSNAME) &QDSN = &QERN24 IF (&QELIB = 25) VER (&QERN25,DSNAME) &QDSN = &QERN25 IF (&QELIB = 26) VER (&QERN26,DSNAME) &QDSN = &QERN26 IF (&QELIB = 27) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN27' ELSE &QDSN = '&QERN27' VER (&QDSN,DSNAME) IF (&QELIB = 28) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN28' ELSE &QDSN = '&QERN28' VER (&QDSN,DSNAME) IF (&QELIB = 29) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN29' ELSE &QDSN = '&QERN29' VER (&QDSN,DSNAME) IF (&QELIB = 30) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN30' ELSE &QDSN = '&QERN30' VER (&QDSN,DSNAME) IF (&QELIB = 31) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN31' ELSE &QDSN = '&QERN31' VER (&QDSN,DSNAME) IF (&QELIB = 32) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN32' ELSE &QDSN = '&QERN32' VER (&QDSN,DSNAME) IF (&QELIB = 33) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN33' ELSE &QDSN = '&QERN33' VER (&QDSN,DSNAME) IF (&QELIB = 34) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN34' ELSE &QDSN = '&QERN34' VER (&QDSN,DSNAME) IF (&QELIB = 35) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN35' ELSE &QDSN = '&QERN35' VER (&QDSN,DSNAME) IF (&QELIB = 36) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN36' ELSE &QDSN = '&QERN36' VER (&QDSN,DSNAME) IF (&QELIB = 37) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN37' ELSE &QDSN = '&QERN37' VER (&QDSN,DSNAME) IF (&QELIB = 38) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN38' ELSE &QDSN = '&QERN38' VER (&QDSN,DSNAME) IF (&QELIB = 39) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN39' ELSE &QDSN = '&QERN39' VER (&QDSN,DSNAME) &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&PRJ > &Z) &PRJ0 = &PRJ &PRJ1 = &PRJ &ZMCPRJ1 = &PRJ IF (&LIB > &Z) &LIB0 = &LIB &LIB1 = &LIB &ZMCLIB1 = &LIB IF (&TYP > &Z) &TYP0 = &TYP &TYP1 = &TYP &ZMCTYP1 = &TYP IF (&TEMP > &Z) IF (&MEM > &Z) &DSN = '''&PRJ..&LIB..&TYP..&TEMP(&MEM)''' ELSE &DSN = '''&PRJ..&LIB..&TYP..&TEMP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ..&LIB..&TYP(&MEM)''' ELSE &DSN = '''&PRJ..&LIB..&TYP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ..&LIB(&MEM)''' ELSE &DSN = '''&PRJ..&LIB''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ(&MEM)''' ELSE &DSN = '''&PRJ''' &TEMP = RESETDSN VER (&PROF NAME) IF (&IMAC ¬= ' ' ) &ZXXX = TRUNC(&IMAC,'!') &IMACNM = .TRAIL IF (&IMACNM = ' ') &IMACNM = &ZXXX &ZTIMACNM = &IMACNM /* @H2A*/ VER (&IMACNM NAME MSG = ISRE900) &PRJ0 = &PRJ1 &LIB0 = &LIB1 &TYP0 = &TYP1 IF (&ZDBCS = NO) &MIXM = &Z /* @W1A*/ ELSE /* @W1A*/ &MIXM = TRANS (&MIXM &Z,&Z *,/) /* @W1A*/ &MIX = TRANS (&MIXM &Z,NO *,YES) /* @W1A*/ IF (&FNAM ¬= ' ') VER (&FNAM NAME) &ZWSBVE = TRANS (&ZWSBVE &Z,&Z *,/) /* @W1A*/ &ZEDITWS = TRANS (&ZWSBVE &Z,&Z *,/) /* @W1A*/ &ZRECFROM = 'E' /* coming from edit @c2a*/ VPUT (ZRECFROM) SHARED /* save for recursion @c2a*/ &ZEDLOCK = &ZEDLOCKP IF (&ZEDLOCK = 'NEVER') &ZEDLOCK = 'NO' &ZECLOCKP = &ZEDLOCKP /* This forwards the lock value chosen on entry @D1A*/ VPUT (ZECLOCKP) /* to Edit to the Edit primary cmd panel. @D1A*/ VPUT (ZEDLOCK ZEDLOCKP MIX FNAM PROF ZEDITWS) PROFILE VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 PRJ0 LIB0 TYP0) PROFILE VPUT (QERN1 QERN2 QERN3 QERN4 QERN5 QERN6 QERN7 QERN8 QERN9 QERN10 QERN11 QERN12 QERN13 QERN14 QERN15 QERN16 QERN17 QERN18 QERN19 QERN20 QERN21 QERN22 QERN23 QERN24 QERN25) PROFILE VPUT (QERN26 QERN27 QERN28 QERN29 QERN30 QERN31 QERN32 QERN33 QERN34 QERN35 QERN36 QERN37 QERN38 QERN39 QELIB COL3EPFX) PROFILE )END ./ ADD NAME=XEDIT2 )PANEL KEYLIST(ISRSAB,ISR) )ATTR DEFAULT(...) FORMAT(MIX) ¬ TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) )ABC DESC('Menu') MNEM(1) PDC DESC('Settings') UNAVAIL(ZPM1) MNEM(1) ACC(CTRL+S) ACTION RUN(ISRROUTE) PARM('SET') PDC DESC('View') UNAVAIL(ZPM2) MNEM(1) ACC(CTRL+V) ACTION RUN(ISRROUTE) PARM('BR1') PDC DESC('Edit') UNAVAIL(ZPM3) MNEM(1) ACC(CTRL+E) ACTION RUN(ISRROUTE) PARM('ED1') PDC DESC('ISPF Command Shell') UNAVAIL(ZPM4) MNEM(6) ACC(CTRL+C) ACTION RUN(ISRROUTE) PARM('C1') PDC DESC('Dialog Test...') UNAVAIL(ZPM5) MNEM(8) ACC(CTRL+T) ACTION RUN(ISRROUTE) PARM('DAL') PDC DESC('Other IBM Products...') UNAVAIL(ZPM6) MNEM(1) ACC(CTRL+O) ACTION RUN(ISRROUTE) PARM('OIB') PDC DESC('SCLM') UNAVAIL(ZPM7) MNEM(3) ACC(CTRL+L) ACTION RUN(ISRROUTE) PARM('SCL') PDC DESC('ISPF Workplace') UNAVAIL(ZPM8) MNEM(6) ACC(CTRL+W) ACTION RUN(ISRROUTE) PARM('WRK') PDC DESC('Status Area...') UNAVAIL(ZPMS) MNEM(8) ACC(CTRL+A) ACTION RUN(ISRROUTE) PARM('SAM') PDC DESC('Exit') MNEM(2) PDSEP(ON) ACC(CTRL+X) ACTION RUN(EXIT) )ABCINIT &DUMMY=DUMMY /*.ZVARS=ISR@OPT*/ )ABC DESC('RefList') MNEM(1) PDC DESC('Reference Data Set List') MNEM(1) ACC(CTRL+ALT+D) ACTION RUN(ISRRLIST) PARM('RL1') PDC DESC('Reference Library List') MNEM(2) ACC(CTRL+ALT+L) ACTION RUN(ISRRLIST) PARM('LR1') PDC DESC('Personal Data Set List') MNEM(1) PDSEP(ON) ACC(CTRL+ALT+P) ACTION RUN(ISRRLIST) PARM('PL1') PDC DESC('Personal Data Set List Open') MNEM(4) ACC(CTRL+ALT+O) ACTION RUN(ISRRLIST) PARM('PL2') PDC DESC('Personal Library List') MNEM(5) PDSEP(ON) ACC(CTRL+SHIFT+P) ACTION RUN(ISRRLIST) PARM('LL1') PDC DESC('Personal Library List Open') MNEM(6) ACC(CTRL+SHIFT+O) ACTION RUN(ISRRLIST) PARM('LL2') )ABCINIT &DUMMY=DUMMY /*.ZVARS=REFLIST*/ )ABC DESC('RefMode') MNEM(2) PDC DESC('List Execute') UNAVAIL(ZRME1) MNEM(1) ACTION RUN(ISRRLIST) PARM('EEX') PDC DESC('List Retrieve') UNAVAIL(ZRME2) MNEM(2) ACTION RUN(ISRRLIST) PARM('ERT') )ABCINIT &DUMMY=DUMMY /*.ZVARS=LISTFILE*/ VGET (ZELIST) PROFILE IF (&ZELIST = 'EXECUTE') &zrme1 = 1 &zrme2 = 0 &listfile = 2 ELSE &zrme1 = 0 &zrme2 = 1 &listfile = 1 )ABC DESC('Utilities') MNEM(1) PDC DESC('Library') UNAVAIL(ZUT1) MNEM(1) ACC(ALT+1) ACTION RUN(ISRROUTE) PARM('U1') PDC DESC('Data set') UNAVAIL(ZUT2) MNEM(1) ACC(ALT+2) ACTION RUN(ISRROUTE) PARM('U2') PDC DESC('Move/Copy') UNAVAIL(ZUT3) MNEM(1) ACC(ALT+3) ACTION RUN(ISRROUTE) PARM('U3') PDC DESC('Data Set List') UNAVAIL(ZUT4) MNEM(2) ACC(ALT+4) ACTION RUN(ISRROUTE) PARM('U4') PDC DESC('Reset Statistics') UNAVAIL(ZUT5) MNEM(5) ACC(ALT+5) ACTION RUN(ISRROUTE) PARM('U5') PDC DESC('Hardcopy') UNAVAIL(ZUT6) MNEM(1) ACC(ALT+6) ACTION RUN(ISRROUTE) PARM('U6') PDC DESC('ISPF C/S Install...') UNAVAIL(ZUTDT) MNEM(1) ACC(ALT+7) ACTION RUN(ISRROUTE) PARM('UDT') PDC DESC('Outlist') UNAVAIL(ZUT7) MNEM(1) ACC(ALT+8) ACTION RUN(ISRROUTE) PARM('U8') PDC DESC('Commands...') UNAVAIL(ZUT8) MNEM(1) ACC(ALT+9) ACTION RUN(ISRROUTE) PARM('U9') PDC DESC('Reserved') UNAVAIL(ZUT9) MNEM(6) ACTION RUN(ISRROUTE) PARM('U10') PDC DESC('Format') UNAVAIL(ZUT10) MNEM(1) ACC(ALT+F1) ACTION RUN(ISRROUTE) PARM('U11') PDC DESC('SuperC') UNAVAIL(ZUT11) MNEM(1) PDSEP(ON) ACC(CTRL+F2) ACTION RUN(ISRROUTE) PARM('U12') PDC DESC('SuperCE') UNAVAIL(ZUT12) MNEM(2) ACC(CTRL+F3) ACTION RUN(ISRROUTE) PARM('U13') PDC DESC('Search-For') UNAVAIL(ZUT13) MNEM(2) ACC(CTRL+F4) ACTION RUN(ISRROUTE) PARM('U14') PDC DESC('Search-ForE') UNAVAIL(ZUT14) MNEM(4) ACC(CTRL+F5) ACTION RUN(ISRROUTE) PARM('U15') )ABCINIT &DUMMY=DUMMY /*.ZVARS=PDFUTIL*/ &zut9 = '1' )ABC DESC('LMF') MNEM(1) PDC DESC('Lock - Never') UNAVAIL(ZLMF1) MNEM(1) ACTION RUN(LOCKNEV) PDC DESC('Lock - No') UNAVAIL(ZLMF2) MNEM(2) ACTION RUN(LOCKNO) PDC DESC('Lock - Yes') UNAVAIL(ZLMF3) MNEM(3) ACTION RUN(LOCKYES) )ABCINIT &DUMMY=DUMMY /*.ZVARS=ZLMF*/ IF (&ZEDLOCKP ¬= 'NEVER') &ZLMF1 = '0' &ZLMF2 = '0' &ZLMF3 = '1' IF (&ZEDLOCKP = 'NEVER') &ZLMF1 = '1' &ZLMF2 = '0' &ZLMF3 = '0' IF (&ZEDLOCKP = 'NO') &ZLMF1 = '0' &ZLMF2 = '1' &ZLMF3 = '0' )ABC DESC('Workstation') MNEM(1) PDC DESC('Workstation Tool Integration...') UNAVAIL(GUI3) MNEM(18) ACTION RUN(INT) )ABCINIT &DUMMY=DUMMY /*.ZVARS=WS*/ IF (&MNG='3') &WS=1 )ABCPROC IF (&GUI3 = 0) IF (&WS=1) &MNG='3' )ABC DESC('Help') MNEM(1) PDC DESC('General') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2A000') PDC DESC('Types of Data Sets') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2B000') PDC DESC('Edit entry panel') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2C000') PDC DESC('Member selection list') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2D000') PDC DESC('Display screen format') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2E000') PDC DESC('Scrolling data') MNEM(1) ACTION RUN(TUTOR) PARM('ISR2F000') PDC DESC('Sequence numbering') MNEM(3) ACTION RUN(TUTOR) PARM('ISR2G000') PDC DESC('Display modes') MNEM(2) ACTION RUN(TUTOR) PARM('ISR2H000') PDC DESC('Tabbing') MNEM(2) ACTION RUN(TUTOR) PARM('ISR2I000') PDC DESC('Automatic recovery') MNEM(2) ACTION RUN(TUTOR) PARM('ISR2J000') PDC DESC('Edit profiles') MNEM(6) ACTION RUN(TUTOR) PARM('ISR2K000') PDC DESC('Edit line commands') MNEM(6) ACTION RUN(TUTOR) PARM('ISR2L000') PDC DESC('Edit primary commands') MNEM(7) ACTION RUN(TUTOR) PARM('ISR2M000') PDC DESC('Labels and line ranges') MNEM(3) ACTION RUN(TUTOR) PARM('ISR2Q000') PDC DESC('Ending an edit session') MNEM(2) ACTION RUN(TUTOR) PARM('ISR2N000') PDC DESC('Appendices') MNEM(8) ACTION RUN(TUTOR) PARM('ISR00004') PDC DESC('Index') MNEM(5) ACTION RUN(TUTOR) PARM('ISR91000') )ABCINIT &DUMMY=DUMMY /*.ZVARS=EDMHELP*/ )BODY EXPAND({{) CMD(ZCMD) +{-{›Extended EDIT Dataset Selection+{-{ %OPTION ===>_ZCMD + + +LIBRARY%===>_Z ¬ (Select a number from the list or%"99"¬to set default cursor) +MEMBER %===>_MEM ¬ (" " or pattern for mbr list or%"99"¬for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_DSN + VOLUME SERIAL %===>_VOL + (If not cataloged) + Column 3 Name Prefix %===>_COL3EPFX + 1_QERN1 +14_QERN14 +27_QERN27 + 2_QERN2 +15_QERN15 +28_QERN28 + 3_QERN3 +16_QERN16 +29_QERN29 + 4_QERN4 +17_QERN17 +30_QERN30 + 5_QERN5 +18_QERN18 +31_QERN31 + 6_QERN6 +19_QERN19 +32_QERN32 + 7_QERN7 +20_QERN20 +33_QERN33 + 8_QERN8 +21_QERN21 +34_QERN34 + 9_QERN9 +22_QERN22 +35_QERN35 +10_QERN10 +23_QERN23 +36_QERN36 +11_QERN11 +24_QERN24 +37_QERN37 +12_QERN12 +25_QERN25 +38_QERN38 +13_QERN13 +26_QERN26 +39_QERN39 )INIT .ZVARS = '(QELIB)' VGET EXCURSOR PROFILE &ZWINTTL = 'Edit' .HELP = ISR20000 &ZCMD = ' ' &zpm3 = 1 &ZMLCSR = ' ' /* @M1A*/ IF (.MSG = ' ') &MEM = ' ' IF (&DSN > &Z) .CURSOR = DSN ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QELIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEM ELSE .CURSOR = QELIB VGET (ZEDLOCKP MIX ZEDITWS) PROFILE /* get profile values @W1A*/ IF (&ZEDLOCKP ¬= 'NEVER') &ZEDLOCKP = 'YES' IF (&ZDBCS = NO) &MIXM = &Z /* @W1A*/ ELSE &MIXM = TRANS(&MIX NO,&Z *,/) /* @W1A*/ &ZWSBVE = TRANS (&ZEDITWS &Z,&Z *,/) /* @W1A*/ &GRPBOX1 = 'Options' )REINIT REFRESH(ZPCFMCN MIXM ZWSBVE) &PMENU3 = 1 IF (&ZMLCSR ¬= ' ') .CURSOR = &ZMLCSR /* @M1A*/ REFRESH (*) )PROC IF (&MEM = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &MEM = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEM NONBLANK MSG=UTLZ000) IF (&QELIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &QELIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEM NONBLANK MSG=UTLZ000) VPUT MEM SHARED &PMENU3 = 1 VGET (ZRDSN ZRVOL) SHARED IF (&ZRDSN ¬= ' ') &ZTEMP = TRUNC(&ZRDSN,2) &ZTEMP1 = TRUNC(&ZTEMP,1) &ZTEMP2 = .TRAIL IF (&ZTEMP1 = '$' OR &ZTEMP1 = '~' OR &ZTEMP1 = '/' OR &ZTEMP2 = ':') &WSFN = &ZRDSN .CURSOR = WSFN ELSE &DSN = &ZRDSN &WSFN = &Z .CURSOR = DSN VGET (ZREFVOLM) PROFILE IF (&ZREFVOLM = 'ON') &VOL = &ZRVOL ELSE /* OW15849*/ &VOL = &Z /* OW15849*/ &ZRDSN = ' ' &ZRVOL = ' ' VPUT (ZRDSN ZRVOL) SHARED VGET (ZELIST) PROFILE IF (&ZELIST ¬= 'EXECUTE') .MSG = ISRDS003 VGET (DSALSEL) SHARED IF (&DSALSEL ¬= ' ') VGET (DSA1,DSA2,DSA3,DSA4,DSA5,DSA6,DSA7) SHARED &PRJ1 = &DSA1 &LIB1 = &DSA2 &LIB2 = &DSA3 &LIB3 = &DSA4 &LIB4 = &DSA5 &TYP1 = &DSA6 &MEM = &DSA7 &DSN = ' ' &VOL = ' ' &DSALSEL = ' ' VPUT (DSALSEL) SHARED .CURSOR = MEM VGET (ZELIST) PROFILE IF (&ZELIST ¬= 'EXECUTE') .MSG = ISRDS003 IF (&ZPCFMCN ¬= ' ') /* Field is not blank @C5A*/ &ZCFMCNCL = 'YES' /* Set dialog variable @C5A*/ &ZPCFMCN = '/' /* @C5A*/ ELSE &ZCFMCNCL = 'NO' /* Field is blank @C5A*/ VPUT (ZPCFMCN) PROFILE /* VPUT to profile @C5A*/ IF (&ZCMD = 'LOCKNEV','LOCKNO','LOCKYES') .MSG = 'ISRE200' &ZEDLOCKP = TRANS(&ZCMD 'LOCKNEV','NEVER' 'LOCKNO','NO' *,'YES') &ZCMD = &Z .CURSOR = ZCMD IF (&ZCMD ¬= ' ') .MSG = ISRE176 IF (&DSN = &Z & &WSFN = &Z) /* Verify non-blank @W1C*/ VER (&PRJ1 NONBLANK) VER (&LIB1 NONBLANK) VER (&TYP1 NONBLANK) IF (&VOL ¬= ' ') .MSG = ISRE094 IF (&DSN ¬= ' ' & &WSFN = &Z) /* @W2C*/ &ZFC = TRUNC(&DSN,1) /* IF FIRST CHARACTER @M3A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M3A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M3A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M3A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M3A*/ &DSN = '&DSN&ZFC' /* ADD IT TO THE END @M3A*/ &ZMCDSN = &DSN /* copy other ds field @M2A*/ &ZMLCSR = '********' /* @M1A*/ PANEXIT((DSN,ZMLCSR),PGM,&ZMLVEXIT,&ZMLVDATA,MSG=ISRM040) ELSE VER (&QELIB,NB,RANGE,1,39) IF (&QELIB = 1) VER (&QERN1,DSNAME) &QDSN = &QERN1 IF (&QELIB = 2) VER (&QERN2,DSNAME) &QDSN = &QERN2 IF (&QELIB = 3) VER (&QERN3,DSNAME) &QDSN = &QERN3 IF (&QELIB = 4) VER (&QERN4,DSNAME) &QDSN = &QERN4 IF (&QELIB = 5) VER (&QERN5,DSNAME) &QDSN = &QERN5 IF (&QELIB = 6) VER (&QERN6,DSNAME) &QDSN = &QERN6 IF (&QELIB = 7) VER (&QERN7,DSNAME) &QDSN = &QERN7 IF (&QELIB = 8) VER (&QERN8,DSNAME) &QDSN = &QERN8 IF (&QELIB = 9) VER (&QERN9,DSNAME) &QDSN = &QERN9 IF (&QELIB = 10) VER (&QERN10,DSNAME) &QDSN = &QERN10 IF (&QELIB = 11) VER (&QERN11,DSNAME) &QDSN = &QERN11 IF (&QELIB = 12) VER (&QERN12,DSNAME) &QDSN = &QERN12 IF (&QELIB = 13) VER (&QERN13,DSNAME) &QDSN = &QERN13 IF (&QELIB = 14) VER (&QERN14,DSNAME) &QDSN = &QERN14 IF (&QELIB = 15) VER (&QERN15,DSNAME) &QDSN = &QERN15 IF (&QELIB = 16) VER (&QERN16,DSNAME) &QDSN = &QERN16 IF (&QELIB = 17) VER (&QERN17,DSNAME) &QDSN = &QERN17 IF (&QELIB = 18) VER (&QERN18,DSNAME) &QDSN = &QERN18 IF (&QELIB = 19) VER (&QERN19,DSNAME) &QDSN = &QERN19 IF (&QELIB = 20) VER (&QERN20,DSNAME) &QDSN = &QERN20 IF (&QELIB = 21) VER (&QERN21,DSNAME) &QDSN = &QERN21 IF (&QELIB = 22) VER (&QERN22,DSNAME) &QDSN = &QERN22 IF (&QELIB = 23) VER (&QERN23,DSNAME) &QDSN = &QERN23 IF (&QELIB = 24) VER (&QERN24,DSNAME) &QDSN = &QERN24 IF (&QELIB = 25) VER (&QERN25,DSNAME) &QDSN = &QERN25 IF (&QELIB = 26) VER (&QERN26,DSNAME) &QDSN = &QERN26 IF (&QELIB = 27) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN27' ELSE &QDSN = '&QERN27' VER (&QDSN,DSNAME) IF (&QELIB = 28) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN28' ELSE &QDSN = '&QERN28' VER (&QDSN,DSNAME) IF (&QELIB = 29) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN29' ELSE &QDSN = '&QERN29' VER (&QDSN,DSNAME) IF (&QELIB = 30) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN30' ELSE &QDSN = '&QERN30' VER (&QDSN,DSNAME) IF (&QELIB = 31) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN31' ELSE &QDSN = '&QERN31' VER (&QDSN,DSNAME) IF (&QELIB = 32) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN32' ELSE &QDSN = '&QERN32' VER (&QDSN,DSNAME) IF (&QELIB = 33) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN33' ELSE &QDSN = '&QERN33' VER (&QDSN,DSNAME) IF (&QELIB = 34) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN34' ELSE &QDSN = '&QERN34' VER (&QDSN,DSNAME) IF (&QELIB = 35) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN35' ELSE &QDSN = '&QERN35' VER (&QDSN,DSNAME) IF (&QELIB = 36) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN36' ELSE &QDSN = '&QERN36' VER (&QDSN,DSNAME) IF (&QELIB = 37) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN37' ELSE &QDSN = '&QERN37' VER (&QDSN,DSNAME) IF (&QELIB = 38) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN38' ELSE &QDSN = '&QERN38' VER (&QDSN,DSNAME) IF (&QELIB = 39) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN39' ELSE &QDSN = '&QERN39' VER (&QDSN,DSNAME) &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&PRJ > &Z) &PRJ0 = &PRJ &PRJ1 = &PRJ &ZMCPRJ1 = &PRJ IF (&LIB > &Z) &LIB0 = &LIB &LIB1 = &LIB &ZMCLIB1 = &LIB IF (&TYP > &Z) &TYP0 = &TYP &TYP1 = &TYP &ZMCTYP1 = &TYP IF (&TEMP > &Z) IF (&MEM > &Z) &DSN = '''&PRJ..&LIB..&TYP..&TEMP(&MEM)''' ELSE &DSN = '''&PRJ..&LIB..&TYP..&TEMP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ..&LIB..&TYP(&MEM)''' ELSE &DSN = '''&PRJ..&LIB..&TYP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ..&LIB(&MEM)''' ELSE &DSN = '''&PRJ..&LIB''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &DSN = '''&PRJ(&MEM)''' ELSE &DSN = '''&PRJ''' &TEMP = RESETDSN VER (&PROF NAME) IF (&IMAC ¬= ' ' ) &ZXXX = TRUNC(&IMAC,'!') &IMACNM = .TRAIL IF (&IMACNM = ' ') &IMACNM = &ZXXX &ZTIMACNM = &IMACNM /* @H2A*/ VER (&IMACNM NAME MSG = ISRE900) &PRJ0 = &PRJ1 &LIB0 = &LIB1 &TYP0 = &TYP1 IF (&ZDBCS = NO) &MIXM = &Z /* @W1A*/ ELSE /* @W1A*/ &MIXM = TRANS (&MIXM &Z,&Z *,/) /* @W1A*/ &MIX = TRANS (&MIXM &Z,NO *,YES) /* @W1A*/ IF (&FNAM ¬= ' ') VER (&FNAM NAME) &ZWSBVE = TRANS (&ZWSBVE &Z,&Z *,/) /* @W1A*/ &ZEDITWS = TRANS (&ZWSBVE &Z,&Z *,/) /* @W1A*/ &ZRECFROM = 'E' /* coming from edit @c2a*/ VPUT (ZRECFROM) SHARED /* save for recursion @c2a*/ &ZEDLOCK = &ZEDLOCKP IF (&ZEDLOCK = 'NEVER') &ZEDLOCK = 'NO' &ZECLOCKP = &ZEDLOCKP /* This forwards the lock value chosen on entry @D1A*/ VPUT (ZECLOCKP) /* to Edit to the Edit primary cmd panel. @D1A*/ VPUT (ZEDLOCK ZEDLOCKP MIX FNAM PROF ZEDITWS) PROFILE VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 PRJ0 LIB0 TYP0) PROFILE )END ./ ADD NAME=XPDS )ATTR DEFAULT(%+_) ¬ TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) | TYPE(INPUT) INTENS(HIGH) CAPS(OFF) @ TYPE(INPUT) INTENS(NON) )BODY EXPAND(\\) +-\-\-›PDS Version 8.4 - Extended Dataset Selection+-\-\- %OPTION ===>_ZCMD + + +LIBRARY%===>_Z ¬ (Select a number from the list or%"99"¬to set default cursor) +MEMBER %===>_MEMX ¬ (" " or pattern for mbr list or%"99"¬for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_DSNX + VOLUME SERIAL %===>_VOL + (If not cataloged) %Member List?_Z%(Y/N) + Column 3 Name Prefix %===>_COL3EPFX + 1_QERN1 +14_QERN14 +27_QERN27 + 2_QERN2 +15_QERN15 +28_QERN28 + 3_QERN3 +16_QERN16 +29_QERN29 + 4_QERN4 +17_QERN17 +30_QERN30 + 5_QERN5 +18_QERN18 +31_QERN31 + 6_QERN6 +19_QERN19 +32_QERN32 + 7_QERN7 +20_QERN20 +33_QERN33 + 8_QERN8 +21_QERN21 +34_QERN34 + 9_QERN9 +22_QERN22 +35_QERN35 +10_QERN10 +23_QERN23 +36_QERN36 +11_QERN11 +24_QERN24 +37_QERN37 +12_QERN12 +25_QERN25 +38_QERN38 +13_QERN13 +26_QERN26 +39_QERN39 )INIT .ZVARS = '(QELIB,MLIST)' VGET EXCURSOR PROFILE VGET (MEMXPDS DSNPDS) SHARED &MLIST = 'Y' &MEMX = &MEMXPDS &DSNX = &DSNPDS .HELP = P84PN@PH &ZHTOP = P84PN@PO &ZCMD = &Z IF (&DSNX > &Z) .CURSOR = DSNX ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QELIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEMX ELSE .CURSOR = QELIB )PROC IF (&MEMX = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &MEMX = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEMX NONBLANK MSG=UTLZ000) IF (&QELIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &QELIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEMX NONBLANK MSG=UTLZ000) &MEMXPDS = &MEMX &DSNPDS = &DSNX VPUT (MEMXPDS DSNPDS) SHARED VER (&MLIST,NONBLANK,LIST,Y,N) &XMEM = &Z "E = NO IF (&DSNX ¬= &Z) &MEMX = &Z &ZFC = TRUNC(&DSNX,1) /* IF FIRST CHARACTER @M3A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M3A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M3A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M3A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M3A*/ &DSNX = '&DSNX&ZFC' /* ADD IT TO THE END @M3A*/ ELSE IF (&ZPREFIX ¬= &Z) &DSNX = '''&ZPREFIX..&DSNX''' ELSE VER (&QELIB,NB,RANGE,1,39) IF (&QELIB = 1) VER (&QERN1,DSNAME) &QDSN = &QERN1 IF (&QELIB = 2) VER (&QERN2,DSNAME) &QDSN = &QERN2 IF (&QELIB = 3) VER (&QERN3,DSNAME) &QDSN = &QERN3 IF (&QELIB = 4) VER (&QERN4,DSNAME) &QDSN = &QERN4 IF (&QELIB = 5) VER (&QERN5,DSNAME) &QDSN = &QERN5 IF (&QELIB = 6) VER (&QERN6,DSNAME) &QDSN = &QERN6 IF (&QELIB = 7) VER (&QERN7,DSNAME) &QDSN = &QERN7 IF (&QELIB = 8) VER (&QERN8,DSNAME) &QDSN = &QERN8 IF (&QELIB = 9) VER (&QERN9,DSNAME) &QDSN = &QERN9 IF (&QELIB = 10) VER (&QERN10,DSNAME) &QDSN = &QERN10 IF (&QELIB = 11) VER (&QERN11,DSNAME) &QDSN = &QERN11 IF (&QELIB = 12) VER (&QERN12,DSNAME) &QDSN = &QERN12 IF (&QELIB = 13) VER (&QERN13,DSNAME) &QDSN = &QERN13 IF (&QELIB = 14) VER (&QERN14,DSNAME) &QDSN = &QERN14 IF (&QELIB = 15) VER (&QERN15,DSNAME) &QDSN = &QERN15 IF (&QELIB = 16) VER (&QERN16,DSNAME) &QDSN = &QERN16 IF (&QELIB = 17) VER (&QERN17,DSNAME) &QDSN = &QERN17 IF (&QELIB = 18) VER (&QERN18,DSNAME) &QDSN = &QERN18 IF (&QELIB = 19) VER (&QERN19,DSNAME) &QDSN = &QERN19 IF (&QELIB = 20) VER (&QERN20,DSNAME) &QDSN = &QERN20 IF (&QELIB = 21) VER (&QERN21,DSNAME) &QDSN = &QERN21 IF (&QELIB = 22) VER (&QERN22,DSNAME) &QDSN = &QERN22 IF (&QELIB = 23) VER (&QERN23,DSNAME) &QDSN = &QERN23 IF (&QELIB = 24) VER (&QERN24,DSNAME) &QDSN = &QERN24 IF (&QELIB = 25) VER (&QERN25,DSNAME) &QDSN = &QERN25 IF (&QELIB = 26) VER (&QERN26,DSNAME) &QDSN = &QERN26 /* 1/20/2000 - Removed the following lines and replaced them */ /* with the similar lines from the XEDIT panel so */ /* that users of PDS could use the same concept of */ /* specifying only the suffix in their 3rd column */ /* and switching among different prefixes. */ /* */ /* IF (&QELIB = 27) */ /* VER (&QERN27,DSNAME) */ /* &QDSN = &QERN27 */ /* IF (&QELIB = 28) */ /* VER (&QERN28,DSNAME) */ /* &QDSN = &QERN28 */ /* IF (&QELIB = 29) */ /* VER (&QERN29,DSNAME) */ /* &QDSN = &QERN29 */ /* IF (&QELIB = 30) */ /* VER (&QERN30,DSNAME) */ /* &QDSN = &QERN30 */ /* IF (&QELIB = 31) */ /* VER (&QERN31,DSNAME) */ /* &QDSN = &QERN31 */ /* IF (&QELIB = 32) */ /* VER (&QERN32,DSNAME) */ /* &QDSN = &QERN32 */ /* IF (&QELIB = 33) */ /* VER (&QERN33,DSNAME) */ /* &QDSN = &QERN33 */ /* IF (&QELIB = 34) */ /* VER (&QERN34,DSNAME) */ /* &QDSN = &QERN34 */ /* IF (&QELIB = 35) */ /* VER (&QERN35,DSNAME) */ /* &QDSN = &QERN35 */ /* IF (&QELIB = 36) */ /* VER (&QERN36,DSNAME) */ /* &QDSN = &QERN36 */ /* IF (&QELIB = 37) */ /* VER (&QERN37,DSNAME) */ /* &QDSN = &QERN37 */ /* IF (&QELIB = 38) */ /* VER (&QERN38,DSNAME) */ /* &QDSN = &QERN38 */ /* IF (&QELIB = 39) */ /* VER (&QERN39,DSNAME) */ /* &QDSN = &QERN39 */ IF (&QELIB = 27) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN27' ELSE &QDSN = '&QERN27' VER (&QDSN,DSNAME) IF (&QELIB = 28) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN28' ELSE &QDSN = '&QERN28' VER (&QDSN,DSNAME) IF (&QELIB = 29) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN29' ELSE &QDSN = '&QERN29' VER (&QDSN,DSNAME) IF (&QELIB = 30) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN30' ELSE &QDSN = '&QERN30' VER (&QDSN,DSNAME) IF (&QELIB = 31) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN31' ELSE &QDSN = '&QERN31' VER (&QDSN,DSNAME) IF (&QELIB = 32) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN32' ELSE &QDSN = '&QERN32' VER (&QDSN,DSNAME) IF (&QELIB = 33) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN33' ELSE &QDSN = '&QERN33' VER (&QDSN,DSNAME) IF (&QELIB = 34) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN34' ELSE &QDSN = '&QERN34' VER (&QDSN,DSNAME) IF (&QELIB = 35) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN35' ELSE &QDSN = '&QERN35' VER (&QDSN,DSNAME) IF (&QELIB = 36) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN36' ELSE &QDSN = '&QERN36' VER (&QDSN,DSNAME) IF (&QELIB = 37) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN37' ELSE &QDSN = '&QERN37' VER (&QDSN,DSNAME) IF (&QELIB = 38) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN38' ELSE &QDSN = '&QERN38' VER (&QDSN,DSNAME) IF (&QELIB = 39) IF (&COL3EPFX > &Z) &QDSN = '&COL3EPFX..&QERN39' ELSE &QDSN = '&QERN39' VER (&QDSN,DSNAME) &DSNX = '''&QDSN''' &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&TEMP = &Z) IF (&PRJ > &Z) IF (&LIB > &Z) IF (&TYP > &Z) &PRJ1 = &PRJ &LIB1 = &LIB &TYP1 = &TYP &ZMCPRJ1 = &PRJ &ZMCLIB1 = &LIB &ZMCTYP1 = &TYP VPUT (PRJ1 LIB1 TYP1 ZMCPRJ1 ZMCLIB1 ZMCTYP1) PROFILE VPUT (QERN1 QERN2 QERN3 QERN4 QERN5 QERN6 QERN7 QERN8 QERN9 QERN10 QERN11 QERN12 QERN13 QERN14 QERN15 QERN16 QERN17 QERN18 QERN19 QERN20 QERN21 QERN22 QERN23 QERN24 QERN25) PROFILE VPUT (QERN26 QERN27 QERN28 QERN29 QERN30 QERN31 QERN32 QERN33 QERN34 QERN35 QERN36 QERN37 QERN38 QERN39 QELIB COL3EPFX) PROFILE &ROOT = TRUNC(&DSNX,'(') &STEM = .TRAIL &STEM = TRUNC(&STEM,')') IF (&STEM ¬= &Z) &BYTE1 = TRUNC(&STEM,1) IF (&BYTE1 = '+' '-' '1' '2' '3' '4' '5' '6' '7' '8' '9' '0') &TEMP = TRUNC(&ROOT,'''') &ROOT = .TRAIL &DSNX = '''&ROOT''' ELSE &TEMP = TRUNC(&ROOT,'''') &ROOT = .TRAIL &DSNX = '''&ROOT''' &MEMX = &STEM &PDSPDSN = &DSNX &PDSPPGM = PDS &PDSPVOL = &VOL VPUT (PDSPDSN PDSPVOL PDSPVST PDSMEMP PDSPPGM) SHARED IF (&MEMX = &Z) &MEMX = ':' IF (&MEMX = '*') &MEMX = ':' IF (&MLIST = 'Y') &PARM = 'MEMLIST &MEMX' &A = TRUNC(&MEMX,':') &B = TRUNC(&MEMX,'*') &C = TRUNC(&MEMX,'/') &D = TRUNC(&MEMX,')') &E = TRUNC(&MEMX,'(') IF (&A = &MEMX) IF (&B = &MEMX) IF (&C = &MEMX) IF (&D = &MEMX) IF (&E = &MEMX) &PARM = 'EDIT &MEMX' ELSE &PARM = 'ISPMODE' &OPT = 'X' &PARMDSN = &DSNX &DSNX = &Z &MEMX = &Z &ZSEL = TRANS(&OPT,X,'PGM(PDS) PARM(PDS &PARMDSN &PARM)') )END ./ ADD NAME=XVIEW )PANEL KEYLIST(ISRSAB,ISR) )ATTR DEFAULT(%+_) FORMAT(MIX) ¬ TYPE(TEXT) SKIP(ON) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON) › TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) + TYPE(TEXT) INTENS(LOW) COLOR(TURQ) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) @ TYPE(INPUT) INTENS(NON) 0B TYPE(AB) 04 TYPE(ABSL) GE(ON) 05 TYPE(PT) 09 TYPE(FP) 0A TYPE(NT) 0C TYPE(NT) SKIP(ON) 11 TYPE(SAC) 13 TYPE(NEF) PADC(USER) 19 TYPE(DT) 22 TYPE(WASL) SKIP(ON) GE(ON) 08 TYPE(CH) 26 TYPE(NEF) CAPS(ON) PADC(USER) 27 AREA(SCRL) 28 TYPE(GRPBOX) 29 TYPE(CEF) PADC(USER) CKBOX(ON) )BODY EXPAND({{) +{-{›Extended VIEW Dataset Selection+{-{ %OPTION ===>_ZCMD + + +LIBRARY%===>_Z ¬ (Select a number from the list or%"99"¬to set default cursor) +MEMBER %===>_MEM ¬ (" " or pattern for mbr list or%"99"¬for default cursor) + +OTHER PARTITIONED OR SEQUENTIAL DATA SET: + DATA SET NAME %===>_ZODSN + VOLUME SERIAL %===>_VOL + (If not cataloged) + Column 3 Name Prefix %===>_COL3BPFX + 1_QBRN1 +14_QBRN14 +27_QBRN27 + 2_QBRN2 +15_QBRN15 +28_QBRN28 + 3_QBRN3 +16_QBRN16 +29_QBRN29 + 4_QBRN4 +17_QBRN17 +30_QBRN30 + 5_QBRN5 +18_QBRN18 +31_QBRN31 + 6_QBRN6 +19_QBRN19 +32_QBRN32 + 7_QBRN7 +20_QBRN20 +33_QBRN33 + 8_QBRN8 +21_QBRN21 +34_QBRN34 + 9_QBRN9 +22_QBRN22 +35_QBRN35 +10_QBRN10 +23_QBRN23 +36_QBRN36 +11_QBRN11 +24_QBRN24 +37_QBRN37 +12_QBRN12 +25_QBRN25 +38_QBRN38 +13_QBRN13 +26_QBRN26 +39_QBRN39 )INIT .ZVARS = '(QBLIB)' &ZWINTTL = 'View' .HELP = ISR10000 &ZCMD = ' ' VGET MEM SHARED VGET EXCURSOR PROFILE IF (&TEMP = 'RESETDSN') &ZODSN = &Z IF (&ZODSN > &Z) .CURSOR = ZODSN ELSE IF (&EXCURSOR = LIBRARY) .CURSOR = QBLIB ELSE IF (&EXCURSOR = MEMBER) .CURSOR = MEM ELSE .CURSOR = QBLIB &zpm2 = 1 &ZMLCSR = ' ' IF (&ZBROCUR = 0) /* V42 PTR 4291 */ IF (&ZODSN ¬= ' ') .CURSOR = ZODSN /* V42 PTR 4291 */ IF (&WSFN ¬= ' ') .CURSOR = WSFN IF (&ZBROCUR = 1) .CURSOR = PRJ1 IF (&ZBROCUR = 2) .CURSOR = LIB1 IF (&ZBROCUR = 3) .CURSOR = LIB2 IF (&ZBROCUR = 4) .CURSOR = LIB3 IF (&ZBROCUR = 5) .CURSOR = LIB4 IF (&ZBROCUR = 6) .CURSOR = TYP1 IF (&ZBROCUR = 7 AND &ZODSN ¬= ' ') .CURSOR = ZODSN IF (&ZBROCUR = 8) .CURSOR = ZVOL IF (&ZBROCUR = 9) .CURSOR = ZMEM IF (&ZBROCUR = 11) .CURSOR = WSFN IF (&ZBROCUR = 12) .CURSOR = ZWSBVE IF (&ZBROCUR = 10,40,41,42,43,44,45,46,47) .CURSOR = FNAM /* @H1C*/ VGET (ZVIEW ZVIEWWS) PROFILE /* Get options from profile @W1C*/ IF (&ZVIEW = 'NO') &VIEWM = '/' ELSE &VIEWM = ' ' IF (&ZDBCS = NO) &MIXM = &Z /* @W1A*/ ELSE &MIXM = TRANS (&MIX NO,&Z *,/) /* @W1A*/ &ZWSBVE = TRANS (&ZVIEWWS &Z,&Z *,/) /* @W1A*/ IF (&ZODSN ¬= ' ') &ZMEM = ' ' &GRPBOX1 = 'Options' )REINIT IF (&TEMP = 'RESETDSN') &ZODSN = &Z IF (&ZODSN > &Z) .CURSOR = ZODSN &zpm2 = 1 REFRESH (*) )PROC IF (&MEM = '99') &EXCURSOR = MEMBER VPUT EXCURSOR PROFILE &TEMP = RESETDSN &MEM = &Z &ZEDSMSG = 'INITIAL CURSOR = MEMBER' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "MEMBER NAME"' VER (&MEM NONBLANK MSG=UTLZ000) IF (&QBLIB = '99') &EXCURSOR = LIBRARY VPUT EXCURSOR PROFILE &TEMP = RESETDSN &QBLIB = &Z &ZEDSMSG = 'INITIAL CURSOR = LIB #' &ZEDLMSG = 'THE DEFAULT INITIAL CURSOR POSITION IS "LIBRARY NUMBER"' VER (&MEM NONBLANK MSG=UTLZ000) VPUT MEM SHARED &zpm2 = 0 VGET (ZRDSN ZRVOL) SHARED IF (&ZRDSN ¬= ' ') &ZTEMP = TRUNC(&ZRDSN,2) &ZTEMP1 = TRUNC(&ZTEMP,1) &ZTEMP2 = .TRAIL IF (&ZTEMP1 = '/' OR &ZTEMP1 = '~' OR &ZTEMP2 = ':') &WSFN = &ZRDSN .CURSOR = WSFN ELSE &ZODSN = &ZRDSN VGET (ZREFVOLM) PROFILE IF (&ZREFVOLM = 'ON') &ZVOL = &ZRVOL ELSE /* OW15849*/ &ZVOL = &Z /* OW15849*/ &WSFN = &Z .CURSOR = ZODSN &ZRDSN = ' ' &ZRVOL = ' ' VPUT (ZRDSN ZRVOL) SHARED VGET (ZBLIST) PROFILE IF (&ZBLIST ¬= 'EXECUTE') .MSG = ISRDS003 VGET (DSALSEL) SHARED IF (&DSALSEL ¬= ' ') VGET (DSA1,DSA2,DSA3,DSA4,DSA5,DSA6,DSA7) SHARED &PRJ1 = &DSA1 &LIB1 = &DSA2 &LIB2 = &DSA3 &LIB3 = &DSA4 &LIB4 = &DSA5 &TYP1 = &DSA6 &ZMEM = &DSA7 &ZODSN = ' ' &ZVOL = ' ' &DSALSEL = ' ' VPUT (DSALSEL) SHARED .CURSOR = ZMEM VGET (ZBLIST) PROFILE IF (&ZBLIST ¬= 'EXECUTE') .MSG = ISRDS003 IF (&ZPCFMCN ¬= ' ') /* Field is not blank @C5A*/ &ZCFMCNCL = 'YES' /* Set dialog variable @C5A*/ &ZPCFMCN = '/' /* @C5A*/ ELSE &ZCFMCNCL = 'NO' /* Field is blank @C5A*/ VPUT (ZPCFMCN) PROFILE /* VPUT to profile @C5A*/ IF (&ZCMD ¬= ' ') .MSG = ISPZ001 IF (&ZODSN = &Z & &WSFN = &Z) /* Check for nb input @W1A*/ VER (&PRJ1,NB) VER (&LIB1,NB) VER (&TYP1,NB) IF (&ZODSN ¬= ' ' & &WSFN = &Z) /* @W2C*/ &ZFC = TRUNC(&ZODSN,1) /* IF FIRST CHARACTER @M2A*/ IF (&ZFC = '''') /* OF DSN IS "'" CHECK @M2A*/ &ZREM = .TRAIL /* TO SEE IF LAST "'" @M2A*/ &ZREM2 = TRUNC(&ZREM,'''') /* IS MISSING. @M2A*/ IF (&ZREM2 = &ZREM) /* IF LAST "'" MISSING @M2A*/ &ZODSN = '&ZODSN&ZFC' /* ADD IT TO THE END @M2A*/ &ZMLCSR = '********' /* @M1A*/ PANEXIT((ZODSN,ZMLCSR),PGM,&ZMLVEXIT,&ZMLVDATA,MSG=ISRM040) ELSE IF (&QBLIB < 1 ³ &QBLIB > 39) &TEMP = RESETDSN VER (&QBLIB,NB,RANGE,1,39) IF (&QBLIB = 1) VER (&QBRN1,DSNAME) &QDSN = &QBRN1 IF (&QBLIB = 2) VER (&QBRN2,DSNAME) &QDSN = &QBRN2 IF (&QBLIB = 3) VER (&QBRN3,DSNAME) &QDSN = &QBRN3 IF (&QBLIB = 4) VER (&QBRN4,DSNAME) &QDSN = &QBRN4 IF (&QBLIB = 5) VER (&QBRN5,DSNAME) &QDSN = &QBRN5 IF (&QBLIB = 6) VER (&QBRN6,DSNAME) &QDSN = &QBRN6 IF (&QBLIB = 7) VER (&QBRN7,DSNAME) &QDSN = &QBRN7 IF (&QBLIB = 8) VER (&QBRN8,DSNAME) &QDSN = &QBRN8 IF (&QBLIB = 9) VER (&QBRN9,DSNAME) &QDSN = &QBRN9 IF (&QBLIB = 10) VER (&QBRN10,DSNAME) &QDSN = &QBRN10 IF (&QBLIB = 11) VER (&QBRN11,DSNAME) &QDSN = &QBRN11 IF (&QBLIB = 12) VER (&QBRN12,DSNAME) &QDSN = &QBRN12 IF (&QBLIB = 13) VER (&QBRN13,DSNAME) &QDSN = &QBRN13 IF (&QBLIB = 14) VER (&QBRN14,DSNAME) &QDSN = &QBRN14 IF (&QBLIB = 15) VER (&QBRN15,DSNAME) &QDSN = &QBRN15 IF (&QBLIB = 16) VER (&QBRN16,DSNAME) &QDSN = &QBRN16 IF (&QBLIB = 17) VER (&QBRN17,DSNAME) &QDSN = &QBRN17 IF (&QBLIB = 18) VER (&QBRN18,DSNAME) &QDSN = &QBRN18 IF (&QBLIB = 19) VER (&QBRN19,DSNAME) &QDSN = &QBRN19 IF (&QBLIB = 20) VER (&QBRN20,DSNAME) &QDSN = &QBRN20 IF (&QBLIB = 21) VER (&QBRN21,DSNAME) &QDSN = &QBRN21 IF (&QBLIB = 22) VER (&QBRN22,DSNAME) &QDSN = &QBRN22 IF (&QBLIB = 23) VER (&QBRN23,DSNAME) &QDSN = &QBRN23 IF (&QBLIB = 24) VER (&QBRN24,DSNAME) &QDSN = &QBRN24 IF (&QBLIB = 25) VER (&QBRN25,DSNAME) &QDSN = &QBRN25 IF (&QBLIB = 26) VER (&QBRN26,DSNAME) &QDSN = &QBRN26 IF (&QBLIB = 27) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN27' ELSE &QDSN = '&QBRN27' VER (&QDSN,DSNAME) IF (&QBLIB = 28) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN28' ELSE &QDSN = '&QBRN28' VER (&QDSN,DSNAME) IF (&QBLIB = 29) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN29' ELSE &QDSN = '&QBRN29' VER (&QDSN,DSNAME) IF (&QBLIB = 30) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN30' ELSE &QDSN = '&QBRN30' VER (&QDSN,DSNAME) IF (&QBLIB = 31) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN31' ELSE &QDSN = '&QBRN31' VER (&QDSN,DSNAME) IF (&QBLIB = 32) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN32' ELSE &QDSN = '&QBRN32' VER (&QDSN,DSNAME) IF (&QBLIB = 33) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN33' ELSE &QDSN = '&QBRN33' VER (&QDSN,DSNAME) IF (&QBLIB = 34) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN34' ELSE &QDSN = '&QBRN34' VER (&QDSN,DSNAME) IF (&QBLIB = 35) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN35' ELSE &QDSN = '&QBRN35' VER (&QDSN,DSNAME) IF (&QBLIB = 36) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN36' ELSE &QDSN = '&QBRN36' VER (&QDSN,DSNAME) IF (&QBLIB = 37) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN37' ELSE &QDSN = '&QBRN37' VER (&QDSN,DSNAME) IF (&QBLIB = 38) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN38' ELSE &QDSN = '&QBRN38' VER (&QDSN,DSNAME) IF (&QBLIB = 39) IF (&COL3BPFX > &Z) &QDSN = '&COL3BPFX..&QBRN39' ELSE &QDSN = '&QBRN39' VER (&QDSN,DSNAME) &PRJ = TRUNC(&QDSN,'.') &LIB = .TRAIL &LIB = TRUNC(&LIB,'.') &TYP = .TRAIL &TYP = TRUNC(&TYP,'.') &TEMP = .TRAIL IF (&PRJ > &Z) &PRJ0 = &PRJ &PRJ1 = &PRJ &ZBCPRJ1 = &PRJ IF (&LIB > &Z) &LIB0 = &LIB &LIB1 = &LIB &ZBCLIB1 = &LIB IF (&TYP > &Z) &TYP0 = &TYP &TYP1 = &TYP &ZBCTYP1 = &TYP IF (&TEMP > &Z) IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB..&TYP..&TEMP(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB..&TYP..&TEMP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB..&TYP(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB..&TYP''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ..&LIB(&MEM)''' ELSE &ZODSN = '''&PRJ..&LIB''' &TEMP = RESETDSN ELSE IF (&MEM > &Z) &ZODSN = '''&PRJ(&MEM)''' ELSE &ZODSN = '''&PRJ''' &TEMP = RESETDSN &ZPSWD = &PSWD &ZPRJ1 = &PRJ1 &ZLIB1 = &LIB1 &ZLIB2 = &LIB2 &ZLIB3 = &LIB3 &ZLIB4 = &LIB4 &ZTYP1 = &TYP1 &ZBCPRJ1 = &PRJ1 &ZBCLIB1 = &LIB1 &ZBCLIB2 = &LIB2 &ZBCLIB3 = &LIB3 &ZBCLIB4 = &LIB4 &ZBCTYP1 = &TYP1 &ZBCODSN = &ZODSN &ZBCVOL = &ZVOL /* add vol serial @bes*/ &ZBCWSFN = &WSFN /* @W1A*/ IF (&ZVIMAC ¬= ' ' ) /* ver imacro @bes*/ &ZXXX = TRUNC(&ZVIMAC,'!') /* @bes*/ &IMACNM = .TRAIL /* @bes*/ IF (&IMACNM = ' ') &IMACNM = &ZXXX /* @bes*/ &ZTIMACNM = &IMACNM /* @bes*/ VER (&IMACNM NAME MSG = ISRE900) /* @bes*/ IF (&VIEWM = ' ') &ZVIEW = 'YES' /* if mode not set use VIEW @bes*/ ELSE &ZVIEW = 'NO' /* any select code use browse@bes*/ &VIEWM = TRANS (&VIEWM &Z,&Z *,/) /* @W1A*/ &ZVIEW = TRANS (&VIEWM &Z,YES *,NO) /* @W1A*/ IF (&ZDBCS = NO) &MIXM = &Z /* @W1A*/ ELSE /* @W1A*/ &MIXM = TRANS (&MIXM &Z,&Z *,/) /* @W1A*/ &MIX = TRANS (&MIXM &Z,NO *,YES) /* @MOS*/ IF (&FNAM ¬= ' ') VER (&FNAM NAME) &ZBROCUR = 10 &ZWSBVE = TRANS (&ZWSBVE &Z,&Z *,/) /* @W1A*/ &ZVIEWWS = TRANS (&ZWSBVE &Z,&Z *,/) /* @W1A*/ &ZRECFROM = 'B' /* coming from browse @c2a*/ VPUT (ZRECFROM) SHARED /* save for recursion @c2a*/ &ZBCMIX = &MIX &ZBCFNAM = &FNAM VPUT (ZBCMIX ZBCFNAM ZBCWSFN) SHARED /* Add ZBCWSFN @W1C*/ VPUT (ZBCPRJ1 ZBCLIB1 ZBCLIB2 ZBCLIB3 ZBCLIB4 ZBCTYP1 ZBCODSN) SHARED VPUT (PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1) PROFILE VPUT (MIX FNAM ZVPROF ZVIMAC ZVIEW ZVIEWWS) PROFILE VPUT (QBRN1 QBRN2 QBRN3 QBRN4 QBRN5 QBRN6 QBRN7 QBRN8 QBRN9 QBRN10 QBRN11 QBRN12 QBRN13 QBRN14 QBRN15 QBRN16 QBRN17 QBRN18 QBRN19 QBRN20 QBRN21 QBRN22 QBRN23 QBRN24 QBRN25) PROFILE VPUT (QBRN26 QBRN27 QBRN28 QBRN29 QBRN30 QBRN31 QBRN32 QBRN33 QBRN34 QBRN35 QBRN36 QBRN37 QBRN38 QBRN39 QBLIB COL3BPFX) PROFILE )END ./ ADD NAME=YOUSURE )ATTR /********************************************************************** /* PANEL: YOUSURE * /* AUTHOR: DAVE LEIGH * /* FUNCTION: THIS PANEL WORKS WITH THE YOUSURE CLIST TO PROMPT USERS * /* BEFORE DELETING SOMETHING. * /********************************************************************** + TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(BLUE) % TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(WHITE) \ TYPE(OUTPUT) INTENS(HIGH) )BODY WINDOW(23,1) +Are You Sure ?_Z%(Y/N) )INIT .ZVARS = '(ANSWER)' )END