FYI and YMMV, I edited the variable successfully in the )INIT section, it was
easy:
)INIT
.ZVARS = '(PNLTITLE DISPCOLS ZCMD IDAS)'
.HELP = &HELPPNL
.ATTR(DISPCOLS)='JUST(RIGHT) PAD(NULLS)'
.CURSOR = &CURSOR
.CSRPOS = &CSRPOS
*REXX(IDIHDR,IDIDA)
x1 = '4B30E4A285994040'x
p = Pos(x1,IDIDA)
If p > 0 Then Do
Parse Var x1 x2 3 .
/* Say '1--->'DISTRANS(IDIHDR)'< ' */
/* Say '2--->'DISTRANS(IDIDA)'< ' */
Parse Var IDIDA d1 =(p) d2 +30 d3
IDIDA = d1 !! x2 !! 'Swedbank Special Information' !! d3
/* Say 'E--->'DISTRANS(IDIDA)'< ' */
End
*ENDREXX
)PROC
Best Regards,
Thomas Berg
___________________________________________________________________
Thomas Berg Specialist zOS/RQM/IT Delivery Swedbank AB (Publ)
Interactive is 'manual.' Batch is 'automatic.'
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of
> Steve Coalbran
> Sent: Friday, June 05, 2015 1:34 PM
> To: [email protected]
> Subject: Re: Fault Analyzer experts?
>
> Hej Thomas,
> No this is merely for debugging:
> I am just saying that by trapping the panel source-content of the dynamic
> area you may be able to spot any problem area.
> I will separately send off a message to my few remaining contacts in the
> AD Tools arena in UK to see if there is any deep technical expertise on FA
> out there (remaining!).
> /Steve
>
>
>
> From: Thomas Berg <[email protected]>
> To: [email protected]
> Date: 2015-06-05 11:00
> Subject: Re: Fault Analyzer experts?
> Sent by: IBM Mainframe Discussion List <[email protected]>
>
>
>
> Well you are quite innovative! :)
>
> What you are saying is that I in the )INIT section should read the dynarea
> data, "zap" I with my text" and save it in the same variable?
> (Your example as such will not work - as I want it to (seamlessly with
> FA).)
>
>
>
> Best Regards,
> Thomas Berg
> ___________________________________________________________________
> Thomas Berg Specialist zOS/RQM/IT Delivery Swedbank AB (Publ)
>
> Interactive is 'manual.' Batch is 'automatic.'
>
>
> > -----Original Message-----
> > From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of
> > Steve Coalbran
> > Sent: Thursday, June 04, 2015 6:55 PM
> > To: [email protected]
> > Subject: Re: Fault Analyzer experts?
> >
> > Hej Thomas,
> >
> > Aha! Now I understand.
> > Can you copy the panel to your own library and add a *REXX section in
> the
> > )INIT for info?
> >
> > *REXX(*,dynarea,dynshad)
> > DO i = 1 BY 80 WHILE(SUBSTR(dynarea,i)<>"" )
> > QUEUE SUBSTR(dynarea,i,80)
> > END
> > *ENDREXX
> > Substitute the dynarea & dynshad variables.
> > (Process the dynshad separately if you wish?)
> > (Assumes screen-width of 80)
> >
> > After the execution (I have a utility to do this called QBROWSE)
> > Command ===> QBROWSE
> >
> > /*REXX(QBROWSE) very cut down UNtested version (from memory, CITRIX
> > died!) */
> > q = QUEUED()
> > CALL BPXWDYN "ALLOC RTDDN(TDD) RTDSN(TDS) SPACE(3,3)TRACK LRECL(80)
> > RECFM(FB) "
> > DO q
> > ADDRESS TSO "EXECIO 1 DISKW" tdd "(STEM R "
> > END
> > ADDRESS TSO "EXECIO 0 DISKW" tdd "(FINIS "
> > ADDRESS ISPEXEC "LMINIT DATAID(TD) DDNAME("tdd") "
> > ADDRESS ISPEXEC "VIEW DATAID(&TD) DDNAME("tdd") "
> > ADDRESS ISPEXEC "LMFREE DATAID(&TD) "
> > EXIT
> >
> > /Steve
> >
> >
> >
> > From: Thomas Berg <[email protected]>
> > To: [email protected]
> > Date: 2015-06-04 16:56
> > Subject: Re: Fault Analyzer experts?
> > Sent by: IBM Mainframe Discussion List <[email protected]>
> >
> >
> >
> > I know the panel in question but as the content is dynamically created
> (in
> > a dynamic area) I'm not helped by that.
> >
> >
> >
> > Best Regards,
> > Thomas Berg
> > ___________________________________________________________________
> > Thomas Berg Specialist zOS/RQM/IT Delivery Swedbank AB (Publ)
> >
> > Interactive is 'manual.' Batch is 'automatic.'
> >
> >
> > > -----Original Message-----
> > > From: IBM Mainframe Discussion List [mailto:[email protected]]
> On
> > Behalf Of
> > > Steve Coalbran
> > > Sent: Thursday, June 04, 2015 4:22 PM
> > > To: [email protected]
> > > Subject: Re: Fault Analyzer experts?
> > >
> > > Hej Thomas,
> > > Sorry I missed the bulk of the answers and this may be a duplicate.
> > > Does PANEL(IDIPIDAD) display?
> > > If so TYPE command DDLIST M IDIPIDAD to see the PANEL source --- if
> that
> > > helps. :-/
> > > /Steve
> > >
> > >
> > >
> > > From: Thomas Berg <[email protected]>
> > > To: [email protected]
> > > Date: 2015-06-04 16:10
> > > Subject: Re: Fault Analyzer experts?
> > > Sent by: IBM Mainframe Discussion List
> <[email protected]>
> > >
> > >
> > >
> > > > -----Original Message-----
> > > > From: IBM Mainframe Discussion List [mailto:[email protected]
> ]
> > On
> > > Behalf Of
> > > > Thomas Conley
> > > > Sent: Thursday, June 04, 2015 4:01 PM
> > > > To: [email protected]
> > > > Subject: Re: Fault Analyzer experts?
> > > >
> > > > Thomas,
> > > >
> > > > i can't speak to all your issues, but for the PDSE's, make sure you
> > have
> > > > the latest maintenance applied. There have been a few HIPER's the
> > past
> > > > few months for PDSE corruption, so make sure you have the most
> current
> > > > PDSE maintenance.
> > > >
> > > > On the panel question, issue the PANELID comnmand, and the panel
> > member
> > > > name should appear in the upper left hand corner. You can use
> DDLIST
> > to
> > > > search for the member name, most likely in the IDIPENU dataset. You
> > > > should be able to create an SMP/E usermod to change that panel to
> say
> > > > anything you want for option 6.
> > > >
> > > > Regards,
> > > > Tom Conley
> > >
> > >
> > > Unfortunately the panel in question (IDIPIDAD) is dynamically created
> > (the
> > > content it is).
> > > So no cigar.
> > > (It seems to be quite common now to use dynamic panels. Although it
> > have
> > > its advantages for the developer it complicates customization...)
> > > (AFAIK we have all relevant PTFs.)
> > >
> > >
> > >
> > > Best Regards,
> > > Thomas Berg
> > > ___________________________________________________________________
> > > Thomas Berg Specialist zOS/RQM/IT Delivery Swedbank AB (Publ)
> > >
> > > Interactive is ?manual.? Batch is ?automatic.?
> > >
> > >
> > >
> > >
> > > ----------------------------------------------------------------------
> > > For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to [email protected] with the message: INFO IBM-MAIN
> > >
> > >
> > >
> > > Såvida annat inte anges ovan: / Unless stated otherwise above:
> > > IBM Svenska AB
> > > Organisationsnummer: 556026-6883
> > > Adress: 164 92 Stockholm
> > >
> > > ----------------------------------------------------------------------
> > > 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
> >
> >
> >
> >
> > Såvida annat inte anges ovan: / Unless stated otherwise above:
> > IBM Svenska AB
> > Organisationsnummer: 556026-6883
> > Adress: 164 92 Stockholm
> >
> > ----------------------------------------------------------------------
> > 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
>
>
>
>
> Såvida annat inte anges ovan: / Unless stated otherwise above:
> IBM Svenska AB
> Organisationsnummer: 556026-6883
> Adress: 164 92 Stockholm
>
> ----------------------------------------------------------------------
> 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
