Re: JCT Not Available

Here's my copy of the ONLY Rexx EXEC...

Thanks,
George Rodriguez
Specialist, Systems Programmer
Network & Technical Services
(561) 357-7652 (office)
(561) 707-3496 (mobil)
School District of Palm Beach County
3348 Forest Hill Blvd.
Room B-332
West Palm Beach, FL. 33406-5869
Florida's Only A-Rated Urban District For Five Consecutive Years


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@xxxxxxxxxxx] On
Behalf Of Klein, Kenneth
Sent: Thursday, June 25, 2009 8:07 AM
To: IBM-MAIN@xxxxxxxxxxx
Subject: Re: JCT Not Available

Not on my 1.9 system. I have to type out "x all;find 'failed' all;del
all x" and cancel or I mess up the member.
Anybody know which cbt file that edit macro is on?


Ken Klein
Sr. Systems Programmer
Kentucky Farm Bureau Insurance - Louisville
Kenneth.Klein@xxxxxxxx
502-495-5000 x7011

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@xxxxxxxxxxx] On
Behalf Of Barbara Nitz
Sent: Thursday, June 25, 2009 7:56 AM
To: IBM-MAIN@xxxxxxxxxxx
Subject: Re: JCT Not Available

'only failed' as an edit command? Where did you get this "only"
command?
CBT?

Badly written on my part. it should have been "only 'failed'", and as
far as I know, this is a normal ISPF command.

Barbara

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to listserv@xxxxxxxxxxx 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 listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


----------------------------------------- Under Florida law, e-mail
addresses are public records. If you do not want your e-mail
address released in response to a public records request, do not
send electronic mail to this entity. Instead, contact this office
by phone or in writing.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html/* REXX */ ADDRESS ISPEXEC
/*********************************************************************/
/* The ONLY macro is a combination of EXCLUDE and FIND such that */
/* "only" the lines containing the search string will be displayed. */
/* The parameters for ONLY are the same as those for the FIND */
/* command with the exception of FIRST, LAST, NEXT, and PREV. */
/*********************************************************************/
Trace

'ISREDIT MACRO (FNDPARM)'
'CONTROL ERRORS RETURN' /* Clist handles ISPF and PDF
return codes greater than 12 */
'ISREDIT (RECFM) = RECFM' /* Request record format */
'ISREDIT (NUMMODE,NUMTYPE) = NUMBER' /* Request number mode info */

Parse Var numtype std cobol display /* NUMBER returns a string of 3
words for the second value. We
need to parse NUMTYPE into its
3 parts. */
If nummode = 'ON' Then
Do
/************************************************************/
/* Number mode on can cause a mismatch between col numbers */
/* known to the user and to this macro if there are */
/* sequence numbers at the beginning of the line. To avoid */
/* the confusion number mode is turned off while the macro */
/* runs. Doing this can cause the bounds to change to */
/* include the line numbers if the bounds were originally */
/* set to the default. Therefore if they change the macro */
/* must override that change to prevent the search from */
/* including the line numbers. */
/************************************************************/
If recfm = 'V' | cobol = 'COBOL' Then
Do /* These types have seq numbers at
the beginning of the record. */
'ISREDIT (LEFTON,RIGHTON) = BOUNDS' /* Note the current bounds
*/
'ISREDIT NUMBER OFF' /* Set number mode off. This may
cause the left bound to move.*/
'ISREDIT (LEFTOFF,RIGHTOFF) = BOUNDS' /* Note where the bounds
are now */
If leftoff = 1 Then
Do /* Number mode would not have
allowed a left bound within the
seq num, therefore a value of 1
means it was changed by the
NUMBER OFF, indicating default
bounds */
lefton = ' ' /* Blank the values to be */
righton = ' ' /* restored to cause defaults */
/* to be restored */
If recfm = 'V' Then
'ISREDIT BOUNDS = 9 *' /* Override the left bound to
exclude the seq number */
Else /* RECFM = F, therefore must be */
Do cobol line numbers */
If std='STD' Then
Do /* Cobol may have sequence numbers
at the end in addition to the
beginning */
'ISREDIT (LRECL) = LRECL' /* Right bound depends on
record length */
'ISREDIT BOUNDS = 7' lrecl-8 /* Override both bounds */
End
Else
'ISREDIT BOUNDS = 7 *' /* For NOSTD override only the
left */
End
End
End
End

If substr(fndparm,1,1) ¬= "'" &,
substr(fndparm,1,1) ¬= '"' Then /* Not already a quoted string */
If pos("'",fndparm) ¬= 0 Then /* Single quote in parm string */
fndparm = '"'fndparm'"' /* Put find string in double
quotes */
Else /* No single quotes found */
fndparm = "'"fndparm"'" /* Put find string in single
quotes */

'ISREDIT SEEK' fndparm 'FIRST' /* First see if there is a string
*/
If rc = 0 Then
Do /* If so, exclude all lines */
'ISREDIT EXCLUDE ALL'
'ISREDIT FIND' fndparm 'ALL' /* Show only lines with the string
*/
onlyrc = 0 /* Indicate success */
End
Else /* If not, say so */
Do
zedsmsg = 'String not found'
zedlmsg = '"'fndparm'" not found in the entire file'
'SETMSG MSG(ISRZ001)' /* Set message with alarm */
onlyrc = 12 /* Cause the cmd to remain on */
End /* the PDF edit command line */

If nummode = 'ON' & (recfm = 'V' | cobol = 'COBOL') Then
Do /* If number was turned off */
'ISREDIT NUMBER = ('nummode','numtype')' /* Turn it back on and */
'ISREDIT BOUNDS =' lefton righton /* Restore the bounds */
End
Exit onlyrc


Relevant Pages

  • Re: REXX Problem
    ... The problem has to do with the ampersands in your find string. ... ADDRESS ISREDIT "MACRO " ...
    (bit.listserv.ibm-main)
  • Re: ipsf HIGHLIGHT option
    ... ISREDIT MACRO NOPROCESS (STRING) ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Re: Another trim problem
    ... Use Instr to find the space then Left to get the name string ... School District or Smith School District. ... I want to return just the Jones ...
    (microsoft.public.access.queries)