home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.uv.es
/
2014.11.ftp.uv.es.tar
/
ftp.uv.es
/
pub
/
mvs
/
BRACKETS.DISTRIB.CNTL.V1R1
next >
Wrap
Text File
|
1993-08-17
|
92KB
|
1,133 lines
//JOBNAME JOB ACCOUNT,'NAME'
//*------------------------------------------------------------------*/
//* */
//* Copyright (c) The Charles Stark Draper Laboratory, Inc., 1993 */
//* */
//* This software is provided on an "AS IS" basis. All warranties, */
//* including the implied warranties of merchantability and fitness, */
//* are expressly denied. */
//* */
//* Provided this copyright notice is included, this software may */
//* be freely distributed and not offered for sale. */
//* */
//* Changes or modifications may be made and used only by the maker */
//* of same, and not further distributed. Such modifications should */
//* be mailed to the author for consideration for addition to the */
//* software and incorporation in subsequent releases. */
//* */
//*------------------------------------------------------------------*/
//*
//* TSO/ISPF Square brackets support
//*
//* Author: Steve Bacher <seb@draper.com>
//*
//* Date: 8 May 1993
//*
//*-------------------------------------------------------------------
//*
//* This job creates the distribution libraries (PDS's).
//*
//* Run this JCL to create the PDS's, after customizing to suit.
//* (Obviously, put in a good JOB statement first.)
//* To customize the JCL, change the defaults on the //MDLOAD PROC
//* statement to your liking, particularly the PREFIX default.
//* You might also want to change the final qualifiers of the PDS's
//* created - to do this, find the // EXEC MDLOAD statements and
//* change the value of the TO parameter.
//*
//* See the $$README file (of the CNTL PDS, first in this stream)
//* for the rest of the installation instructions.
//*
//MDLOAD PROC CLS='*',BS='6160',U='3380',V='',
// TRK1='30',TRK2='10',DIR='35',RLSE='RLSE',
// PREFIX='SYS8.BRACKETS.INSTALL.'
//*
//IEBUPDTE EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=&CLS
//SYSUT2 DD DISP=(NEW,CATLG,DELETE),DSN=&PREFIX.&TO,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=&BS),
// SPACE=(TRK,(&TRK1,&TRK2,&DIR),&RLSE),UNIT=&U,VOL=SER=&V
//*
// PEND
//*
//CNTL EXEC MDLOAD,TRK1='5',TO='CNTL'
//SYSIN DD DATA,DLM='?!'
./ ADD NAME=$$README
TSO/ISPF Square Brackets Support
This support consists of 3 SMP/E usermods to ISPF (currently written
for ISPF and ISPF/PDF V3R3), plus a REXX exec called "BRACKETS".
To install these utilities:
(1) Receive and apply the usermods in the CNTL dataset. Change the
SYSMOD ID's to whatever you want, but be sure to modify the
references across all three. Change the FMIDs of the ISPF and
ISPF/PDF products to match your site. Note that the distribution
library for the new terminal translate tables is ADLOAD; either
create an SMP/E DDDEF for this distlib or change the JCLIN to
reflect a different distlib of your choice.
(2) Install the BRACKETS exec in the CLIST or EXEC library of your
choice. Install the BRACKETS help similarly.
(3) Send all gripes, compliments and suggestions to seb@draper.com.
./ ADD NAME=BRACKET1
++USERMOD(BRACKET1) /* ISPF 3.3 ISPF ASCII TERMINAL TYPE USERMOD
**********************************************************************
*** ***
*** This usermod creates an ISPF terminal translate table ***
*** (called ISPX7171) associated with a terminal type we call ***
*** "ASCII" on the ISPF option 0.1 panel. This terminal type ***
*** supports square brackets. ***
*** ***
*** Also required is BRACKET2, which creates the corresponding ***
*** ISPF/PDF terminal translate table ISRX7171; and BRACKET3, ***
*** which modifies the ISPF option 0.1 panels to support this. ***
*** ***
********************************************************************/.
++VER(Z038) FMID(HIF3302).
++IF FMID(HDV3302) THEN REQ(BRACKET2) /* ISRX7171 module */ .
++IF FMID(JIF3310) THEN REQ(BRACKET3) /* ISPF option 0.1 panels */ .
++JCLIN.
//LKED EXEC PGM=IEWL,PARM='LIST,LET,RENT,REUS'
//SYSPRINT DD SYSOUT=A
//SYSLMOD DD DISP=SHR,DSN=ISP.V3R3M0.ISPLOAD
//ADLOAD DD DISP=SHR,DSN=DST2.ADLOAD
//SYSLIN DD *
ORDER ISPX7171
ENTRY ISPX7171
INCLUDE ADLOAD(ISPX7171)
NAME ISPX7171(R)
/*
++SRC(ISPX7171) DISTLIB(ADSOURCE) DISTMOD(ADLOAD).
SPACE 1 00010000
*********************************************************************** 00020000
* * 00030000
* ISPF 3.3.0 "ASCII" ISPF terminal translate table. * 00040000
* Also see ISRX7171 for ISPF/PDF terminal translation. * 00050000
* Reference: ISPF and ISPF/PDF Planning and Customizing (SC34-4257-01)* 00060000
* * 00070000
* Copied from ISPOWNTT (in SAMPLIB) and modified. * 00080000
* * 00090000
*********************************************************************** 00100000
* 00110000
ISPX7171 CSECT 00120000
TTID DC CL8'ISPX7171' 00130000
UPPP DC AL4(TTUPP) 00140000
LOWP DC AL4(TTLOW) 00150000
VALP DC AL4(TTVAL) 00160000
ALBP DC AL4(TTALB) 00170001
ETOP DC A(0) 00180000
GSCP DC A(0) 00190000
GSMP DC AL4(TTGSM) 00200000
GSSP DC A(0) 00210000
EDIP DC A(0) 00220000
EDOP DC A(0) 00230000
DPRP DC A(0) 00240000
TBIP DC A(0) 00250000
TBOP DC A(0) 00260000
ESCV DC X'00000000' 00270000
ALPP DC AL4(TTALP) 00280000
COLP DC AL4(0) No non-EBCDIC collating - SEB 00290000
* 00300000
* 00310000
TTUPP DC X'0001020304050607' (X'00' TO X'07') 00320000
DC X'40090A0B0C0D0E0F' (X'08' TO X'0F') 00330000
DC X'1011121314151617' (X'10' TO X'17') 00340000
DC X'18191A1B4040401F' (X'18' TO X'1F') 00350000
DC X'2021222324252627' (X'20' TO X'27') 00360000
DC X'28292A2B2C2D2E2F' (X'28' TO X'2F') 00370000
DC X'3031323334353637' (X'30' TO X'37') 00380000
DC X'38393A3B3C3D3E3F' (X'38' TO X'3F') 00390000
DC X'4041424344454647' (X'40' TO X'47') 00400000
DC X'48494A4B4C4D4E4F' (X'48' TO X'4F') 00410000
DC X'5051525354555657' (X'50' TO X'57') 00420000
DC X'58595A5B5C5D5E5F' (X'58' TO X'5F') 00430000
DC X'6061626364656667' (X'60' TO X'67') 00440000
DC X'68696A6B6C6D6E6F' (X'68' TO X'6F') 00450000
DC X'7071727374757677' (X'70' TO X'77') 00460000
DC X'78797A7B7C7D7E7F' (X'78' TO X'7F') 00470000
DC X'80C1C2C3C4C5C6C7' (X'80' TO X'87') 00480000
DC X'C8C98A8B8C8D8E8F' (X'88' TO X'8F') 00490000
DC X'90D1D2D3D4D5D6D7' (X'90' TO X'97') 00500000
DC X'D8D99A9B9C9D9E9F' (X'98' TO X'9F') 00510000
DC X'A0A1E2E3E4E5E6E7' (X'A0' TO X'A7') 00520000
DC X'E8E9AAABACADAEAF' (X'A8' TO X'AF') 00530000
DC X'B0B1B2B3B4B5B6B7' (X'B0' TO X'B7') 00540000
DC X'B8B9BABBBCBDBEBF' (X'B8' TO X'BF') 00550000
DC X'C0C1C2C3C4C5C6C7' (X'C0' TO X'C7') 00560000
DC X'C8C9CACBCCCDCECF' (X'C8' TO X'CF') 00570000
DC X'D0D1D2D3D4D5D6D7' (X'D0' TO X'D7') 00580000
DC X'D8D9DADBDCDDDEDF' (X'D8' TO X'DF') 00590000
DC X'E0E1E2E3E4E5E6E7' (X'E0' TO X'E7') 00600000
DC X'E8E9EAEBECEDEEEF' (X'E8' TO X'EF') 00610000
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7') 00620000
DC X'F8F9FAFBFCFDFEFF' (X'F8' TO X'FF') 00630000
* 00640000
* 00650000
TTLOW DC X'0001020304050607' (X'00' TO X'07') 00660000
DC X'40090A0B0C0D0E0F' (X'08' TO X'0F') 00670000
DC X'1011121314151617' (X'10' TO X'17') 00680000
DC X'18191A1B4040401F' (X'18' TO X'1F') 00690000
DC X'2021222324252627' (X'20' TO X'27') 00700000
DC X'28292A2B2C2D2E2F' (X'28' TO X'2F') 00710000
DC X'3031323334353637' (X'30' TO X'37') 00720000
DC X'38393A3B3C3D3E3F' (X'38' TO X'3F') 00730000
DC X'4041424344454647' (X'40' TO X'47') 00740000
DC X'48494A4B4C4D4E4F' (X'48' TO X'4F') 00750000
DC X'5051525354555657' (X'50' TO X'57') 00760000
DC X'58595A5B5C5D5E5F' (X'58' TO X'5F') 00770000
DC X'6061626364656667' (X'60' TO X'67') 00780000
DC X'68696A6B6C6D6E6F' (X'68' TO X'6F') 00790000
DC X'7071727374757677' (X'70' TO X'77') 00800000
DC X'78797A7B7C7D7E7F' (X'78' TO X'7F') 00810000
DC X'8081828384858687' (X'80' TO X'87') 00820000
DC X'88898A8B8C8D8E8F' (X'88' TO X'8F') 00830000
DC X'9091929394959697' (X'90' TO X'97') 00840000
DC X'98999A9B9C9D9E9F' (X'98' TO X'9F') 00850000
DC X'A0A1A2A3A4A5A6A7' (X'A0' TO X'A7') 00860000
DC X'A8A9AAABACADAEAF' (X'A8' TO X'AF') 00870000
DC X'B0B1B2B3B4B5B6B7' (X'B0' TO X'B7') 00880000
DC X'B8B9BABBBCBDBEBF' (X'B8' TO X'BF') 00890000
DC X'C0C1C2C3C4C5C6C7' (X'C0' TO X'C7') 00900000
DC X'C8C9CACBCCCDCECF' (X'C8' TO X'CF') 00910000
DC X'D0D1D2D3D4D5D6D7' (X'D0' TO X'D7') 00920000
DC X'D8D9DADBDCDDDEDF' (X'D8' TO X'DF') 00930000
DC X'E0E1E2E3E4E5E6E7' (X'E0' TO X'E7') 00940000
DC X'E8E9EAEBECEDEEEF' (X'E8' TO X'EF') 00950000
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7') 00960000
DC X'F8F9FAFBFCFDFEFF' (X'F8' TO X'FF') 00970000
* 00980000
* 00990000
TTVAL DC X'FFFFFFFFFFFFFFFF' (X'00' TO X'07') 01000000
DC X'FFFFFFFFFFFFFFFF' (X'08' TO X'0F') 01010000
DC X'FFFFFFFFFFFFFFFF' (X'10' TO X'17') 01020000
DC X'FFFFFFFFFFFFFFFF' (X'18' TO X'1F') 01030000
DC X'FFFFFFFFFFFFFFFF' (X'20' TO X'27') 01040000
DC X'FFFFFFFFFFFFFFFF' (X'28' TO X'2F') 01050000
DC X'FFFFFFFFFFFFFFFF' (X'30' TO X'37') 01060000
DC X'FFFFFFFFFFFFFFFF' (X'38' TO X'3F') 01070000
DC X'00FFFFFFFFFFFFFF' (X'40' TO X'47') 01080000
DC X'FFFFFF0000000000' (X'48' TO X'4F') X'4A' cent sign 01090000
DC X'00FFFFFFFFFFFFFF' (X'50' TO X'57') 01100000
DC X'FFFF000000000000' (X'58' TO X'5F') 01110000
DC X'0000FFFFFFFFFFFF' (X'60' TO X'67') 01120000
DC X'FFFFFF0000000000' (X'68' TO X'6F') X'6A' dbl v bar 01130000
DC X'FFFFFFFFFFFFFFFF' (X'70' TO X'77') 01140000
DC X'FF00000000000000' (X'78' TO X'7F') 01150000
DC X'FF00000000000000' (X'80' TO X'87') 01160000
DC X'0000FFFFFFFFFFFF' (X'88' TO X'8F') 01170000
DC X'FF00000000000000' (X'90' TO X'97') 01180000
DC X'0000FFFFFFFFFFFF' (X'98' TO X'9F') 01190000
DC X'FF00000000000000' (X'A0' TO X'A7') 01200000
DC X'0000FFFFFF00FFFF' (X'A8' TO X'AF') X'AD' lbracket 01210000
DC X'FFFFFFFFFFFFFFFF' (X'B0' TO X'B7') 01220000
DC X'FFFFFFFFFF00FFFF' (X'B8' TO X'BF') X'BD' rbracket 01230000
DC X'0000000000000000' (X'C0' TO X'C7') 01240000
DC X'0000FFFFFFFFFFFF' (X'C8' TO X'CF') 01250000
DC X'0000000000000000' (X'D0' TO X'D7') 01260000
DC X'0000FFFFFFFFFFFF' (X'D8' TO X'DF') 01270000
DC X'00FF000000000000' (X'E0' TO X'E7') 01280000
DC X'0000FFFFFFFFFFFF' (X'E8' TO X'EF') 01290000
DC X'0000000000000000' (X'F0' TO X'F7') 01300000
DC X'0000FFFFFFFFFFFF' (X'F8' TO X'FF') 01310000
* 01320000
* 01330000
TTGSM DC X'0101010101010101' (X'00' TO X'07') 01340000
DC X'0101010101010101' (X'08' TO X'0F') 01350000
DC X'0101010101010101' (X'10' TO X'17') 01360000
DC X'0101010101010101' (X'18' TO X'1F') 01370000
DC X'0101010101010101' (X'20' TO X'27') 01380000
DC X'0101010101010101' (X'28' TO X'2F') 01390000
DC X'0101010101010101' (X'30' TO X'37') 01400000
DC X'0101010101010101' (X'38' TO X'3F') 01410000
DC X'0001010101010101' (X'40' TO X'47') 01420000
DC X'0101010202020202' (X'48' TO X'4F') X'4A' is P'.' 01430000
DC X'0201010101010101' (X'50' TO X'57') 01440000
DC X'0101020202020202' (X'58' TO X'5F') 01450000
DC X'0202010101010101' (X'60' TO X'67') 01460000
DC X'0101010202020202' (X'68' TO X'6F') X'6A' is P'.' 01470000
DC X'0101010101010101' (X'70' TO X'77') 01480000
DC X'0102020202020202' (X'78' TO X'7F') 01490000
DC X'0110101010101010' (X'80' TO X'87') 01500000
DC X'1010010101010101' (X'88' TO X'8F') 01510000
DC X'0110101010101010' (X'90' TO X'97') 01520000
DC X'1010010101010101' (X'98' TO X'9F') 01530000
DC X'0102101010101010' (X'A0' TO X'A7') 01540000
DC X'1010010101020101' (X'A8' TO X'AF') X'AD' is P'$' 01550000
DC X'0101010101010101' (X'B0' TO X'B7') 01560000
DC X'0101010101020101' (X'B8' TO X'BF') X'BD' is P'$' 01570000
DC X'0220202020202020' (X'C0' TO X'C7') 01580000
DC X'2020010101010101' (X'C8' TO X'CF') 01590000
DC X'0220202020202020' (X'D0' TO X'D7') 01600000
DC X'2020010101010101' (X'D8' TO X'DF') 01610000
DC X'0201202020202020' (X'E0' TO X'E7') 01620000
DC X'2020010101010101' (X'E8' TO X'EF') 01630000
DC X'4040404040404040' (X'F0' TO X'F7') 01640000
DC X'4040010101010101' (X'F8' TO X'FF') 01650000
* 01660000
* 01670000
TTALP DC X'FFFFFFFFFFFFFFFF' (X'00' TO X'07') 01680000
DC X'FFFFFFFFFFFFFFFF' (X'08' TO X'0F') 01690000
DC X'FFFFFFFFFFFFFFFF' (X'10' TO X'17') 01700000
DC X'FFFFFFFFFFFFFFFF' (X'18' TO X'1F') 01710000
DC X'FFFFFFFFFFFFFFFF' (X'20' TO X'27') 01720000
DC X'FFFFFFFFFFFFFFFF' (X'28' TO X'2F') 01730000
DC X'FFFFFFFFFFFFFFFF' (X'30' TO X'37') 01740000
DC X'FFFFFFFFFFFFFFFF' (X'38' TO X'3F') 01750000
DC X'FFFFFFFFFFFFFFFF' (X'40' TO X'47') 01760000
DC X'FFFFFFFFFFFFFFFF' (X'48' TO X'4F') 01770000
DC X'FFFFFFFFFFFFFFFF' (X'50' TO X'57') 01780000
DC X'FFFFFF00FFFFFFFF' (X'58' TO X'5F') 01790000
DC X'FFFFFFFFFFFFFFFF' (X'60' TO X'67') 01800000
DC X'FFFFFFFFFFFFFFFF' (X'68' TO X'6F') 01810000
DC X'FFFFFFFFFFFFFFFF' (X'70' TO X'77') 01820000
DC X'FFFFFF0000FFFFFF' (X'78' TO X'7F') 01830000
DC X'FF00000000000000' (X'80' TO X'87') 01840000
DC X'0000FFFFFFFFFFFF' (X'88' TO X'8F') 01850000
DC X'FF00000000000000' (X'90' TO X'97') 01860000
DC X'0000FFFFFFFFFFFF' (X'98' TO X'9F') 01870000
DC X'FFFF000000000000' (X'A0' TO X'A7') 01880000
DC X'0000FFFFFFFFFFFF' (X'A8' TO X'AF') 01890000
DC X'FFFFFFFFFFFFFFFF' (X'B0' TO X'B7') 01900000
DC X'FFFFFFFFFFFFFFFF' (X'B8' TO X'BF') 01910000
DC X'FF00000000000000' (X'C0' TO X'C7') 01920000
DC X'0000FFFFFFFFFFFF' (X'C8' TO X'CF') 01930000
DC X'FF00000000000000' (X'D0' TO X'D7') 01940000
DC X'0000FFFFFFFFFFFF' (X'D8' TO X'DF') 01950000
DC X'FFFF000000000000' (X'E0' TO X'E7') 01960000
DC X'0000FFFFFFFFFFFF' (X'E8' TO X'EF') 01970000
DC X'FFFFFFFFFFFFFFFF' (X'F0' TO X'F7') 01980000
DC X'FFFFFFFFFFFFFFFF' (X'F8' TO X'FF') 01990000
* 02000001
* 02010001
TTALB DC X'FFFFFFFFFFFFFFFF' (X'00' TO X'07') 02020001
DC X'FFFFFFFFFFFFFFFF' (X'08' TO X'0F') 02030001
DC X'FFFFFFFFFFFFFFFF' (X'10' TO X'17') 02040001
DC X'FFFFFFFFFFFFFFFF' (X'18' TO X'1F') 02050001
DC X'FFFFFFFFFFFFFFFF' (X'20' TO X'27') 02060001
DC X'FFFFFFFFFFFFFFFF' (X'28' TO X'2F') 02070001
DC X'FFFFFFFFFFFFFFFF' (X'30' TO X'37') 02080001
DC X'FFFFFFFFFFFFFFFF' (X'38' TO X'3F') 02090001
DC X'FFFFFFFFFFFFFFFF' (X'40' TO X'47') 02100001
DC X'FFFFFFFFFFFFFFFF' (X'48' TO X'4F') 02110001
DC X'FFFFFFFFFFFFFFFF' (X'50' TO X'57') 02120001
DC X'FFFFFFFFFFFFFFFF' (X'58' TO X'5F') 02130001
DC X'FFFFFFFFFFFFFFFF' (X'60' TO X'67') 02140001
DC X'FFFFFFFFFFFFFFFF' (X'68' TO X'6F') 02150001
DC X'FFFFFFFFFFFFFFFF' (X'70' TO X'77') 02160001
DC X'FFFFFFFFFFFFFFFF' (X'78' TO X'7F') 02170001
DC X'FF00000000000000' (X'80' TO X'87') 02180001
DC X'0000FFFFFFFFFFFF' (X'88' TO X'8F') 02190001
DC X'FF00000000000000' (X'90' TO X'97') 02200001
DC X'0000FFFFFFFFFFFF' (X'98' TO X'9F') 02210001
DC X'FFFF000000000000' (X'A0' TO X'A7') 02220001
DC X'0000FFFFFFFFFFFF' (X'A8' TO X'AF') 02230001
DC X'FFFFFFFFFFFFFFFF' (X'B0' TO X'B7') 02240001
DC X'FFFFFFFFFFFFFFFF' (X'B8' TO X'BF') 02250001
DC X'FF00000000000000' (X'C0' TO X'C7') 02260001
DC X'0000FFFFFFFFFFFF' (X'C8' TO X'CF') 02270001
DC X'FF00000000000000' (X'D0' TO X'D7') 02280001
DC X'0000FFFFFFFFFFFF' (X'D8' TO X'DF') 02290001
DC X'FFFF000000000000' (X'E0' TO X'E7') 02300001
DC X'0000FFFFFFFFFFFF' (X'E8' TO X'EF') 02310001
DC X'FFFFFFFFFFFFFFFF' (X'F0' TO X'F7') 02320001
DC X'FFFFFFFFFFFFFFFF' (X'F8' TO X'FF') 02330001
* 02340000
* 02350000
AGO .NOTTCOL Skip it - SEB 02360001
TTCOL DC X'0001020304050607' (X'00' TO X'07') 02370000
DC X'08090A0B0C0D0E0F' (X'08' TO X'0F') 02380000
DC X'1011121314151617' (X'10' TO X'17') 02390000
DC X'18191A1B1C1D1E1F' (X'18' TO X'1F') 02400000
DC X'2021222324252627' (X'20' TO X'27') 02410000
DC X'28292A2B2C2D2E2F' (X'28' TO X'2F') 02420000
DC X'3031323334353637' (X'30' TO X'37') 02430000
DC X'38393A3B3C3D3E3F' (X'38' TO X'3F') 02440000
DC X'4041424344454647' (X'40' TO X'47') 02450000
DC X'48494A4B4C4D4E4F' (X'48' TO X'4F') 02460000
DC X'5051525354555657' (X'50' TO X'57') 02470000
DC X'58595A5B5C5D5E5F' (X'58' TO X'5F') 02480000
DC X'6061626364656667' (X'60' TO X'67') 02490000
DC X'68696A6B6C6D6E6F' (X'68' TO X'6F') 02500000
DC X'7071727374757677' (X'70' TO X'77') 02510000
DC X'78797A7B7C7D7E7F' (X'78' TO X'7F') 02520000
DC X'8081828384858687' (X'80' TO X'87') 02530000
DC X'88898A8B8C8D8E8F' (X'88' TO X'8F') 02540000
DC X'9091929394959697' (X'90' TO X'97') 02550000
DC X'98999A9B9C9D9E9F' (X'98' TO X'9F') 02560000
DC X'A0A1A2A3A4A5A6A7' (X'A0' TO X'A7') 02570000
DC X'A8A9AAABACADAEAF' (X'A8' TO X'AF') 02580000
DC X'B0B1B2B3B4B5B6B7' (X'B0' TO X'B7') 02590000
DC X'B8B9BABBBCBDBEBF' (X'B8' TO X'BF') 02600000
DC X'C0C1C2C3C4C5C6C7' (X'C0' TO X'C7') 02610000
DC X'C8C9CACBCCCDCECF' (X'C8' TO X'CF') 02620000
DC X'D0D1D2D3D4D5D6D7' (X'D0' TO X'D7') 02630000
DC X'D8D9DADBDCDDDEDF' (X'D8' TO X'DF') 02640000
DC X'E0E1E2E3E4E5E6E7' (X'E0' TO X'E7') 02650000
DC X'E8E9EAEBECEDEEEF' (X'E8' TO X'EF') 02660000
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7') 02670000
DC X'F8F9FAFBFCFDFEFF' (X'F8' TO X'FF') 02680000
.NOTTCOL ANOP , Skip it - SEB 02690001
END 02700000
./ ADD NAME=BRACKET2
++USERMOD(BRACKET2) /* ISPF 3.3 PDF ASCII TERMINAL TYPE USERMOD
**********************************************************************
*** ***
*** This usermod creates an ISPF/PDF terminal translate table ***
*** (called ISRX7171) associated with a terminal type we call ***
*** "ASCII" on the ISPF option 0.1 panel. This terminal type ***
*** supports square brackets. ***
*** ***
*** Also required is BRACKET1, which creates the corresponding ***
*** ISPF terminal translate table ISPX7171; and BRACKET3, ***
*** which modifies the ISPF option 0.1 panels to support this. ***
*** ***
********************************************************************/.
++VER(Z038) FMID(HDV3302).
++IF FMID(HIF3302) THEN REQ(BRACKET1) /* ISPX7171 module */ .
++IF FMID(JIF3310) THEN REQ(BRACKET3) /* ISPF option 0.1 panels */ .
++JCLIN.
//LKED EXEC PGM=IEWL,PARM='LIST,LET,RENT,REUS'
//SYSPRINT DD SYSOUT=A
//SYSLMOD DD DISP=SHR,DSN=ISR.V3R3M0.ISRLOAD
//ADLOAD DD DISP=SHR,DSN=DST2.ADLOAD
//SYSLIN DD *
ENTRY ISRX7171
INCLUDE ADLOAD(ISRX7171)
NAME ISRX7171(R)
/*
++SRC(ISRX7171) DISTLIB(ADSOURCE) DISTMOD(ADLOAD).
SPACE 1 00010000
*********************************************************************** 00020000
* * 00030000
* ISPF 3.3.0 "ASCII" ISPF/PDF terminal translate table. * 00040000
* Also see ISPX7171 for ISPF terminal translation. * 00050000
* Reference: ISPF and ISPF/PDF Planning and Customizing (SC34-4257-01)* 00060000
* * 00070000
* Copied from ISROWNTT (in SAMPLIB) and modified. * 00080000
* * 00090000
*********************************************************************** 00100000
SPACE 1 00110000
ISRX7171 CSECT 00120001
TTID DC CL8'ISRX7171' 00130001
VDSN DC AL4(TTVDSN) 00140001
IDSN DC AL4(TTIDSN) 00150001
HEXP DC AL4(TTHEX) 00160001
NUMP DC AL4(TTNUM) 00170001
ALNP DC AL4(TTALN) 00180001
DUMMY1 DC A(0) 00190001
ETOP DC AL4(TTETO) 00200001
GSCP DC AL4(TTGSC) 00210001
DUMMY2 DC A(0) 00220001
GSSP DC AL4(TTGSS) 00230001
EDIP DC A(0) 00240001
EDOP DC A(0) 00250001
UPPP DC AL4(TTUPP) 00260001
LOWP DC AL4(TTLOW) 00270001
DUMMY3 DC A(0) 00280001
DUMMY4 DC A(0) 00290001
DUMMY5 DC A(0) 00300001
DUMMY6 DC A(0) 00310001
* 00320001
* 00330001
TTVDSN DC X'FFFFFFFFFFFFFFFF' (X'00' TO X'07') 00340001
DC X'FFFFFFFFFFFFFFFF' (X'08' TO X'0F') 00350001
DC X'FFFFFFFFFFFFFFFF' (X'10' TO X'17') 00360001
DC X'FFFFFFFFFFFFFFFF' (X'18' TO X'1F') 00370001
DC X'FFFFFFFFFFFFFFFF' (X'20' TO X'27') 00380001
DC X'FFFFFFFFFFFFFFFF' (X'28' TO X'2F') 00390001
DC X'FFFFFFFFFFFFFFFF' (X'30' TO X'37') 00400001
DC X'FFFFFFFFFFFFFFFF' (X'38' TO X'3F') 00410001
DC X'00FFFFFFFFFFFFFF' (X'40' TO X'47') 00420001
DC X'FFFFFFFFFFFF00FF' (X'48' TO X'4F') 00430001
DC X'FFFFFFFFFFFFFFFF' (X'50' TO X'57') 00440001
DC X'FFFFFF0000FFFFFF' (X'58' TO X'5F') 00450001
DC X'00FFFFFFFFFFFFFF' (X'60' TO X'67') 00460001
DC X'FFFFFFFFFF00FFFF' (X'68' TO X'6F') OY08618 00470001
DC X'FFFFFFFFFFFFFFFF' (X'70' TO X'77') 00480001
DC X'FFFF000000FFFFFF' (X'78' TO X'7F') 00490001
DC X'FF00000000000000' (X'80' TO X'87') 00500001
DC X'0000FFFFFFFFFFFF' (X'88' TO X'8F') 00510001
DC X'FF00000000000000' (X'90' TO X'97') 00520001
DC X'0000FFFFFFFFFFFF' (X'98' TO X'9F') 00530001
DC X'FFFF000000000000' (X'A0' TO X'A7') 00540001
DC X'0000FFFFFFFFFFFF' (X'A8' TO X'AF') 00550001
DC X'FFFFFFFFFFFFFFFF' (X'B0' TO X'B7') 00560001
DC X'FFFFFFFFFFFFFFFF' (X'B8' TO X'BF') 00570001
DC X'FF00000000000000' (X'C0' TO X'C7') 00580001
DC X'0000FFFFFFFFFFFF' (X'C8' TO X'CF') 00590001
DC X'FF00000000000000' (X'D0' TO X'D7') 00600001
DC X'0000FFFFFFFFFFFF' (X'D8' TO X'DF') 00610001
DC X'FFFF000000000000' (X'E0' TO X'E7') 00620001
DC X'0000FFFFFFFFFFFF' (X'E8' TO X'EF') 00630001
DC X'0000000000000000' (X'F0' TO X'F7') 00640001
DC X'0000FFFFFFFFFFFF' (X'F8' TO X'FF') 00650001
* 00660001
* 00670001
TTIDSN DC X'0000000000000000' (X'00' TO X'07') 00680001
DC X'0000000000000000' (X'08' TO X'0F') 00690001
DC X'0000000000000000' (X'10' TO X'17') 00700001
DC X'0000000000000000' (X'18' TO X'1F') 00710001
DC X'0000000000000000' (X'20' TO X'27') 00720001
DC X'0000000000000000' (X'28' TO X'2F') 00730001
DC X'0000000000000000' (X'30' TO X'37') 00740001
DC X'0000000000000000' (X'38' TO X'3F') 00750001
DC X'0000000000000000' (X'40' TO X'47') 00760001
DC X'0000000000004E00' (X'48' TO X'4F') 00770001
DC X'0000000000000000' (X'50' TO X'57') 00780001
DC X'0000005B5C000000' (X'58' TO X'5F') 00790001
DC X'6000000000000000' (X'60' TO X'67') 00800001
DC X'00000000006D0000' (X'68' TO X'6F') 00810001
DC X'0000000000000000' (X'70' TO X'77') 00820001
DC X'00007A7B7C000000' (X'78' TO X'7F') 00830001
DC X'0081828384858687' (X'80' TO X'87') 00840001
DC X'8889000000000000' (X'88' TO X'8F') 00850001
DC X'0091929394959697' (X'90' TO X'97') 00860001
DC X'9899000000000000' (X'98' TO X'9F') 00870001
DC X'0000A2A3A4A5A6A7' (X'A0' TO X'A7') 00880001
DC X'A8A9000000000000' (X'A8' TO X'AF') 00890001
DC X'0000000000000000' (X'B0' TO X'B7') 00900001
DC X'0000000000000000' (X'B8' TO X'BF') 00910001
DC X'00C1C2C3C4C5C6C7' (X'C0' TO X'C7') 00920001
DC X'C8C9000000000000' (X'C8' TO X'CF') 00930001
DC X'00D1D2D3D4D5D6D7' (X'D0' TO X'D7') 00940001
DC X'D8D9000000000000' (X'D8' TO X'DF') 00950001
DC X'0000E2E3E4E5E6E7' (X'E0' TO X'E7') 00960001
DC X'E8E9000000000000' (X'E8' TO X'EF') 00970001
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7') 00980001
DC X'F8F9000000000000' (X'F8' TO X'FF') 00990001
* 01000001
* 01010001
TTHEX DC X'FFFFFFFFFFFFFFFF' (X'00' TO X'07') 01020001
DC X'FFFFFFFFFFFFFFFF' (X'08' TO X'0F') 01030001
DC X'FFFFFFFFFFFFFFFF' (X'10' TO X'17') 01040001
DC X'FFFFFFFFFFFFFFFF' (X'18' TO X'1F') 01050001
DC X'FFFFFFFFFFFFFFFF' (X'20' TO X'27') 01060001
DC X'FFFFFFFFFFFFFFFF' (X'28' TO X'2F') 01070001
DC X'FFFFFFFFFFFFFFFF' (X'30' TO X'37') 01080001
DC X'FFFFFFFFFFFFFFFF' (X'38' TO X'3F') 01090001
DC X'FFFFFFFFFFFFFFFF' (X'40' TO X'47') 01100001
DC X'FFFFFFFFFFFFFFFF' (X'48' TO X'4F') 01110001
DC X'FFFFFFFFFFFFFFFF' (X'50' TO X'57') 01120001
DC X'FFFFFFFFFFFFFFFF' (X'58' TO X'5F') 01130001
DC X'FFFFFFFFFFFFFFFF' (X'60' TO X'67') 01140001
DC X'FFFFFFFFFFFFFFFF' (X'68' TO X'6F') 01150001
DC X'FFFFFFFFFFFFFFFF' (X'70' TO X'77') 01160001
DC X'FFFFFFFFFFFFFFFF' (X'78' TO X'7F') 01170001
DC X'FF000000000000FF' (X'80' TO X'87') 01180001
DC X'FFFFFFFFFFFFFFFF' (X'88' TO X'8F') 01190001
DC X'FFFFFFFFFFFFFFFF' (X'90' TO X'97') 01200001
DC X'FFFFFFFFFFFFFFFF' (X'98' TO X'9F') 01210001
DC X'FFFFFFFFFFFFFFFF' (X'A0' TO X'A7') 01220001
DC X'FFFFFFFFFFFFFFFF' (X'A8' TO X'AF') 01230001
DC X'FFFFFFFFFFFFFFFF' (X'B0' TO X'B7') 01240001
DC X'FFFFFFFFFFFFFFFF' (X'B8' TO X'BF') 01250001
DC X'FF000000000000FF' (X'C0' TO X'C7') 01260001
DC X'FFFFFFFFFFFFFFFF' (X'C8' TO X'CF') 01270001
DC X'FFFFFFFFFFFFFFFF' (X'D0' TO X'D7') 01280001
DC X'FFFFFFFFFFFFFFFF' (X'D8' TO X'DF') 01290001
DC X'FFFFFFFFFFFFFFFF' (X'E0' TO X'E7') 01300001
DC X'FFFFFFFFFFFFFFFF' (X'E8' TO X'EF') 01310001
DC X'0000000000000000' (X'F0' TO X'F7') 01320001
DC X'0000FFFFFFFFFFFF' (X'F8' TO X'FF') 01330001
* 01340001
* 01350001
TTNUM DC X'FFFFFFFFFFFFFFFF' (X'00' TO X'0F') 01360001
DC X'FFFFFFFFFFFFFFFF' (X'08' TO X'0F') 01370001
DC X'FFFFFFFFFFFFFFFF' (X'10' TO X'17') 01380001
DC X'FFFFFFFFFFFFFFFF' (X'18' TO X'1F') 01390001
DC X'FFFFFFFFFFFFFFFF' (X'20' TO X'27') 01400001
DC X'FFFFFFFFFFFFFFFF' (X'28' TO X'2F') 01410001
DC X'FFFFFFFFFFFFFFFF' (X'30' TO X'37') 01420001
DC X'FFFFFFFFFFFFFFFF' (X'38' TO X'3F') 01430001
DC X'FFFFFFFFFFFFFFFF' (X'40' TO X'47') 01440001
DC X'FFFFFFFFFFFFFFFF' (X'48' TO X'4F') 01450001
DC X'FFFFFFFFFFFFFFFF' (X'50' TO X'57') 01460001
DC X'FFFFFFFFFFFFFFFF' (X'58' TO X'5F') 01470001
DC X'FFFFFFFFFFFFFFFF' (X'60' TO X'67') 01480001
DC X'FFFFFFFFFFFFFFFF' (X'68' TO X'6F') 01490001
DC X'FFFFFFFFFFFFFFFF' (X'70' TO X'77') 01500001
DC X'FFFFFFFFFFFFFFFF' (X'78' TO X'7F') 01510001
DC X'FFFFFFFFFFFFFFFF' (X'80' TO X'87') 01520001
DC X'FFFFFFFFFFFFFFFF' (X'88' TO X'8F') 01530001
DC X'FFFFFFFFFFFFFFFF' (X'90' TO X'97') 01540001
DC X'FFFFFFFFFFFFFFFF' (X'98' TO X'9F') 01550001
DC X'FFFFFFFFFFFFFFFF' (X'A0' TO X'A7') 01560001
DC X'FFFFFFFFFFFFFFFF' (X'A8' TO X'AF') 01570001
DC X'FFFFFFFFFFFFFFFF' (X'B0' TO X'B7') 01580001
DC X'FFFFFFFFFFFFFFFF' (X'B8' TO X'BF') 01590001
DC X'FFFFFFFFFFFFFFFF' (X'C0' TO X'C7') 01600001
DC X'FFFFFFFFFFFFFFFF' (X'C8' TO X'CF') 01610001
DC X'FFFFFFFFFFFFFFFF' (X'D0' TO X'D7') 01620001
DC X'FFFFFFFFFFFFFFFF' (X'D8' TO X'DF') 01630001
DC X'FFFFFFFFFFFFFFFF' (X'E0' TO X'E7') 01640001
DC X'FFFFFFFFFFFFFFFF' (X'E8' TO X'EF') 01650001
DC X'0000000000000000' (X'F0' TO X'F7') 01660001
DC X'0000FFFFFFFFFFFF' (X'F8' TO X'FF') 01670001
* 01680001
* 01690001
TTALN DC X'FFFFFFFFFFFFFFFF' (X'00' TO X'0F') 01700001
DC X'FFFFFFFFFFFFFFFF' (X'08' TO X'0F') 01710001
DC X'FFFFFFFFFFFFFFFF' (X'10' TO X'17') 01720001
DC X'FFFFFFFFFFFFFFFF' (X'18' TO X'1F') 01730001
DC X'FFFFFFFFFFFFFFFF' (X'20' TO X'27') 01740001
DC X'FFFFFFFFFFFFFFFF' (X'28' TO X'2F') 01750001
DC X'FFFFFFFFFFFFFFFF' (X'30' TO X'37') 01760001
DC X'FFFFFFFFFFFFFFFF' (X'38' TO X'3F') 01770001
DC X'FFFFFFFFFFFFFFFF' (X'40' TO X'47') 01780001
DC X'FFFFFFFFFFFFFFFF' (X'48' TO X'4F') 01790001
DC X'FFFFFFFFFFFFFFFF' (X'50' TO X'57') 01800001
DC X'FFFFFF00FFFFFFFF' (X'58' TO X'5F') 01810001
DC X'FFFFFFFFFFFFFFFF' (X'60' TO X'67') 01820001
DC X'FFFFFFFFFFFFFFFF' (X'68' TO X'6F') 01830001
DC X'FFFFFFFFFFFFFFFF' (X'70' TO X'77') 01840001
DC X'FFFFFF0000FFFFFF' (X'78' TO X'7F') 01850001
DC X'FF00000000000000' (X'80' TO X'87') 01860001
DC X'0000FFFFFFFFFFFF' (X'88' TO X'8F') 01870001
DC X'FF00000000000000' (X'90' TO X'97') 01880001
DC X'0000FFFFFFFFFFFF' (X'98' TO X'9F') 01890001
DC X'FFFF000000000000' (X'A0' TO X'A7') 01900001
DC X'0000FFFFFFFFFFFF' (X'A8' TO X'AF') 01910001
DC X'FFFFFFFFFFFFFFFF' (X'B0' TO X'B7') 01920001
DC X'FFFFFFFFFFFFFFFF' (X'B8' TO X'BF') 01930001
DC X'FF00000000000000' (X'C0' TO X'C7') 01940001
DC X'0000FFFFFFFFFFFF' (X'C8' TO X'CF') 01950001
DC X'FF00000000000000' (X'D0' TO X'D7') 01960001
DC X'0000FFFFFFFFFFFF' (X'D8' TO X'DF') 01970001
DC X'FFFF000000000000' (X'E0' TO X'E7') 01980001
DC X'0000FFFFFFFFFFFF' (X'E8' TO X'EF') 01990001
DC X'0000000000000000' (X'F0' TO X'F7') 02000001
DC X'0000FFFFFFFFFFFF' (X'F8' TO X'FF') 02010001
* 02020001
* 02030001
TTETO DC X'1515151515151515' (X'00' TO X'0F') 02040001
DC X'1515151515151515' (X'08' TO X'0F') 02050001
DC X'1515151515151515' (X'10' TO X'17') 02060001
DC X'1515151515151515' (X'18' TO X'1F') 02070001
DC X'1515151515151515' (X'20' TO X'27') 02080001
DC X'1515151515151515' (X'28' TO X'2F') 02090001
DC X'1515151515151515' (X'30' TO X'37') 02100001
DC X'1515151515151515' (X'38' TO X'3F') 02110001
DC X'4015151515151515' (X'40' TO X'47') 02120001
DC X'1515154B4C4D4E4F' (X'48' TO X'4F') 4A cent sign 02130000
DC X'5015151515151515' (X'50' TO X'57') 02140000
DC X'15155A5B5C5D5E5F' (X'58' TO X'5F') 02150000
DC X'6061151515151515' (X'60' TO X'67') 02160000
DC X'1515156B6C6D6E6F' (X'68' TO X'6F') 6A broken v bar 02170000
DC X'1515151515151515' (X'70' TO X'77') 02180000
DC X'15797A7B7C7D7E7F' (X'78' TO X'7F') 02190000
DC X'1581828384858687' (X'80' TO X'87') 02200000
DC X'8889151515151515' (X'88' TO X'8F') 02210000
DC X'1591929394959697' (X'90' TO X'97') 02220000
DC X'9899151515151515' (X'98' TO X'9F') 02230000
DC X'15A1A2A3A4A5A6A7' (X'A0' TO X'A7') 02240000
DC X'A8A9151515AD1515' (X'A8' TO X'AF') AD left bracket 02250000
DC X'1515151515151515' (X'B0' TO X'B7') 02260000
DC X'1515151515BD1515' (X'B8' TO X'BF') BD rightbracket 02270000
DC X'C0C1C2C3C4C5C6C7' (X'C0' TO X'C7') 02280001
DC X'C8C9151515151515' (X'C8' TO X'CF') 02290001
DC X'D0D1D2D3D4D5D6D7' (X'D0' TO X'D7') 02300001
DC X'D8D9151515151515' (X'D8' TO X'DF') 02310001
DC X'E015E2E3E4E5E6E7' (X'E0' TO X'E7') OY08618 02320001
DC X'E8E9151515151515' (X'E8' TO X'EF') 02330001
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7') 02340001
DC X'F8F9151515151515' (X'F8' TO X'FF') 02350001
* 02360001
* 02370001
TTGSC DC X'00' (X'00') 02380001
DC X'01' (X'01') 02390001
DC X'02' (X'02') 02400001
DC X'04' (X'03') 02410001
DC X'08' (X'04') 02420001
DC X'10' (X'05') 02430001
DC X'20' (X'06') 02440001
DC X'40' (X'07') 02450001
DC X'80' (X'08') 02460001
DC X'FF' (X'09') 02470001
DC X'30' (X'0A') 02480001
DC X'7F' (X'0B') 02490001
DC X'FF' (X'0C') 02500001
DC X'FF' (X'0D') 02510001
DC X'FF' (X'0E') 02520001
DC X'FF' (X'0F') 02530001
DC X'40' (X'10') 02540001
DC X'20' (X'11') 02550001
DC X'10' (X'12') 02560001
DC X'30' (X'13') 02570001
DC X'FF' (X'14') 02580001
DC X'FF' (X'15') 02590001
DC X'FF' (X'16') 02600001
* 02610001
* 02620001
TTGSS DC X'FFFFFFFFFFFFFFFF' (X'00' TO X'0F') 02630001
DC X'FFFFFFFFFFFFFFFF' (X'08' TO X'0F') 02640001
DC X'FFFFFFFFFFFFFFFF' (X'10' TO X'17') 02650001
DC X'FFFFFFFFFFFFFFFF' (X'18' TO X'1F') 02660001
DC X'FFFFFFFFFFFFFFFF' (X'20' TO X'27') 02670001
DC X'FFFFFFFFFFFFFFFF' (X'28' TO X'2F') 02680001
DC X'FFFFFFFFFFFFFFFF' (X'30' TO X'37') 02690001
DC X'FFFFFFFFFFFFFFFF' (X'38' TO X'3F') 02700001
DC X'40FFFFFFFFFFFFFF' (X'40' TO X'47') 02710001
DC X'FFFFFF0105FFFFFF' (X'48' TO X'4F') 02720001
DC X'FFFFFFFFFFFFFFFF' (X'50' TO X'57') 02730001
DC X'FFFFFF02FFFFFF0B' (X'58' TO X'5F') 02740001
DC X'10FFFFFFFFFFFFFF' (X'60' TO X'67') 02750001
DC X'FFFFFFFFFFFF06FF' (X'68' TO X'6F') 02760001
DC X'FFFFFFFFFFFFFFFF' (X'70' TO X'77') 02770001
DC X'FFFFFF070AFF00FF' (X'78' TO X'7F') 02780001
DC X'FF81828384858687' (X'80' TO X'87') 02790001
DC X'8889FFFFFFFFFFFF' (X'88' TO X'8F') 02800001
DC X'FF91929394959697' (X'90' TO X'97') 02810001
DC X'9899FFFFFFFFFFFF' (X'98' TO X'9F') 02820001
DC X'FFFFA2A3A4A5A6A7' (X'A0' TO X'A7') 02830001
DC X'A8A9FFFFFFFFFFFF' (X'A8' TO X'AF') 02840001
DC X'FFFFFFFFFFFFFFFF' (X'B0' TO X'B7') 02850001
DC X'FFFFFFFFFFFFFFFF' (X'B8' TO X'BF') 02860001
DC X'FFC1C2C3C4C5C6C7' (X'C0' TO X'C7') 02870001
DC X'C8C9FFFFFFFFFFFF' (X'C8' TO X'CF') 02880001
DC X'FFD1D2D3D4D5D6D7' (X'D0' TO X'D7') 02890001
DC X'D8D9FFFFFFFFFFFF' (X'D8' TO X'DF') 02900001
DC X'FFFFE2E3E4E5E6E7' (X'E0' TO X'E7') 02910001
DC X'E8E9FFFFFFFFFFFF' (X'E8' TO X'EF') 02920001
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7') 02930001
DC X'F8F9FFFFFFFFFFFF' (X'F8' TO X'FF') 02940001
* 02950001
* 02960001
* THE FOLLOWING LABEL CHANGED FROM 'TTLOW' TO 'TTUPP' FOR OY08282 02970001
* ALSO, ENTRIES WERE CHANGED FROM X'C1' TO X'E9'. THEY WOULD HAVE 02980001
* CHANGED UPPERCASE A-Z TO LOWERCASE. 02990001
* 03000001
TTUPP DC X'0001020304050607' (X'00' TO X'07') OY08282 03010001
DC X'08090A0B0C0D0E0F' (X'08' TO X'0F') 03020001
DC X'1011121314151617' (X'10' TO X'17') 03030001
DC X'18191A1B1C1D1E1F' (X'18' TO X'1F') 03040001
DC X'2021222324252627' (X'20' TO X'27') 03050001
DC X'28292A2B2C2D2E2F' (X'28' TO X'2F') 03060001
DC X'3031323334353637' (X'30' TO X'37') 03070001
DC X'38393A3B3C3D3E3F' (X'38' TO X'3F') 03080001
DC X'4041424344454647' (X'40' TO X'47') 03090001
DC X'48494A4B4C4D4E4F' (X'48' TO X'4F') 03100001
DC X'5051525354555657' (X'50' TO X'57') 03110001
DC X'58595A5B5C5D5E5F' (X'58' TO X'5F') 03120001
DC X'6061626364656667' (X'60' TO X'67') 03130001
DC X'68696A6B6C6D6E6F' (X'68' TO X'6F') 03140001
DC X'7071727374757677' (X'70' TO X'77') 03150001
DC X'78797A7B7C7D7E7F' (X'78' TO X'7F') 03160001
DC X'80C1C2C3C4C5C6C7' (X'80' TO X'87') 03170001
DC X'C8C98A8B8C8D8E8F' (X'88' TO X'8F') 03180001
DC X'90D1D2D3D4D5D6D7' (X'90' TO X'97') 03190001
DC X'D8D99A9B9C9D9E9F' (X'98' TO X'9F') 03200001
DC X'A0A1E2E3E4E5E6E7' (X'A0' TO X'A7') 03210001
DC X'E8E9AAABACADAEAF' (X'A8' TO X'AF') 03220001
DC X'B0B1B2B3B4B5B6B7' (X'B0' TO X'B7') 03230001
DC X'B8B9BABBBCBDBEBF' (X'B8' TO X'BF') 03240001
DC X'C0C1C2C3C4C5C6C7' (X'C0' TO X'C7') OY08282 03250001
DC X'C8C9CACBCCCDCECF' (X'C8' TO X'CF') OY08282 03260001
DC X'D0D1D2D3D4D5D6D7' (X'D0' TO X'D7') OY08282 03270001
DC X'D8D9DADBDCDDDEDF' (X'D8' TO X'DF') OY08282 03280001
DC X'E0E1E2E3E4E5E6E7' (X'E0' TO X'E7') OY08282 03290001
DC X'E8E9EAEBECEDEEEF' (X'E8' TO X'EF') OY08282 03300001
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7') 03310001
DC X'F8F9FAFBFCFDFEFF' (X'F8' TO X'FF') 03320001
* 03330001
* 03340001
TTLOW DC X'0001020304050607' (X'00' TO X'07') 03350001
DC X'08090A0B0C0D0E0F' (X'08' TO X'0F') 03360001
DC X'1011121314151617' (X'10' TO X'17') 03370001
DC X'18191A1B1C1D1E1F' (X'18' TO X'1F') 03380001
DC X'2021222324252627' (X'20' TO X'27') 03390001
DC X'28292A2B2C2D2E2F' (X'28' TO X'2F') 03400001
DC X'3031323334353637' (X'30' TO X'37') 03410001
DC X'38393A3B3C3D3E3F' (X'38' TO X'3F') 03420001
DC X'4041424344454647' (X'40' TO X'47') 03430001
DC X'48494A4B4C4D4E4F' (X'48' TO X'4F') 03440001
DC X'5051525354555657' (X'50' TO X'57') 03450001
DC X'58595A5B5C5D5E5F' (X'58' TO X'5F') 03460001
DC X'6061626364656667' (X'60' TO X'67') 03470001
DC X'68696A6B6C6D6E6F' (X'68' TO X'6F') 03480001
DC X'7071727374757677' (X'70' TO X'77') 03490001
DC X'78797A7B7C7D7E7F' (X'78' TO X'7F') 03500001
DC X'8081828384858687' (X'80' TO X'87') 03510001
DC X'88898A8B8C8D8E8F' (X'88' TO X'8F') 03520001
DC X'9091929394959697' (X'90' TO X'97') 03530001
DC X'98999A9B9C9D9E9F' (X'98' TO X'9F') 03540001
DC X'A0A1A2A3A4A5A6A7' (X'A0' TO X'A7') 03550001
DC X'A8A9AAABACADAEAF' (X'A8' TO X'AF') 03560001
DC X'B0B1B2B3B4B5B6B7' (X'B0' TO X'B7') 03570001
DC X'B8B9BABBBCBDBEBF' (X'B8' TO X'BF') 03580001
DC X'C081828384858687' (X'C0' TO X'C7') 03590001
DC X'8889CACBCCCDCECF' (X'C8' TO X'CF') 03600001
DC X'D091929394959697' (X'D0' TO X'D7') 03610001
DC X'9899DADBDCDDDEDF' (X'D8' TO X'DF') 03620001
DC X'E0E1A2A3A4A5A6A7' (X'E0' TO X'E7') 03630001
DC X'A8A9EAEBECEDEEEF' (X'E8' TO X'EF') 03640001
DC X'F0F1F2F3F4F5F6F7' (X'F0' TO X'F7') 03650001
DC X'F8F9FAFBFCFDFEFF' (X'F8' TO X'FF') 03660001
END 03670001
* CHANGE ACTIVITY 03680000
* 03690000
* OY08282 - 870909 - COMPILER ERROR RESULT BECAUSE THERE ARE TWO 03700000
* 'TTLOW' LABELS AND NO 'TTUPP' LABEL. ALSO, TTUPP ENTRIES 03710000
* IN THE RANGE X'C1' TO X'E9' CHANGED TO ASSURE UPPERCASE 03720000
* CHARACTERS REMAIN IN UPPERCASE. GT4045-SFG 03730001
* 03740000
* OY08618 - 879010 - IN TRANSLATE TABLE TTVDSN, FIELDS X'6D' AND X'6E' 03750000
* ARE REVERSED. IN TTETO, ENTRY FOR X'E1' SHOULD BE X'15' 03760000
* INSTEAD OF X'E1'. GT4045-SFG 03770000
* 03780000
./ ADD NAME=BRACKET3
++USERMOD(BRACKET3) /* ISPF 3.3 ISPF OPTION 0.1 TERMINAL TYPE USERMOD
**********************************************************************
*** ***
*** This usermod updates the ISPF option 0.1 panels to allow ***
*** entry of a terminal type called "ASCII" that supports ***
*** square brackets. ***
*** ***
*** Also required is BRACKET1, which creates the required ISPF ***
*** terminal translate table ISPX7171; and BRACKET2, which creates***
*** the required ISPF/PDF terminal translate table ISRX7171. ***
*** ***
*** Corresponding V3R2 usermod: #SPF335 ***
*** Corresponding V3R1 usermod: #SPF311 (the option 0.1 part) ***
*** ***
********************************************************************/.
++VER(Z038) FMID(JIF3310).
++IF FMID(HIF3302) THEN REQ(BRACKET1) /* ISPX7171 module */ .
++IF FMID(HDV3302) THEN REQ(BRACKET2) /* ISRX7171 module */ .
++PNLENU(ISPOPT1).
)ATTR
\ TYPE(INPUT) INTENS(HIGH) PAD(NULLS)
)BODY
%------------------------ TERMINAL CHARACTERISTICS ---------------------------
%COMMAND ===>_ZCMD +
+
+TERMINAL TYPE %===>_ZTERM +(3277 - 3275/3277 terminal)
+ (3277A - 3275/3277 with APL keyboard)
+ (3278 - 3276/3278/3279/3290 terminal)
+ (3278A - 3276/3278/3279 APL keyboard)
+ (3278T - 3276/3278/3279 TEXT keyboard)
+ (3290A - 3290 with APL keyboard)
+ (ASCII - VT100, PC, or other ASCII keyboard)
+
+NUMBER OF PF KEYS%===>_ZKEYS+ (12 or 24)
+
+INPUT FIELD PAD %===>\Z+ (N - Nulls) (B - Blanks) (Special Character-
+ must not be the same as COMMAND DELIMITER)
+
+COMMAND DELIMITER%===>_Z+ (Special character for command stacking)+
+
+SCREEN FORMAT %===>_ZSF + (Select one of the following:)
+ (3278 Model 5 only) (DATA - Format based on data width)
+ (STD - Always format 24 lines by 80 chars)
+ (MAX - Always format 27 lines by 132 chars)
+
)INIT
.HELP = ISP05100
.ZVARS = '(ZPADC ZDEL)'
&ZSF = TRANS (&ZFMT D,DATA S,STD M,MAX P,PART *,' ')
)PROC
IF (.RESP = ENTER)
IF (&ZVERB ^= ' ')
.MSG = ISPZ002 /* INVALID COMMAND */
ELSE
IF (&ZCMD ^= ' ')
.MSG = ISPZ001 /* INVALID COMMAND */
VER (&ZTERM NB LIST 3277,3277A,3278,3278A,3278T, /* BRACKET3 */
3278CF,3277KN,3278KN,3290A,ASCII) /* BRACKET3 */
&ZCHARLM = TRANS(&ZTERM
3277 , ISP3277
3277A , ISP3277A
3278 , ISP3278
3278A , ISP3278A
3290A , ISP3278A
ASCII , ISPX7171 /* BRACKET3 */
3278T , ISP3278T
3278CF, ISP3278C
3277KN, ISP3277K
3278KN, ISP3278K)
VER (&ZKEYS NB LIST 12,24)
IF (&ZTERM = 3278T)
VER (&ZSF LIST STD,DATA,MAX MSG=ISPO005)
VER (&ZPADC NB,MSG=ISPP190)
IF (&ZDEL = &ZPADC) .MSG = ISPO003
IF (&ZPADC = LIST A,C,D,E,F,G,H,I,J,K,L,M,O,P,Q,R,S,T,U,V,W,X,Y,Z,
0,1,2,3,4,5,6,7,8,9)
.MSG = ISPP195
IF (&ZDEL = LIST A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,
0,1,2,3,4,5,6,7,8,9,'.','=')
.MSG = ISPP195
VER (&ZSF,NONBLANK)
&ZFMT = TRUNC (&ZSF,1)
VER (&ZFMT,LIST D,S,M,P)
VER (&ZDEL NB PICT C)
IF (.MSG ^= ' ')
.RESP = ENTER
)END
/* 5685-054 (C) COPYRIGHT IBM CORP. 1980, 1991 */
Usermods:
BRACKET3 - SEB1525 - Support for ASCII terminal type (ISPX7171) added.
The following 2 lines were removed from the body to make room for our
enhancements (we don't have 3290's, so we can do this):
------------------------------------------------------------------------
+ (3290 Only) (PART - Format using hardware partitions.
+ Effective the next ISPF invocation.)
------------------------------------------------------------------------
++PNLENU(ISPOPT3A).
)ATTR
@ TYPE(INPUT) CAPS(OFF)
)BODY
%------------------------ PF KEY DEFINITIONS AND LABELS ------------------------
%COMMAND ===>_ZCMD +
+
+NUMBER OF PF KEYS%===>_ZKEYS+ TERMINAL TYPE%===>_ZTERM +
+
+PF1 %===>@ZPF13
+PF2 %===>@ZPF14
+PF3 %===>@ZPF15
+PF4 %===>@ZPF16
+PF5 %===>@ZPF17
+PF6 %===>@ZPF18
+PF7 %===>@ZPF19
+PF8 %===>@ZPF20
+PF9 %===>@ZPF21
+PF10%===>@ZPF22
+PF11%===>@ZPF23
+PF12%===>@ZPF24
+
+PF1 LABEL%===>@ZPFL13 + PF2 LABEL%===>@ZPFL14 + PF3 LABEL%===>@ZPFL15 +
+PF4 LABEL%===>@ZPFL16 + PF5 LABEL%===>@ZPFL17 + PF6 LABEL%===>@ZPFL18 +
+PF7 LABEL%===>@ZPFL19 + PF8 LABEL%===>@ZPFL20 + PF9 LABEL%===>@ZPFL21 +
+PF10 LABEL%===>@ZPFL22 + PF11 LABEL%===>@ZPFL23 + PF12 LABEL%===>@ZPFL24 +
+
+Press%ENTER+key to save changes. Enter%END+command to save changes and exit.
)INIT
.HELP = ISP05300
.CURSOR = ZCMD
)PROC
IF (.RESP = ENTER)
IF (&ZVERB ^= ' ')
.MSG = ISPZ002
ELSE
IF (&ZCMD ^= ' ')
.MSG = ISPZ001
VER (&ZKEYS NB LIST 12,24 MSG=ISPO004)
VER (&ZTERM NB LIST 3277,3277A,3278,3278A,3278T,3278CF,3277KN,3278KN,3290A
ASCII /* #SPF356 */
MSG=ISPO004)
&ZCHARLM = TRANS(&ZTERM
3277 , ISP3277
3277A , ISP3277A
3278 , ISP3278
3278A , ISP3278A
3290A , ISP3278A
ASCII , ISPX7171 /* BRACKET3 */
3278T , ISP3278T
3278CF, ISP3278C
3277KN, ISP3277K
3278KN, ISP3278K)
IF (&ZPF13 = ' ')
&ZPF13 = HELP
IF (&ZPF14 = ' ')
&ZPF14 = SPLIT
IF (&ZPF15 = ' ')
&ZPF15 = END
IF (&ZPF16 = ' ')
&ZPF16 = RETURN
IF (&ZPF17 = ' ')
&ZPF17 = RFIND
IF (&ZPF18 = ' ')
&ZPF18 = RCHANGE
IF (&ZPF19 = ' ')
&ZPF19 = UP
IF (&ZPF20 = ' ')
&ZPF20 = DOWN
IF (&ZPF21 = ' ')
&ZPF21 = SWAP
IF (&ZPF22 = ' ')
&ZPF22 = LEFT
IF (&ZPF23 = ' ')
&ZPF23 = RIGHT
IF (&ZPF24 = ' ')
&ZPF24 = RETRIEVE
VPUT ( ZPF13 ZPF14 ZPF15 ZPF16 ZPF17 ZPF18 ) PROFILE
VPUT ( ZPF19 ZPF20 ZPF21 ZPF22 ZPF23 ZPF24 ) PROFILE
VPUT ( ZPFL13 ZPFL14 ZPFL15 ZPFL16 ZPFL17 ZPFL18 ) PROFILE
VPUT ( ZPFL19 ZPFL20 ZPFL21 ZPFL22 ZPFL23 ZPFL24 ) PROFILE
IF (.MSG ^= ' ')
.RESP = ENTER
)END
/* 5685-054 (C) COPYRIGHT IBM CORP. 1980, 1991 */
Usermods:
BRACKET3 - SEB1525 - Support for ASCII terminal type (ISPX7171) added.
++PNLENU(ISPOPT3B).
)ATTR
@ TYPE(INPUT) CAPS(OFF)
)BODY
%---------------- PF KEY DEFINITIONS AND LABELS - PRIMARY KEYS -----------------
%COMMAND ===>_ZCMD +
+
+NUMBER OF PF KEYS%===>_ZKEYS+ TERMINAL TYPE%===>_ZTERM +
+
+PF13%===>@ZPF13
+PF14%===>@ZPF14
+PF15%===>@ZPF15
+PF16%===>@ZPF16
+PF17%===>@ZPF17
+PF18%===>@ZPF18
+PF19%===>@ZPF19
+PF20%===>@ZPF20
+PF21%===>@ZPF21
+PF22%===>@ZPF22
+PF23%===>@ZPF23
+PF24%===>@ZPF24
+
+PF13 LABEL%===>@ZPFL13 + PF14 LABEL%===>@ZPFL14 + PF15 LABEL%===>@ZPFL15 +
+PF16 LABEL%===>@ZPFL16 + PF17 LABEL%===>@ZPFL17 + PF18 LABEL%===>@ZPFL18 +
+PF19 LABEL%===>@ZPFL19 + PF20 LABEL%===>@ZPFL20 + PF21 LABEL%===>@ZPFL21 +
+PF22 LABEL%===>@ZPFL22 + PF23 LABEL%===>@ZPFL23 + PF24 LABEL%===>@ZPFL24 +
+
+Press%ENTER+key to display alternate keys. Enter%END+command to exit.
)INIT
.HELP = ISP05300
.CURSOR = ZCMD
)PROC
IF (.RESP = ENTER)
IF (&ZVERB ^= ' ')
.MSG = ISPZ002
ELSE
IF (&ZCMD ^= ' ')
.MSG = ISPZ001
VER (&ZKEYS NB LIST 12,24 MSG=ISPO004)
VER (&ZTERM NB LIST 3277,3277A,3278,3278A,3278T,3278CF,3277KN,3278KN,3290A
ASCII /* #SPF356 */
MSG=ISPO004)
&ZCHARLM = TRANS(&ZTERM
3277 , ISP3277
3277A , ISP3277A
3278 , ISP3278
3278A , ISP3278A
3290A , ISP3278A
ASCII , ISPX7171 /* BRACKET3 */
3278T , ISP3278T
3278CF, ISP3278C
3277KN, ISP3277K
3278KN, ISP3278K)
IF (&ZPF13 = ' ')
&ZPF13 = HELP
IF (&ZPF14 = ' ')
&ZPF14 = SPLIT
IF (&ZPF15 = ' ')
&ZPF15 = END
IF (&ZPF16 = ' ')
&ZPF16 = RETURN
IF (&ZPF17 = ' ')
&ZPF17 = RFIND
IF (&ZPF18 = ' ')
&ZPF18 = RCHANGE
IF (&ZPF19 = ' ')
&ZPF19 = UP
IF (&ZPF20 = ' ')
&ZPF20 = DOWN
IF (&ZPF21 = ' ')
&ZPF21 = SWAP
IF (&ZPF22 = ' ')
&ZPF22 = LEFT
IF (&ZPF23 = ' ')
&ZPF23 = RIGHT
IF (&ZPF24 = ' ')
&ZPF24 = RETRIEVE
VPUT ( ZPF13 ZPF14 ZPF15 ZPF16 ZPF17 ZPF18 ) PROFILE
VPUT ( ZPF19 ZPF20 ZPF21 ZPF22 ZPF23 ZPF24 ) PROFILE
VPUT ( ZPFL13 ZPFL14 ZPFL15 ZPFL16 ZPFL17 ZPFL18 ) PROFILE
VPUT ( ZPFL19 ZPFL20 ZPFL21 ZPFL22 ZPFL23 ZPFL24 ) PROFILE
IF (.MSG ^= ' ')
.RESP = ENTER
)END
/* 5685-054 (C) COPYRIGHT IBM CORP. 1980, 1991 */
Usermods:
BRACKET3 - SEB1525 - Support for ASCII terminal type (ISPX7171) added.
./ ENDUP
?!
//EXEC EXEC MDLOAD,TRK1='5',TO='EXEC'
//SYSIN DD DATA,DLM='?!'
./ ADD NAME=BRACKETS
/* REXX. Use this in conjunction with ISPF "ASCII" terminal table on
a non-extended-attributes terminal. */
trace off
signal on failure
address TSO
arg junk
if junk = "OFF" then do
address TSO "TERM NOCHAR"
end
else if junk = "3179" then do
address TSO,
"TERM CHAR((X'BA' X'AD') (X'BB' X'BD') (X'AD' X'BA') (X'BD' X'BB'))"
end
else if junk \= "" then do
say "Invalid value" junk
end
else do
address TSO,
"TERM CHAR((X'41' X'AD') (X'42' X'BD') (X'AD' X'41') (X'BD' X'42'))"
end
exit
./ ENDUP
?!
//HELP EXEC MDLOAD,TRK1='5',TO='HELP'
//SYSIN DD DATA,DLM='?!'
./ ADD NAME=BRACKETS
)F Function -
The BRACKETS exec changes the terminal character translation of your
TSO session to display square brackets properly on a 3278 terminal.
Note that this works properly ONLY on such a terminal. Do not use
this on any other type of terminal.
Use this exec under ISPF when you are on a 3278 terminal and you
have set your terminal type (option 0.1) to ASCII in order to edit
and browse square brackets. If you set your terminal type to ASCII
without using this exec, you will see odd-looking characters in
bracket positions. The character translation effected by the
BRACKETS exec allows you to see actual brackets.
From any ISPF command line, type: TSO %BRACKETS
Note: If you execute BRACKETS from READY mode and then enter ISPF,
ISPF will turn off character translation, and you will have to
re-execute BRACKETS.
)X Syntax -
%BRACKETS {OFF}
Required: none
Defaults: no operand
)O Operands -
)P - BRACKETS with no operand turns translation on.
BRACKETS OFF turns translation off.
BRACKETS 3179 turns translation on for a 3179 terminal,
but this does not have the desired effect under ISPF.
./ ENDUP
?!
