Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Parsing multiline strings
/* REXX */ /* # = the line delimiter (LF CRLF what ever) */ WordOne. = '' String = "This is a multi#Line message. It has#3 lines of text." StringX = String... -
Parsing Issue
Try Interpret with quotes around the 'CALL TYPE' but not the variable CITY, LAST_NAME, etc. Interpret 'CALL TYPE' CITY CALL PRESS TAB Interpret 'CALL TYPE' LAST_NAME CALL PRESS TAB Interpret 'CALL TYPE' DATE(U) etc -
Parsing Issue
Do while lines(SOURCEFILE) > 0 InLine = linein(SOURCEFILE) Parse var InLine CITY "," LAST_NAME "," FIRST_NAME "," MOM_NAME "," MIDDLE_NAME "," DAD_NAME "," DOB "," etc "," etc "," etc "," etc "," SEX "," etc "," etc Call SETCURSOR 4,23 Call CREATEDATA End -
I need to create unique dataset names.
Try making use of TIME(L). say time(L) say time(L) say time(L) say time(L) exit 0 /* results */ 07:03:04.987645 07:03:04.987704 07:03:04.987730 07:03:04.987753 -
Redisplaying table at certain row
iRow = ZTDTOP should work Check-out this link http://www-01.ibm.com/support/docview.wss?uid=swg21024010 -
Redisplaying table at certain row
Here is a basic REXX to display and re-display a table /* REXX ---------------------*/ Call ViewText exit 0 /*--------------------------------*/ /* View Message Text... -
Redisplaying table at certain row
What does your Rexx and panel look like? -
Redisplaying table at certain row
The row number that corresponds to the first model set currently displayed on the screen is stored in the system variable ZTDTOP. If, in a dialog, you want to reposition the scrollable data as the user last saw it, you must reposition the CRP to the row number stored in ZTDTOP before reinvoking... -
Redisplaying table at certain row
The TBTOP service sets the current row pointer (CRP) to the top of a table, ahead of the first row. The TBSKIP service moves the current row pointer (CRP) of a table forward or backward by a specified number of rows and retrieves the row to which it is pointing unless the NOREAD parameter is... -
Redisplaying table at certain row
Since you set address to ISPEXEC, you don't to repeat it in each command Row_Num = 47 /* i.e. */ "TBTOP TAB1" "TBSKIP TAB1 Number("Row_Num")" "TBDISPL TAB1 PANEL(DTAB)" -
How do I insert a new line for export to excel
Have you tried making it a csv file? '"'||LineOneData||'0A'x||LineTwoData||'"' Name the file Something.csv Open it with EXCEL -
Using REXX to get data where the cursor is positioned
Try this /* REXX */ 'ISREDIT MACRO NOPROCESS (parm)' 'ISPEXEC CONTROL ERRORS RETURN' 'ISREDIT (CurLne, CurCol) = CURSOR' 'ISREDIT (LineX) = LINE' CurLne... -
Numeric editted display
Here's another solution num = '12345678.90' do c=pos('.',num'.')-4 to lastpos('-','-'num) by -3; num=insert(',',num,c);end say num -
Read a value from a JCL Stream
oucheeeeee stated that: If the statement //IPMDS EXEC SIEMPTY,LLQ=XXXXXXX contains any value other than XXXXXX, then run this step, if value is XXXXXXX then just end. I believe that adding the TSTEMTY step to the proc and testing for a non-zero condition code in the subsequent steps of the... -
Read a value from a JCL Stream
Here is a rexx soultion /* REXX */ ARG parm If parm = 'XXXXXXX' then exit 4 exit 0 //RXUSR001 JOB (REXXJCL),'TEST', // CLASS=S,MSGCLASS=X,MSGLEVEL=(1,1),REGION=0M, //... -
Creating an allocation with variable DSN (on zOS)
BPXWDYN should be able to do dynamic allocation of a GDG. What error message did you get? Rather than reading the sysprint my example read the input of the delete / define step to get the name of the temp backup file. -
Creating an allocation with variable DSN (on zOS)
Try something like this: //TESTJOB JOB (DEFKSDS),..... //* //****************************************************************** //* IDCAMS REPRO, DELETE. DEFINE CLUSTER TST1.CLUSTER.NAME //****************************************************************** //DEFINE EXEC PGM=IDCAMS... -
Message "RC(-3)" from "address ispexec vget(..."
Put a space between VGET and (IKJADM) address ispexec "VGET (IKJADM) SHARED" -
REXX - how to capture the encoded values in my screen/panel
Try this panel and test REXX. It might help you get started. RxUsr )ATTR % TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) @ TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(GREEN) $ TYPE(INPUT) INTENS(LOW) COLOR(GREEN)... -
Is there a better way to do this?
Try this for your do loop Qit = 0 do i = 1 to line.0 if Word(line.i,1) = 'IPSEC' then Qit = 1 if Qit then QUEUE line.i if word(line.i,1) = 'ENDIPSEC' then Qit = 0 end
