Author |
Message |
Topic: Composite field sort |
deepa12
Replies: 11
Views: 996
|
Forum: Utilities Posted: Sun Jan 21, 2024 11:06 pm Subject: Composite field sort |
Thank you. Since this is for a specific shop floor i will think thru these aspects & discuss with my team |
Topic: Composite field sort |
deepa12
Replies: 11
Views: 996
|
Forum: Utilities Posted: Sun Jan 21, 2024 12:14 am Subject: Composite field sort |
Here i have provided the partial code snippet. i have not provided the data structures for binary and packed decimal since they are not yet tested but it is similar to zoned decimal i initially copy t ... |
Topic: Composite field sort |
deepa12
Replies: 11
Views: 996
|
Forum: Utilities Posted: Sat Jan 20, 2024 4:10 am Subject: Composite field sort |
need to develop a generic sort algorithm in Cobol to sort records based on any field for say maximum of 100 records
so am using SORT verb of Cobol in the sort module So i wanted to check if individua ... |
Topic: Composite field sort |
deepa12
Replies: 11
Views: 996
|
Forum: Utilities Posted: Fri Jan 19, 2024 12:07 am Subject: Composite field sort |
Thank you for the explanation
Yes the SORT CARD IN SORT1 STEP should have been
SORT FIELDS=(361,4,BI,A,114,8,ZD,A)
It is my mistake
In the STEP0100 since the composite sort is as below ... |
Topic: Composite field sort |
deepa12
Replies: 11
Views: 996
|
Forum: Utilities Posted: Wed Jan 17, 2024 11:28 pm Subject: Composite field sort |
Apologies i will surely avoid RE. in the title. It was honestly not intentional.
Kindly reply |
Topic: Composite field sort |
deepa12
Replies: 11
Views: 996
|
Forum: Utilities Posted: Wed Jan 17, 2024 10:12 am Subject: Composite field sort |
Consider the following code
//BBBBSPR1 JOB 6,'CICS COBOL',NOTIFY=BBBB,CLASS=2,MSGCLASS=Y
//* 114,8 SUPPLIER ID
//* BOH-SELECTION-PR S9 ... |
Topic: Messages from IDCAMS- REPRO in REXX |
deepa12
Replies: 12
Views: 9982
|
Forum: Application Programming Posted: Mon Oct 01, 2018 5:04 am Subject: Messages from IDCAMS- REPRO in REXX |
I have allocated RECFM=FBA ;LRECL=121
The following appear on screen
0
0
NUMBER OF RECORDS PROCESSED WAS 0
LASTCC=12 ... |
Topic: Messages from IDCAMS- REPRO in REXX |
deepa12
Replies: 12
Views: 9982
|
Forum: Application Programming Posted: Sun Sep 30, 2018 11:48 pm Subject: Messages from IDCAMS- REPRO in REXX |
I already allocated SYSPRINT, SYSTSPRT and tried. They were empty.
And i have presented the same once again
The SYSPRINT, SYSTSPRT datasets have been allocated as FB 133 . They are empty. It s ... |
Topic: EXCLUSIVE LOCK for ISPF Table |
deepa12
Replies: 3
Views: 2657
|
Forum: Application Programming Posted: Fri Sep 28, 2018 6:33 am Subject: EXCLUSIVE LOCK for ISPF Table |
By googling in the same manner i tried the following code:
a.
DUMMY = OUTTRAP(LINE.) ... |
Topic: Messages from IDCAMS- REPRO in REXX |
deepa12
Replies: 12
Views: 9982
|
Forum: Application Programming Posted: Fri Sep 28, 2018 4:00 am Subject: Messages from IDCAMS- REPRO in REXX |
I just specified the test scenario and wanted to understand how to trap this specific message in REXX so that in the REXX program i would specifically check for this message (IDC3006I FUNCTION TERMINA ... |
Topic: Messages from IDCAMS- REPRO in REXX |
deepa12
Replies: 12
Views: 9982
|
Forum: Application Programming Posted: Fri Sep 28, 2018 2:17 am Subject: Messages from IDCAMS- REPRO in REXX |
Am testing for the condition that the key does not exist and also that it is beyond the last key in the file.
If i provide a key that does not exist and is a key in between 2 keys which are already ... |
Topic: EXCLUSIVE LOCK for ISPF Table |
deepa12
Replies: 3
Views: 2657
|
Forum: Application Programming Posted: Fri Sep 28, 2018 1:34 am Subject: EXCLUSIVE LOCK for ISPF Table |
Please consider the following code in REXX
/**REXX**/
STAT=MSG('OFF')
... |
Topic: Messages from IDCAMS- REPRO in REXX |
deepa12
Replies: 12
Views: 9982
|
Forum: Application Programming Posted: Fri Sep 28, 2018 1:03 am Subject: Messages from IDCAMS- REPRO in REXX |
Kindly refer to the JCL code for IDCAMS REPRO. When i provide search condition as a key beyond the last record in file, IDCAMS prints the following message in SYSPRINT
REPRO IFILE(DD1IN) OFILE(DD ... |
Topic: prevent simultaneous access to an online ISPF application |
deepa12
Replies: 5
Views: 2535
|
Forum: Application Programming Posted: Wed Sep 19, 2018 1:31 am Subject: prevent simultaneous access to an online ISPF application |
I have an online application using ISPF, REXX, VSAM. It has to be restricted in such a way that only 1 user can access at the same time
So I need to build a logic to detect this
Is it possible ... |
Topic: VSAM record delete using insync from REXX |
deepa12
Replies: 8
Views: 4836
|
Forum: Utilities Posted: Fri Sep 07, 2018 2:30 am Subject: VSAM record delete using insync from REXX |
1. Thanks a lot. Its working now.
I made some changes & hence reproducing the code. It is throwing STATS,LOG,PRINT DATASET contents on screen since it is allocated as DA(*)
I tried changing ... |
|