MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Search found 131 matches
MVSFORUMS.com Forum Index
Author Message
  Topic: Composite field sort
deepa12

Replies: 11
Views: 996

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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

PostForum: 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 ...
 
Page 1 of 9 Goto page 1, 2, 3, 4, 5, 6, 7, 8, 9  Next
All times are GMT - 5 Hours
Jump to:  


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group