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

Hi Frederico, I agree with you; If I move spaces to customer-rec after every write the problem will be fixed. However I want to understand why this is happening. This is how the records look now STARTRECORD RDOFFER OFFBALCUSTREC 000000080 10001703004 812978119074...

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 PAPADBA, When runniing this with the non-existent PROGB, what value is in "rtkd" in outPROGB? I am not sure what you meant to ask here, how will the rtkd in outPROGB be set if the PROGB itself is not written. If you are trying to cross check that there is another Load in the library by name...

Hi Marc, First of all, yes my code does handle the return codes as you suggested: Call PROGB using inPROGB outPROGB on exception move 'Fejl - Call PROGB' to logLocation string 'Program ' PROGB ' not...

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

Yes i know that. Because of some other constraints I need a call from Rexx to do this.

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

Hi Frank, Thanks for the reply. One more query, is there any way I can execute a Rexx in Foreground, which does a lot of processing without locking the user screen. Or teh only way to do that is to submit the Exec in JCL mode?

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

[Code] "LISTC ENTRIES('TTOI.RAWATR.EXEC*')" [/Cde] Hi Frank, That should give me only TTOI.RAWATR.EXEC According to the logic of 3.4 Panel, or am i Making some basic mistake here?

I have the following Datasets:- TTOI.RAWATR.EXEC TTOI.RAWATR.EXEC.BKP TTOI.RAWATR.EXEC.BKUP TTOI.RAWATR.EXEC.FUNC If I Do write:- ADDRESS TSO "LISTC ENTRIES('TTOI.RAWATR.EXEC.*')" or ADDRESS TSO "LISTC...

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