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 derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
ICETOOL: DIsplay Sectional report
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...- rajesh082
- Thread
- Replies: 1
- Forum: COBOL General discussion
-
Updating of Trailer
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)...- rajesh082
- Thread
- Replies: 1
- Forum: COBOL General discussion
-
DFSORT - SELECT Operator FIRST
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...- rajesh082
- Thread
- Replies: 2
- Forum: COBOL General discussion
-
COBOL Header Problem
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...- rajesh082
- Post #4
- Forum: COBOL General discussion
-
COBOL Header Problem
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...- rajesh082
- Thread
- Replies: 5
- Forum: COBOL General discussion
-
ON CALL exception
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...- rajesh082
- Post #5
- Forum: COBOL General discussion
-
ON CALL exception
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...- rajesh082
- Post #3
- Forum: COBOL General discussion
-
ON CALL exception
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...- rajesh082
- Thread
- Replies: 9
- Forum: COBOL General discussion
-
OPC-Rexx Programing Interface
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...- rajesh082
- Thread
- Replies: 0
- Forum: Tivoli/IBM: TME10
-
Rexx interface to read OPC
Yes i know that. Because of some other constraints I need a call from Rexx to do this. -
Rexx interface to read OPC
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 -
SDF II Query
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... -
DB2 in Rexx
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... -
Running an Exec in Forground & background
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? -
Running an Exec in Forground & background
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... -
Running an internal function in Batch mode
Hi All, Function A Address ISPEXEC "LMDINIT LISTID(LISTID) LEVEL("SrchPDS")" If rc > 0 then return 0 Do Forever... -
Trapping keys in Rexx
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... -
Calling LISTC function
[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? -
Calling LISTC function
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... -
Queryenq on Members
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 =...
