Regarding using a variable as line number for updating a sequential file using EXECIO DISRU
Hi I have a situation in a TSO REXX pgm, where i will not be knowing the linenum which is being updated, before hand.It will be known only at runtime. So i have setup a counter which gets incremented and when the condition gets satisfied for updating a row in a sequential file i try to use a command like below EXECIO 1 DISKRU INSEQ LCTR Where LCTR is the line counter. But it gives a error saying the line can be number or should not be provided. How can we try using a variable ? Any tips. thanks Sabarish -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Regarding problem of clearing of ISPF tables in a panel , getting multiple entries
Hi
I am having a problem of the entries being shown on a panel from a ISPF
table sometimes showing multiple entries wrt actual entries in a file during
the first time of invoking the panel. I am reading from a file and
displaying in a panel using ISPF tables.If actually there are only 7 entries
sometime it displays around 16 entries or so.Some records get duplicated I
tried using TBVCLEAR etc to clear but still sometimes it shows duplicate
entries in the panel.Sometimes it is showing correctly.
I am using the TBDISPL service to display the table entries .
I am attaching the code for your reference.
thanks in advance.
Sabarish
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
/**REXX***/
MEDSNHLQ='SKANNON.UT753SP'
MYEXEC=MEDSNHLQ||'.TEST.EXEC'
'ISPEXEC LIBDEF ISPPLIB DATASET ID('''MYEXEC''')'
ADDRESS TSO
ISPEXEC TBCREATE MAXTB NAMES(T0 T1 T2 ) || ,
,NOWRITE, SHARE
INSEQ = '||SKANNON.NR.TEST.BLDLST||'
SEL = ''
CALL POP_TBL
SAY 'BEFORE TBTOP'
'ISPEXEC TBTOP MAXTB '
DO WHILE ENDRC = 4
' ISPEXEC TBVCLEAR MAXTB'
CALL TBDISPL_BLDDTL
/*'ISPEXEC TBEND MAXTB ' */
SAY 'BEFORE ZTDSEL'
IF ZTDSEL=0 | RC4 THEN
DO
ENDRC=RC
say 'NO BUILD SELECTED'
' ISPEXEC TBVCLEAR MAXTB'
'ISPEXEC TBEND MAXTB '
'ISPEXEC DISPLAY PANEL(SBLBDSP)'
END
ELSE IF T0 = 'S' THEN
DO
SEL = 'X'
CALL BLD_MEMLIST
IF ZTDSEL=0 | RC4 THEN
DO
ENDRC=RC
'ISPEXEC TBEND MAXTB '
END
END
ELSE IF T0 = 'A' THEN
DO
SEL = 'X'
SAY 'BEFORE INSRT'
CALL INSRT_REC
ENDRC = 8
END
ELSE IF T0 = 'D' THEN
DO
ISPEXEC TBCREATE XTB1 NAMES(T0 T1 T2),NOWRITE, SHARE
ROWCNT2=ZTDSELS
DO IX1=1 TO ROWCNT2
VTBA1.IX1.1=T0
VTBA1.IX1.2=T1
VTBA1.IX1.3=T2
'ISPEXEC CONTROL NONDISPL'
END
DO IX1=1 TO ROWCNT2
OPTTYPE=VTBA.IX1.1
BUINAM1 =VTBA.IX1.2
END
CALL DLT_REC
END
END
IF SEL = 'X' THEN
DO
SAY 'BEFORE POP'
CALL POP_TBL
SAY 'AFTER POP_TBL'
CALL TBDISPL_BLDDTL
, 'ISPEXEC DISPLAY PANEL(SBLBDSP)'
, END
,RETURN
,
,TBDISPL_BLDDTL:
, SAY 'WITHIN DISPL'
,
, 'ISPEXEC TBDISPL MAXTB PANEL(SBLBDSP)'
, SAY 'AFTER TBDISPL'
,
,RETURN
,
,
,TBADD_BLDDTL:
,
, ISPEXEC TBADD MAXTB
,
,RETURN
BLD_MEMLIST:
/*CALL THE REXX ROUTINE FOR COPYING THE SQLSCRIPT AND CHANGING TBLOWNER
THEN CALL THE ROUTINE FOR BRINGING UP THE SQL JOB'
*/
SAY 'WITHIN BLD_MEMLIST'
SAY 'T0:' T0
SAY 'T1:' T1
SAY 'T2:' T2
MYDSNHLQ = DSNHL
TBOWNER = TBOWN
SAY 'High level: ' MYDSNHLQ
SAY 'TB Owner : ' TBOWNER
IF MYDSNHLQ = '' | TBOWNER = '' THEN
DO
SAY 'DSNHLQ and TBOWNER cannot be empty'
RETURN
END
'ISPEXEC VPUT (MYDSNHLQ)'
'ISPEXEC VPUT (TBOWNER)'
IF ZTDSELS = 0 THEN
DO
SAY 'NO BUILD SELECTED'
'ISPEXEC DISPLAY PANEL(SBLBDSP)'
END
IF ZTDSELS 1 THEN
DO
SAY 'ONLY ONE CAN BE SELECTED'
'ISPEXEC DISPLAY PANEL(SBLBDSP)'
END
ISPEXEC TBCREATE XTB NAMES(T0 T1 T2),NOWRITE, SHARE
ROWCNT=ZTDSELS
DO IX=1 TO ROWCNT
VTBA.IX.1=T0
VTBA.IX.2=T1
VTBA.IX.3=T2
'ISPEXEC CONTROL NONDISPL'
'ISPEXEC TBDISPL MAXTB'
END
DO IX=1 TO ROWCNT
OPTTYPE=VTBA.IX.1
BUINAM =VTBA.IX.2
END
ADDRESS ISPEXEC
'ISPEXEC VPUT (BUINAM)'
CALL BDSQCOPY
CALL SBLJBBDS
RETURN
INSRT_REC:
NBLD = SUBSTR(T1,1,6)||SUBSTR(T2,1,8)
SAY 'NBLD' NBLD
ALLOC FI(INSEQ) DA(||INSEQ||) MOD
push NBLD
EXECIO 1 DISKW INSEQ
'EXECIO 0 DISKW INSEQ (FINIS '
'FREE FI(INSEQ)'
RETURN
DLT_REC:
SAY 'WITHIN DLT_REC'
ALLOC FI(INSEQ) DA(||INSEQ||) OLD
LCTR=0
DO WHILE EOF=0
LCTR = LCTR + 1
EXECIO 1 DISKR INSEQ
EOF=RC
PULL LINE1
IF BUINAM1 = SUBSTR(LINE1,1,6) THEN
LEAVE
ELSE
ITERATE
END
EXECIO 1 DISKRU INSEQ
PULL LINE
NBLD1 = SUBSTR(T1,1,6)||SUBSTR(T2,1,8)||'D'
PUSH NBLD1
EXECIO 1 DISKW INSEQ
EXECIO 1 DISKW INSEQ (FINIS
FREE F(INSEQ)
RETURN
POP_TBL:
DROP X.
TRKLINE = ''
ALLOC FI(INSEQ) DA(||INSEQ||) SHR REUS
'EXECIO 1 DISKR INSEQ(STEM X. '
EOF=RC
/*' ISPEXEC TBVCLEAR MAXTB'*/
DO WHILE EOF=0
SAY 'WITHIN LOOP'
PARSE VAR X.1 TRKLINE
TRKLINE=STRIP(TRKLINE)
T0='_'
T1=SUBSTR(TRKLINE,1,6)
T2=SUBSTR(TRKLINE,7,8)
CALL TBADD_BLDDTL
EXECIO 1 DISKR INSEQ (STEM X.
EOF=RC
END
'EXECIO 0 DISKW INSEQ (FINIS '
'FREE FI(INSEQ)'
RETURN
Re: Regarding problem of clearing of ISPF tables in a panel , getting multiple entries
Hi Itschak Thanks for the reply. But i am not using CONTROL ERRORS RETURN.I am only using CONTROL NONDISPL for one more ISPF table XTB , as you can see from my code. Sabarish On Wed, Apr 1, 2009 at 4:54 PM, Itschak Mugzach imugz...@gmail.com wrote: Do U use Control Errors return? If so, you need to TBEND the table before trying to create it (Control errors return might cause that your TBCREATE failes, but the table is already in memory, thus TBADD will waork on the currently opened table: Control errors return TBEND tbl TBCREATE tbl TBADD TBDISPL On Wed, Apr 1, 2009 at 1:48 PM, sabarish kannan sabarishkanna...@gmail.comwrote: Hi I am having a problem of the entries being shown on a panel from a ISPF table sometimes showing multiple entries wrt actual entries in a file during the first time of invoking the panel. I am reading from a file and displaying in a panel using ISPF tables.If actually there are only 7 entries sometime it displays around 16 entries or so.Some records get duplicated I tried using TBVCLEAR etc to clear but still sometimes it shows duplicate entries in the panel.Sometimes it is showing correctly. I am using the TBDISPL service to display the table entries . I am attaching the code for your reference. thanks in advance. Sabarish -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Regarding using a variable as line number for updating a sequential file using EXECIO DISRU
Hi Gary Thanks. It works. Sabarish On Wed, Apr 1, 2009 at 2:01 PM, Gary Threadgold threa...@unhcr.org wrote: sabarish kannan sabarishkanna...@gmail.com on 2009-04-01 at 09:53 wrote: Hi I have a situation in a TSO REXX pgm, where i will not be knowing the linenum which is being updated, before hand.It will be known only at runtime. So i have setup a counter which gets incremented and when the condition gets satisfied for updating a row in a sequential file i try to use a command like below EXECIO 1 DISKRU INSEQ LCTR Where LCTR is the line counter. But it gives a error saying the line can be number or should not be provided. How can we try using a variable ? Any tips. thanks Sabarish Hi Sabarish, You'll need to move your counter variable outside the quotes: EXECIO 1 DISKRU INSEQ lctr Regards, Gary. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to enter Trademark TM symbol in hostexplorer emulator
Hi Shmuel thanks. Sabarish On Fri, Sep 19, 2008 at 5:11 PM, Shmuel Metz (Seymour J.) [EMAIL PROTECTED] [EMAIL PROTECTED] wrote: In [EMAIL PROTECTED], on 09/17/2008 at 12:15 PM, Tony Harminc [EMAIL PROTECTED] said: All the ASCII-based codepages have U+00AE at X'AE', and all the EBCDIC CPs have it at X'AF'. Except for the ASCII-based code pages that have (c) (Circle-R) at E9 and (R) () at AE. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Taking Image Copy of base tablespace,LOB Tablespace and all the indexspaces in DB2V8
Hi Kevin thanks. I am not a DBA . Sabarish On Sat, Sep 20, 2008 at 10:28 PM, Kenneth E Tomiak [EMAIL PROTECTED] wrote: And take advantage of search engines like GOOGLE and ASK. A search of the message id and COPY YES turned up this hit which explains why you received the message. If you are aDBA then from there you should know what to do or get a DBA to fix it. There are DBa consultants available if you are still stuck. http://www.redbooks.ibm.com/redbooks/pdfs/sg246289.pdf P.Sabarish Kannan You should post on the DB2 List [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Taking Image Copy of base tablespace,LOB Tablespace and all the indexspaces in DB2V8
Hi I tried to access the site www.idugdb2-l.org for posting my message. But it gives this error: Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator, [EMAIL PROTECTED] and inform them of the time the error occurred, and anything you might have done that may have caused the error. More information about this error may be available in the server error log. Any inputs? Sabarish On Mon, Sep 22, 2008 at 11:54 AM, sabarish kannan [EMAIL PROTECTED] wrote: Hi Kevin thanks. I am not a DBA . Sabarish On Sat, Sep 20, 2008 at 10:28 PM, Kenneth E Tomiak [EMAIL PROTECTED] wrote: And take advantage of search engines like GOOGLE and ASK. A search of the message id and COPY YES turned up this hit which explains why you received the message. If you are aDBA then from there you should know what to do or get a DBA to fix it. There are DBa consultants available if you are still stuck. http://www.redbooks.ibm.com/redbooks/pdfs/sg246289.pdf P.Sabarish Kannan You should post on the DB2 List [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to enter Trademark TM symbol in hostexplorer emulator
Hi Tony thanks very much for the reply. Sabarish On 9/17/08, Tony Harminc [EMAIL PROTECTED] wrote: 2008/09/17 P.Sabarish Kannan [EMAIL PROTECTED]: I wanted to know how do we enter Trademark TM symbol in hostexplorer .Basically my requirement is to insert this character in Db2 v8 tables for both ascii and ebcdic table. I tried selecting different codepages from host explorer i)French ECECP 1147 ii)English UK ECECP 1146 iii)English-US C370 CECP V2(1047) iv)English-US CECP(037) But for all this i am not able to enter the TM symbol.I found the hex value is x'AF' . Perhaps you are confusing the Trademark symbol (Unicode U+2122) with the Registered Trademark symbol (Unicode U+00AE). None of the codepages you list above contain the Trademark symbol (a stylized TM), but they all contain the Registered Trademark symbol, which looks like a capital R in a circle. All the ASCII-based codepages have U+00AE at X'AE', and all the EBCDIC CPs have it at X'AF'. As far as entering a character in a particular terminal emulator program, while I don't know Hostexplorer, generally these programs have a keyboard mapping function that will allow you to map some otherwise unused key sequence (perhaps ALT-T) to the character you want. If you really want U+2122, then you have to either use a codepage that has it (and maybe there just isn't one), or arbitrarily use some other byte value to represent TM in your applications. Or just change everything to use Unicode... Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
