Search results for query: *

/* REXX */ /* # = the line delimiter (LF CRLF what ever) */ WordOne. = '' String = "This is a multi#Line message. It has#3 lines of text." StringX = String...

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

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

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

iRow = ZTDTOP should work Check-out this link http://www-01.ibm.com/support/docview.wss?uid=swg21024010

Here is a basic REXX to display and re-display a table /* REXX ---------------------*/ Call ViewText exit 0 /*--------------------------------*/ /* View Message Text...

What does your Rexx and panel look like?

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...

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...

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)"

Have you tried making it a csv file? '"'||LineOneData||'0A'x||LineTwoData||'"' Name the file Something.csv Open it with EXCEL

Try this /* REXX */ 'ISREDIT MACRO NOPROCESS (parm)' 'ISPEXEC CONTROL ERRORS RETURN' 'ISREDIT (CurLne, CurCol) = CURSOR' 'ISREDIT (LineX) = LINE' CurLne...

Here's another solution num = '12345678.90' do c=pos('.',num'.')-4 to lastpos('-','-'num) by -3; num=insert(',',num,c);end say num

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...

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, //...

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.

Try something like this: //TESTJOB JOB (DEFKSDS),..... //* //****************************************************************** //* IDCAMS REPRO, DELETE. DEFINE CLUSTER TST1.CLUSTER.NAME //****************************************************************** //DEFINE EXEC PGM=IDCAMS...

Put a space between VGET and (IKJADM) address ispexec "VGET (IKJADM) SHARED"

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)...

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