The Foreground processing option uses ISPF dialog management services. Figure 1 shows the Foreground selection
panel definition. See the z/OS ISPF Dialog Developer's Guide and Reference for
a general description of panel definition formats.
Note: In
Figure 1, attribute
characters have been replaced by blanks. Also, some of the ISPF-supplied
CLISTs contain a specific library (such as SYS1.LINKLIB) on the program
call. If the called program does not reside in that library, you might
need to customize the CLIST.
Figure 1. Foreground selection
panel definition (ISRFPA) (Part 1 of 3))PANEL KEYLIST(ISRSAB,ISR)
)ATTR DEFAULT(...) FORMAT(MIX) /* ISRFPA - ENGLISH - 5.6 */
0B TYPE(AB)
0D TYPE(PS)
04 TYPE(ABSL) GE(ON)
05 TYPE(PT)
09 TYPE(FP)
0A TYPE(NT)
11 TYPE(SAC)
22 TYPE(WASL) SKIP(ON) GE(ON)
10 TYPE(ET)
26 AREA(SCRL) EXTEND(ON)
27 TYPE(CEF) PADC(USER) CKBOX(ON)
28 TYPE(NEF) CAPS(ON) PADC(USER)
)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')
Figure 2. Foreground selection panel definition
(ISRFPA) (Part 2 of 3)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('Help') MNEM(1)
PDC DESC('General') MNEM(1) ACTION RUN(TUTOR) PARM('ISR40010')
PDC DESC('Assembler') MNEM(1) ACTION RUN(TUTOR) PARM('ISR41000')
PDC DESC('COBOL') MNEM(1) ACTION RUN(TUTOR) PARM('ISR42000')
PDC DESC('VS Fortran') MNEM(4) ACTION RUN(TUTOR) PARM('ISR43000')
PDC DESC('PL/I') MNEM(2) ACTION RUN(TUTOR) PARM('ISR45000')
PDC DESC('VS Pascal') MNEM(4) ACTION RUN(TUTOR) PARM('ISR46000')
PDC DESC('Binder/Link editor') MNEM(1) ACTION RUN(TUTOR) PARM('ISR47000')
PDC DESC('SCRIPT VS') MNEM(1) ACTION RUN(TUTOR) PARM('ISR49000')
PDC DESC('VS COBOL II debug') MNEM(1) ACTION RUN(TUTOR) PARM('ISR4AA00')
PDC DESC('OS/VS COBOL debug') MNEM(1) ACTION RUN(TUTOR) PARM('ISR4A000')
PDC DESC('FORTRAN debug') MNEM(7) ACTION RUN(TUTOR) PARM('ISR4B000')
PDC DESC('Member parts list') MNEM(1) ACTION RUN(TUTOR) PARM('ISR4C000')
PDC DESC('C/370') MNEM(3) ACTION RUN(TUTOR) PARM('ISR4D000')
PDC DESC('REXX/370') MNEM(1) ACTION RUN(TUTOR) PARM('ISR4E000')
PDC DESC('ADA/370') MNEM(2) ACTION RUN(TUTOR) PARM('ISR4F000')
PDC DESC('AD/Cycle C/370') MNEM(5) ACTION RUN(TUTOR) PARM('ISR4G000')
PDC DESC('ISPDTLC') MNEM(5) ACTION RUN(TUTOR) PARM('ISR4I000')
PDC DESC('OS/390 C/C++') MNEM(5) ACTION RUN(TUTOR) PARM('ISR4J000')
)ABCINIT
.ZVARS=FPAHELP
)BODY CMD(ZCMD)
.. Menu. Utilities. Help.
.---------------------------------------------------------------------
. .Foreground Selection Panel.
.Option ===>.Z
.SAREA38
)AREA SAREA38
.1 . Assembler . ..11 .*FORTRAN debug .
.2 . COBOL . ..12 . Member Parts List .
.3 . VS FORTRAN . ..13 .*C/370 .
.5 . PL/I . ..14 .*REXX/370 .
.6 . VS PASCAL . ..15 .*ADA/370 .
.7 .*Binder/Link editor . ..16 .*AD/Cycle C/370 .
.9 . SCRIPT/VS . ..18 . ISPDTLC .
.10 .*VS COBOL II debug . ..19 .*OS/390 C/C++ .
.10A.*OS/VS COBOL debug .
.. .
. ..&multipmt ..*.No packed data support. .
. ..Z..Source Data Packed .
)INIT
.ZVARS = '(ZCMD ZFPKEDV)'
&ZWINTTL = ' '
.HELP = ISR40000
&ZFPKEDV = ' '
&ZFPKED = TRANS(TRUNC(&ZFPKED,1),Y,YES,*,NO) /* DATA FORMAT CHECK */
&ZFPKEDV = TRANS(&ZFPKED YES,'/' NO,' ')
IF (&ZGUI = ' ')
&MULTIPMT='Enter "/" to select option '
ELSE
&MULTIPMT='Check box to select option '
.CURSOR = 'ZCMD'
Figure 3. Foreground selection panel definition
(ISRFPA) (Part 3 of 3))REINIT
REFRESH(ZFPKEDV)
)PROC
&DSN = ' ' /* INITIALIZE DATA SET NAME FIELD */
&ZORG = ' ' /* INITIALIZE DATA SET ORGANIZATION VARIABLE */
IF (&ZFPKEDV = ' ')
&ZFPKED = 'NO'
ELSE
&ZFPKED = 'YES'
&ZFPKED = TRUNC(&ZFPKED,1)
VER (&ZFPKED,NB,LIST,Y,N) /* Y = EXPAND PACKED DATA */
&ZFPKED = TRANS(TRUNC(&ZFPKED,1),Y,YES,N,NO)
&ZFPACK = TRANS(TRUNC(&ZFPKED,1),Y,YES,N,NO)
VPUT (ZFPACK,ZFPKED) PROFILE
&ZCMDWRK = &Z
IF (&ZCMD ¬= &Z)
&ZCMDWRK = TRUNC(&ZCMD,'.')
&ZTRAIL=.TRAIL
IF (&ZCMDWRK = &Z)
.MSG = ISRU000
&ZSEL = TRANS (TRUNC (&ZCMD,'.')
1,'PGM(ISRFPR) PARM((ISRFP01) 1) NEWPOOL'
2,'PGM(ISRFPR) PARM((ISRFP02) 2) NEWPOOL'
3,'PGM(ISRFPR) PARM((ISRFP03) 3) NEWPOOL'
5,'PGM(ISRFPR) PARM((ISRFP05) 5) NEWPOOL'
6,'PGM(ISRFPR) PARM((ISRFP06) 6) NEWPOOL'
7,'PGM(ISRFPR) PARM((ISRFP07) 7) NEWPOOL'
9,'PGM(ISRFPR) PARM((ISRFP09) 9) NEWPOOL'
10,'PGM(ISRFPR) PARM((IGZTPIN2,ISRFP10) 10) NEWPOOL'
10A,'PGM(ISRFPR) PARM((ISRFP10A) 10A) NEWPOOL'
11,'PGM(ISRFPR) PARM((AFFFP11,DDBFP11,ISRFP11) 11) NEWPOOL'
12,'PGM(ISRFPR) PARM((ISRFP12) 12) NEWPOOL'
13,'PGM(ISRFPR) PARM((EDCFP13,ISRFP13) 13) NEWPOOL'
14,'PGM(ISRFPR) PARM((FANFP14,ISRFP14) 14) NEWPOOL'
15,'PGM(ISRALTDI) PARM(EVGFP15,,ISRFP15,*) NOCHECK'
16,'PGM(ISRFPR) PARM((EDCFP16,ISRFP16) 16) NEWPOOL'
18,'CMD(ISPDTLC (PANEL RETURN)) MODE(FSCR)'
19,'PGM(ISRALTDI) PARM(CBC3PE4A,+,ISRFP19,*,ISRFP19A) NEWPOOL'
' ',' '
*,'?')
)PNTS
FIELD(ZPS01001) VAR(ZCMD) VAL(1)
FIELD(ZPS01002) VAR(ZCMD) VAL(11)
FIELD(ZPS01003) VAR(ZCMD) VAL(2)
FIELD(ZPS01004) VAR(ZCMD) VAL(12)
FIELD(ZPS01005) VAR(ZCMD) VAL(3)
FIELD(ZPS01006) VAR(ZCMD) VAL(13)
FIELD(ZPS01007) VAR(ZCMD) VAL(5)
FIELD(ZPS01008) VAR(ZCMD) VAL(14)
FIELD(ZPS01009) VAR(ZCMD) VAL(6)
FIELD(ZPS01010) VAR(ZCMD) VAL(15)
FIELD(ZPS01011) VAR(ZCMD) VAL(7)
FIELD(ZPS01012) VAR(ZCMD) VAL(16)
FIELD(ZPS01013) VAR(ZCMD) VAL(9)
FIELD(ZPS01014) VAR(ZCMD) VAL(18)
FIELD(ZPS01015) VAR(ZCMD) VAL(10)
FIELD(ZPS01016) VAR(ZCMD) VAL(19)
FIELD(ZPS01017) VAR(ZCMD) VAL(10A)
)END
/* 5694-A01 (C) COPYRIGHT IBM CORP 1980, 2004 */
/* ISPDTLC Release: 5.6. Level: PID */
/* z/OS 01.06.00. Created - Date: 19 Nov 2003, Time: 12:37 */
Each
Foreground option has an associated panel and CLIST. For example,
option 1 has the option panel name ISRFP01 with the corresponding
CLIST name ISRFC01. Figure 4 shows
the ISRFP01 option panel definition.
Note: In
Figure 4, attribute
characters have been replaced by blanks.
Figure 4. Foreground Assembler
H definition (ISRFP01) (Part 1 of 5))PANEL KEYLIST(ISRSAB,ISR)
)ATTR DEFAULT(...) FORMAT(MIX) /* ISRFP01 - ENGLISH - 5.2 */
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)
12 TYPE(CEF) 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) EXTEND(ON)
28 TYPE(SAC) CSRGRP(99) RADIO(ON)
)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('RefList') MNEM(1)
PDC DESC('Current Data Set List &ZDSCURT') MNEM(1) ACC(CTRL+ALT+P)
ACTION RUN(ISRRLIST) PARM('PL1')
PDC DESC('Current Library List &ZDSCURLT') MNEM(2) ACC(CTRL+SHIFT+P)
ACTION RUN(ISRRLIST) PARM('LL1')
PDC DESC('List of Personal Data Set Lists') MNEM(1) PDSEP(ON) ACC(CTRL+ALT+O)
ACTION RUN(ISRRLIST) PARM('PL2')
PDC DESC('List of Personal Library Lists') MNEM(2) ACC(CTRL+SHIFT+O)
ACTION RUN(ISRRLIST) PARM('LL2')
Figure 5. Foreground Assembler H definition (ISRFP01)
(Part 2 of 5))ABCINIT
.ZVARS=REFLIST
VGET (ZCURTB ZCURLTB) PROFILE
IF (&ZCURTB = &Z) &ZDSCURT = &Z
ELSE &ZDSCURT= '(&ZCURTB)'
IF (&ZCURLTB = &Z) &ZDSCURLT = &Z
ELSE &ZDSCURLT= '(&ZCURLTB)'
)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('Help') MNEM(1)
PDC DESC('Input Data Set') MNEM(1) ACTION RUN(TUTOR) PARM('ISR41001')
PDC DESC('Macro and copy libraries') MNEM(1) ACTION RUN(TUTOR) PARM('ISR41002')
PDC DESC('Object Data Set') MNEM(1) ACTION RUN(TUTOR) PARM('ISR41003')
PDC DESC('Listing Data Set') MNEM(1) ACTION RUN(TUTOR) PARM('ISR41004')
PDC DESC('Password protection') MNEM(1) ACTION RUN(TUTOR) PARM('ISR41005')
PDC DESC('Assembler selection') MNEM(1) ACTION RUN(TUTOR) PARM('ISR41006')
PDC DESC('Example') MNEM(1) ACTION RUN(TUTOR) PARM('ISR41007')
PDC DESC('Appendices') MNEM(5) ACTION RUN(TUTOR) PARM('ISR00004')
PDC DESC('Index') MNEM(3) ACTION RUN(TUTOR) PARM('ISR91000')
)ABCINIT
.ZVARS=FP1HELP
Figure 6. Foreground Assembler H definition (ISRFP01)
(Part 3 of 5))BODY CMD(ZCMD)
.. Menu. RefList. Utilities. Help.
.------------------------------------------------------------------------------
. .Foreground Assembler. .
.Command ===>.Z .
.SAREA39 .
)AREA SAREA39
.ISPF Library:. .
. ..Project . . ..Z .
. ..Group . . . ..Z .. . ..Z .. . ..Z .. . ..Z .
. ..Type . . . ..Z .
. ..Member . . ..Z ..(Blank or pattern for member selection list).
.
.Other Partitioned or Sequential Data Set:. .
. ..Data Set Name . ..Z .
.. .
.List ID . . ..Z . .Assembler.
.Password . ..Z . .Z..1..High Level Assembler..2..Assembler H .
.
.Assembler Options: (Options OBJECT and LIST generated automatically). .
. .. ===>.Z .
.
.Additional input libraries:. .
. .. ===>.Z .
. .. ===>.Z .
. .. ===>.Z .
)INIT
.ZVARS = '(ZCMD PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 MEM DSN LID PSWD ZASMOPT FHASM +
FHAL1 FHAL2 FHAL3)'
.HELP = ISR41000
.ATTR(ZASMOPT)='CSRGRP(99) RADIO(ON)'
.ATTR(PSWD)='INTENS(NON)'
&ZUT6 = 1
&ZUT7 = 1
&ZUT11 = 1
&ZUT12 = 1
&ZUT13 = 1
&ZUT14 = 1
&ZMLCSR = ' ' /* @M1A*/
.HELP = ISR41A00
&TYP1 = &ASMT /*ASSEMBLER TYPE VARIABLE NAME*/
IF (&ZORG = 'PS')
IF (&LID = ' ') .CURSOR = LID
IF (&DSN ¬= ' ')
&MEM = ' ' /* @M1A*/
IF (.CURSOR = ' ') .CURSOR = DSN
&LID = ' '
IF (&ZFTEMP = '')
&ZFPACK = &ZFPACK
VPUT (ZFPACK) SHARED
&ZFTEMP = '0'
IF (&ZASMOPT ¬= 1)
IF (&ZASMOPT ¬= 2)
&ZASMOPT = 1
Figure 7. Foreground Assembler H definition (ISRFP01)
(Part 4 of 5))REINIT
REFRESH(PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 MEM DSN FHAL1 FHAL2 FHAL3)
IF (&ZNXTMSG='ISRT') .CSRPOS = &ZCSRP /* AUTOTYPE */
.CURSOR = &ZCSRV /* AUTOTYPE */
ELSE &ZXZX = &Z /* AUTOTYPE */
&ZUT6 = 1
&ZUT7 = 1
&ZUT11 = 1
&ZUT12 = 1
&ZUT13 = 1
&ZUT14 = 1
IF (&ZMLCSR ¬= ' ') /* @M1A*/
.CURSOR = &ZMLCSR /* @M1A*/
)PROC
&ZCSRV = .CURSOR /* AUTOTYPE */
&ZCSRP = .CSRPOS /* AUTOTYPE */
&ZODSNLN = 0 /* AUTOTYPE */
&ZODSNMB = &Z /* AUTOTYPE */
&ZNAMES='ZCSRV ZCSRP PRJ1 LIB1 LIB2 LIB3 LIB4 TYP1 MEM '
&ZNAMES='&ZNAMES *.&ZODSNLN&ZODSNMB ZCMD'
IF (.CURSOR = DSN, FHAL1, FHAL2, FHAL3)
&ZODSNLN = 56
&ZODSNMB = &Z
IF (.CURSOR = FHAL1) &ZODSNLN = 65
IF (.CURSOR = FHAL1) &ZODSNMB = '%'
IF (.CURSOR = FHAL2) &ZODSNLN = 65
IF (.CURSOR = FHAL2) &ZODSNMB = '%'
IF (.CURSOR = FHAL3) &ZODSNLN = 65
IF (.CURSOR = FHAL3) &ZODSNMB = '%'
&ZNAMES='ZCSRV ZCSRP * * * * * * * &ZCSRV&ZODSNLN&ZODSNMB ZCMD'
PANEXIT((ZNAMES),LOAD,ISRAUTOT) /* AUTOTYPE */
IF (&ZNXTMSG='ISRT') EXIT /* AUTOTYPE */
VER(&ZASMOPT,NONBLANK)
VER(&ZASMOPT RANGE,1,2)
&ZUT6 = 0
&ZUT7 = 0
&ZUT11 = 0
&ZUT12 = 0
&ZUT13 = 0
&ZUT14 = 0
VGET (ZRDSN) SHARED /* REFERENCE LIST CODE */
IF (&ZRDSN ¬= ' ') /* IF DATA SET SELECTED */
&DSN = &ZRDSN /* PUT DSN VARIABLE */
&ZRDSN = ' ' /* INTO PANEL */
&ZRVOL = ' ' /* INTO PANEL */
VPUT (ZRDSN ZRVOL) SHARED /* */
.CURSOR = DSN
.MSG = ISRDS003 /* MSG PENDING */
Figure 8. Foreground Assembler H definition (ISRFP01)
(Part 5 of 5)VGET (DSALSEL) SHARED /* */
IF (&DSALSEL ¬= ' ') /* IF LIBRARY SELECTED */
VGET (DSA1,DSA2,DSA3,DSA4,DSA5,DSA6,DSA7) SHARED
&PRJ1 = &DSA1 /* PUT LIBRARY VARIABLES */
&LIB1 = &DSA2 /* INTO PANEL */
&LIB2 = &DSA3 /* . */
&LIB3 = &DSA4 /* . */
&LIB4 = &DSA5 /* . */
&TYP1 = &DSA6 /* . */
&MEM = &DSA7 /* . */
&DSN = ' ' /* BLANK OUT DSN */
&DSALSEL = ' ' /* CLEAR LIBRARY SELECTION */
VPUT (DSALSEL) SHARED /* */
.CURSOR = MEM
.MSG = ISRDS003 /* MSG PENDING */
/* */
IF (&ZCMD ¬= ' ') .MSG = ISPZ001 /* INVALID COMMAND */
IF (&DSN = ' ') /* IF NOT OTHER DATA SET, */
VER (&PRJ1,NB) /* VERIFY LIBRARY FIELDS ARE */
VER (&LIB1,NB) /* INPUT */
VER (&TYP1,NB)
IF (&DSN ¬= ' ') /* @M1A*/
VER(&DSN DSNAMEFM)
IF (&LID ¬= '*') VER (&LID,NAME) /* LIST ID MUST BE VALID NAME */
VER (&PSWD,INCLUDE,ALPHA,NUM,MSG=ISRC609) /* Check password @V9A*/
IF (&ZASMOPT = 1)
&FHALEV = 'HLASM'
IF (&ZASMOPT = 2)
&FHALEV = 'HASM'
IF (&FHAL1 ¬= ' ') /* @M2A*/
VER (&FHAL1,DSNAMEPQ) /* VERIFY ADDITIONAL LIB1@DSNQ*/
IF (&FHAL2 ¬= ' ') /* @M2A*/
VER (&FHAL2,DSNAMEPQ) /* VERIFY ADDITIONAL LIB2@DSNQ*/
IF (&FHAL3 ¬= ' ') /* @L2A*/
VER (&FHAL3,DSNAMEPQ) /* VERIFY ADDITIONAL LIB2@DSNQ*/
&ASMT = &TYP1 /* SAVE ASSEMBLER TYPE */
&ZSEL = 'CMD(%ISRFC01)' /* EXECUTE ASSEMBLE CLIST */
/* Begin @L3A */
&ZSYSDS1 = &FHAL1 /* Fill fields for ISRJFSYS */
&ZSYSDS2 = &FHAL2 /* to use as input. */
&ZSYSDS3 = &FHAL3 /* ZSYSDS? is a qualified */
&ZSYSCUR1 = 'FHAL1' /* dataset. */
&ZSYSCUR2 = 'FHAL2' /* ZSYSCUR? is were the cursor*/
&ZSYSCUR3 = 'FHAL3' /* is placed on a error. */
VPUT (ZSYSDS1 ZSYSDS2 ZSYSDS3 ZSYSCUR1 ZSYSCUR2 ZSYSCUR3) SHARED
/* End @L3A */
VPUT (PRJ1,LIB1,LIB2,LIB3,LIB4,ASMT,FHASM) PROFILE /* OY14824*/
VPUT (FHAL1,FHAL2,FHAL3,FHALEV,ZASMOPT) PROFILE
VPUT (PRJ1,LIB1,LIB2,LIB3,LIB4,ASMT,FHASM,DSN,LID) SHARED /* @L2C*/
&ZFBROWS = 'ISRBROB ' /*BROWSE LISTING , IF BLANK NO AUTO BROWSE */
&ZFPRINT = 'ISRFPPRT' /*PRINT PANEL NAME, IF BLANK NO AUTO PRINT PNL*/
VPUT (ZFBROWS,ZFPRINT,FHAL1,FHAL2,FHAL3,FHALEV) SHARED /* OW10516*/
)END
/* 5694-A01 (C) COPYRIGHT IBM CORP 1980, 2001 */
/* ISPDTLC Release: 5.2. Level: PID */
/* z/OS 01.02.00. Created - Date: 10 Mar 2001, Time: 14:25 */
/* OW21977 - 960813 - OS/390 R2 ROLLUP APAR - OW19891, OW20382 */
/* OW10516 - 950113 - Add High Level Assembler. GT4045 - MOS */
Table 1 lists the names of
the ISPF-supplied panels and CLISTs for the Foreground processing
option.
Table 1. ISPF-supplied
panels and CLISTs for foreground processing optionOption |
Description |
Panel ID |
CLIST ID |
---|
|
|
|
|
- |
FOREGROUND SELECTION MENU |
ISRFPA |
-- |
1 |
ASSEMBLER |
ISRFP01 |
ISRFC01 |
2 |
VS COBOL II |
ISRFP02 |
ISRFC02 |
3 |
FORTRAN COMPILE |
ISRFP03 |
ISRFC03 |
5 |
PLI OPTIMIZER COMPILE |
ISRFP05 |
ISRFC05 |
6 |
VS PASCAL COMPILE |
ISRFP06 |
ISRFC06 |
7 |
BINDER/LINK EDIT |
ISRFP07 |
ISRFC07 |
9 |
SCRIPT/VS |
ISRFP09 |
ISRFC09 |
10 |
VS COBOL II DEBUG |
-- |
-- |
10A |
COBOL INTERACTIVE DEBUG |
ISRFP10A |
ISRFC10A |
11 |
FORTRAN INTERACTIVE DEBUG |
ISRFP11 |
ISRFC11 |
12 |
MEMBER PARTS LIST |
ISRFP12 |
ISRFC12 |
13 |
C/370™ COMPILE |
-- |
-- |
14 |
REXX/370 COMPILE |
-- |
-- |
15 |
ADA/370 COMPILE |
-- |
-- |
16 |
AD/CYCLE C/370 COMPILE |
-- |
-- |
17 |
AD/CYCLE C/370 COBOL/370 |
-- |
-- |
18 |
ISPDTLC |
ISPCP01 |
-- |
19 |
OS/390® C/C++ |
-- |
-- |
|
|
|
|
Figure 9 shows the overall
flow of control for foreground processing.
Figure 9. Foreground processing
flow
ISRFPA is the Foreground Selection Panel. Each option on this menu
translates to these selection keywords:
'PGM(ISRFPR) PARM((ISRFPnn) nn) NEWPOOL'
For all options, program ISRFPR receives control and is passed
a parameter containing a list of panel names and the option number. The
list of panel names is parsed and the first panel found in the ISPPLIB
concatenation sequence is displayed.
Attention: To avoid possible conflicts with ISPF coding,
do not use the numbers 12 or 19 for your options.
Each option panel (ISRFP01-ISRFP12) sets certain dialog variables
that the ISRFPR program interprets. See Required option entry panel variables. One of these variables,
ZSEL, is set to a string of selection keywords (following the rules
for selection panels) that indicate which CLIST name (CMD) or load
module name (PGM) receives control next.
Note: For foreground processing, ZSEL cannot be set to the PANEL keyword.
The designated CLIST or program does not receive control immediately,
because ISRFPR uses the DISPLAY service to display the option panel,
rather than the SELECT service. After the option panel is displayed,
ISRFPR allocates the user-designated libraries or data sets, displays
a member list (if one is required), and scans the concatenated sequence
of libraries (if specified) to find the designated member. Then ISRFPR
invokes the SELECT service, passing as input the string of selection
keywords specified in ZSEL. This causes the corresponding CLIST or
program to receive control. (The distributed Foreground option uses
CLISTs exclusively.)
The CLIST sets up and issues the appropriate TSO commands to invoke
the language processor. The CLIST also initiates automatic browsing
of the list data set and subsequent display of the Foreground Print
Options panel. When the CLIST finishes, ISRFPR regains control and
redisplays the option entry panel.
The PDF interface to VS COBOL II Interactive Debug uses the Debug
Productivity Aid (DPA) integrated into VS COBOL II. If your installation
does not have VS COBOL II Release 2 or if the panel for DPA (IGZTPIN2)
is not in your ISPPLIB concatenation, PDF displays a panel stating
DPA is not installed or could not be accessed.
The PDF FORTRAN Interactive Debug option supports both FORTRAN
Interactive Debug Version 2 (5668-903) and FORTRAN Interactive Debug
Version 1 (5734-F05). If FORTRAN Interactive Debug Version 2 is installed
(panel AFFFP11 is found in the ISPPLIB concatenation), PDF executes
the Debug Dialog supplied by FORTRAN Interactive Debug Version 2.
If FORTRAN Interactive Debug Version 1 is installed (panel DDBFP11),
PDF executes that Debug Dialog. PDF looks for FORTRAN Interactive
Debug Version 2 first, then Version 1, and finally its own Debug Dialog.