Search results for query: *

Hi, I have 5 files with different currency codes at different places. My requirement is to print a report to display the count of different currency codes in files sectioned on files. So File1: XXXXGBPXXX XXXXGBPXX1 XXXXEURXXX File2: EURXXXXXXXXXXXX Output File1 GBP 2 EUR 1 File2 EUR 1...

Hello, I am trying to update the trailer record with the correct count. //TOOLIN DD * COPY FROM(SORTOUT3) TO(SORTOUT) USING(CTL1) //CTL1CNTL DD * SORT FIELDS=(1,11,CH,A)...

Hi, It's a long time I have written anything using the DFSORT and I am a little rusty. My requirement is to get all the first occurences of duplicate records plus the single records. In addition to this, I have to modify a flag for the duplicate records. Input File: Key Flag Balance...

Hello, I am writing some records in a file. The file is declared as follows: input-output section. file-control. select CUSTFILE assign to CUSTFILE organization is sequential file status is ws-cust-status. data...

Hi, First of all, let me admit that its been a long time since I have written a plain COBOL call. However I still do remember the syntax and everything, so when this happened it really puzzled me. I have written a new COBOL Batch Module, lets say PROGA PROGA is calling PROGB as follows...

Hi all, I am not sure if this is the right forum to ask my Query. Is there anyway I can read the current OPC plan & job status (run time) through Rexx? Is there any routine to interface the 5.2. I want to know the list of failed jobs in OPC at run time. Is this possible? I tried to go...

Hi All, Is there anyway I can read the current OPC plan & job status (run time) hrough Rexx? Is there any routine to interface the 2. I want to know the list of failed jobs in OPC at run time. Is this possible? Any pointers, examples or help would be greatly appreciated. Thanks, Rajesh

Hi, This is not exactly a Rexx Query, its more related to ISPF panels development. I am using SDF II to develop a panel having a scrollable area. I defined the Scrollable Area in 'Define Fields' Screen witha proper mark. When I see the generated panel, It has the area name in .ZVARS Init...

I am trying to run some SQL's using Rexx. I want to run some dynamic SQL's in a Rexx code. I do know how to run Static SQL's using DSNREXX. Can somebody tell me how to run Dynamic SQL's using DSNREXX. call rxsubcom 'add', 'ostsql', 'rxtasql2' say 'RXSUBCOM RC='rc 'REASON='reason...

I read something about SYSVAR today. Following is an excrept of what i read:- "SYSENV indicates whether the exec is running in the foreground or background. SYSENV returns the following values...

Hi All, Function A Address ISPEXEC "LMDINIT LISTID(LISTID) LEVEL("SrchPDS")" If rc > 0 then return 0 Do Forever...

Is there any routine to capture Keys in a running Rexx Routine. My requirement is something like.... I am searching for a member in a list of given PDS'es. For this I put the code in a Loop. I want the code to leave the loop if I press F4. Is there any function which traps the keys in ISPF...

Has anybody used QueryENQ? My requirement is to find which all members of a particular PDS are opened in Edit Mode. I am using the following Code for this:- 000001 Trace All 000002 000003 Var1 =...

On issuing this code:- CTELOG = 'TTZY.LOG' parse value listc(CTELOG) with rc dsncount I am getting the following message:- System abend code 66D, reason code 00000002. Abend in external function LISTC. IEA995I...

Can somebody give me the link for developing ISPF screens using SDF2. I know the basics, but I am having some problems with the static Data. For eg, I want to define a line on which something can be written, Something like Command line, which doesnt get erased if something is written on top of...

Hi All, I have a small requirement... I am writing lot of Members in a PDS with some basic fields in Batch mode. Now on a future run I want to check how many members of this PDS have been edited. I tried using LISTDSI SYSUPDATED, but this is giving me Yes for all the members, even for the...

Hi I am submitting a Rexx Via a JCL using the following code:- QUEUE " ISPSTART CMD(READFILE "HLQ"."USERID()".JMRSRCH "LOGPDS"" QUEUE " "ENVI")" The Read file is the Rexx exec name. & the rest are parameters. Since ENVI is not coming on the same line, I have queued it on the...

Rem. = 0 Do i=1 to 3 Pull Var1 rem.i = Var1 End Say rem.0 Do i = 1 to rem.0 Say rem.i Say rem.0 End The out put is 3 & 0 Is it true that the Stem's 0th variable doesnt get set automatically. Is there any...

My JCl:- //TTOIRH09 JOB 0,CLASS=N,MSGCLASS=0,NOTIFY=USER //IRXJCL EXEC PGM=IRXJCL,PARM='TEST3' //SYSEXEC DD DSN=TTOI.RAWATR.EXEC,DISP=SHR //INP DD DUMMY //OUT DD DUMMY //SYSOUT DD DUMMY...

I have to write something in a member. The records are not predefined. I want the member to look like this:- Date = Var1 Userid = Var2 Error = Var3 The variables here are populated at run time inside the program. How can I do this? Can I use Edit macros for this.