Excellent!
Trevlig helg!
/Steve
From: Thomas Berg <thomas.b...@swedbank.se>
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 2015-06-05 15:30
Subject: Re: Fault Analyzer experts?
Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
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
--- deleted history ---
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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
