%----------------------- ISPF/PDF PRIMARY OPTION MENU ------------------------ %OPTION ===>_ZCMD + % +USERID - &ZUSER % 0 +ISPF PARMS - Specify terminal and user parameters +TIME - &ZTIME % 1 +BROWSE - Display source data or output listings +TERMINAL - &ZTERM % 2 +EDIT - Create or change source data +PF KEYS - &ZKEYS % 3 +UTILITIES - Perform utility functions +SYSID - &ZSYSID % 4 +FOREGROUND - Invoke language processors in foreground % 5 +BATCH - Submit job for language processing % 6 +COMMAND - Enter TSO command or CLIST % 7 +DIALOG TEST - Perform dialog testing % 8 +LM UTILITIES- Perform library administrator utility functions % 9 +IBM PRODUCTS- Additional IBM program development products % I +IPCS - Interactive Problem Control System % L +CA-LIBRARIAN- CA-Librarian % O +SDSF - Spool Display and Search Facility % D +CA DOC - Online Product Information and hints % P +PDS 8.4 - PDS % S +STROBE - Perform job measurement functions % Q +QuickRef - MVS/QuickRef % Z +XDC/SE - Extended Debugging Controller % X +EXIT - Terminate ISPF Using log and list defaults +Enter%END+command to terminate ISPF. )INIT .HELP = ISR00003 &ZPRIM = YES /* ALWAYS A PRIMARY OPTION MENU */ &ZHTOP = ISR00003 /* TUTORIAL TABLE OF CONTENTS */ &ZHINDEX = ISR91000 /* TUTORIAL INDEX - 1ST PAGE */ VPUT (ZHTOP,ZHINDEX) PROFILE )PROC &ZQ = &Z IF (&ZCMD ¬= ' ') &ZQ = TRUNC(&ZCMD,'.') IF (&ZQ = ' ') .MSG = ISRU000 &DTESTP = ISRYXDR /* any changes to this panel should /* be mirroed in sysprog.ispplib IF (&ZENVIR > 'ISPF 3.2') &DTESTP = ISPYXDR &TFS = XDC /* <---- This MUST match XDC's name. &TFSTEMP = TRUNC (&ZCMD,'.') /* IF (&TFSTEMP = 'D') /* This code permits the user to &ZCMD = TRUNC (&ZCMD,'.') /* specify =D.xxx where "xxx" might be &TFSTEMP = .TRAIL /* the name of an alternate XDC. IF (&TFSTEMP ¬= &Z) /* &TFS = &TFSTEMP /* &TFS = DBC /* <---- This MUST match DBC's name. &TFSTEMP = TRUNC (&ZCMD,'.') /* IF (&TFSTEMP = 'D') /* This code permits the user to &ZCMD = TRUNC (&ZCMD,'.') /* specify =D.xxx where "xxx" might be &TFSTEMP = .TRAIL /* the name of an alternate DBC. IF (&TFSTEMP ¬= &Z) /* &TFS = &TFSTEMP /* &ZSEL = TRANS( &ZQ 0,'PGM(ISPISM)' 1,'PGM(ISRBRO) PARM(ISRBRO01)' *<==== Change it to this in your ISR@PRIM panel to use BROWSE instead of VIEW as default* 2,'PGM(ISREDIT) PARM(P,ISREDM01)' 3,'PANEL(ISRUTIL)' 4,'PANEL(ISRFPA)' 5,'PGM(ISRJB1) PARM(ISRJPA) NOCHECK' 6,'PGM(ISRPTC)' 7,'PGM(&DTESTP) NOCHECK' 8,'PANEL(ISRLPRIM)' 9,'PANEL(ISRDIIS1)' /* I,'PANEL(IPCSPRIM)' */ /* I,'PGM(BLSG) PARM(PANEL(BLSPPRIM)) NEWAPPL(BLSG)' */ I,'CMD(%GISIPCS)' IX,'CMD(%IXFP) NOCHECK' L,'CMD(%CALIBR)' O,'PGM(ISFISP) NOCHECK NEWAPPL(ISF)' M,'PANEL(MVSOPTS)' P,'PANEL(PDS@PRIM)' D,'PANEL(DOC@PRIM)' U1,'PANEL(ISR@MISC)' MIS,'CMD(MISCLIST)' Q,'CMD(QW)' S,'CMD(%STROBE) NOCHECK' Z,'CMD(%XDC) NOCHECK NEWAPPL(XDC)' ' ',' ' X,'EXIT' *,'?' ) &ZTRAIL = .TRAIL )END
On 08/08/2019 17:36, Paul Gilmartin wrote: > On Thu, 8 Aug 2019 08:46:02 -0400, Steve Smith wrote: > >> Option 1 defaults to "View" mode, which is like Edit. You can force it to >> Browse mode on the entry screen, which will be what you get with the "B" >> operator. >> >> View. like Edit, shows blanks all the way to the maximum LRECL, even if >> they're not there. I don't know why. However, Edit will trim trailing >> blanks from all records on save, unless you prevent it from doing so. >> > ... and there's no way to prevent it. > > -- gil > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > . > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
