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 26 matches
MVSFORUMS.com Forum Index
Author Message
  Topic: Dynamic define of size of array in COBOL batch program
dz

Replies: 7
Views: 9535

PostForum: Application Programming   Posted: Mon Jul 09, 2007 12:43 pm   Subject: Dynamic define of size of array in COBOL batch program
Actually, this is possible to do, with caveats. I did something similar in CICS program via GETMAIN, and I'm sure could be done in batch using CEEGTST.
Here is what I did:
1) COBOL OCCURS has to be ...
  Topic: Syncsort Joinkeys
dz

Replies: 10
Views: 15363

PostForum: Utilities   Posted: Thu May 24, 2007 8:50 am   Subject: Syncsort Joinkeys
You can do OUTREC in the same step, after the REFORMAT.
  Topic: S0C1
dz

Replies: 8
Views: 8373

PostForum: Application Programming   Posted: Fri May 04, 2007 8:04 am   Subject: S0C1
Also check if, by accident, you have compiled a batch program with CICS precompiler. This wouls cause S0C1.
  Topic: Usage of IEBGENER
dz

Replies: 7
Views: 3668

PostForum: Job Control Language(JCL)   Posted: Tue Mar 13, 2007 3:54 pm   Subject: Usage of IEBGENER
How about using PRINTDS? I have something like that:

//*- PRE-ALLOCATE A FLAT FILE
//*--------------------------------------------------------
//SPUFALOC EXEC PGM=IEFBR14 ...
  Topic: Override a DD name from a concatenated Dsn's in a Proc
dz

Replies: 8
Views: 5678

PostForum: Job Control Language(JCL)   Posted: Thu Mar 01, 2007 10:01 am   Subject: Override a DD name from a concatenated Dsn's in a Proc
Would coding DSN=NULLFILE for any of targeted DDs allow to essentially DUMMY
out the DD AND allow any subsequent DDs to be processed?
  Topic: Dataset name type : LIBRARY
dz

Replies: 5
Views: 2739

PostForum: Data Management   Posted: Thu Feb 22, 2007 9:41 am   Subject: Dataset name type : LIBRARY
LIBRARY = PDS-E
  Topic: Taking a value to Signed variable
dz

Replies: 5
Views: 2109

PostForum: Application Programming   Posted: Thu Jan 18, 2007 10:37 am   Subject: Taking a value to Signed variable
COBOL has so-called "de-editing" capabilities. Define input fied as edited
(PIC -------.99 ), and move the edited field to a numeric field
(PIC S9(5)V99) before doing anything
  Topic: Attibutes same as sortin
dz

Replies: 4
Views: 1805

PostForum: Job Control Language(JCL)   Posted: Thu Jan 11, 2007 11:02 am   Subject: Attibutes same as sortin
Sorry, I meant DCB:
//SORTOUT DD DCB=*.SORTIN
  Topic: Attibutes same as sortin
dz

Replies: 4
Views: 1805

PostForum: Job Control Language(JCL)   Posted: Thu Jan 11, 2007 10:58 am   Subject: Attibutes same as sortin
This can be done in JCL:
//SORTOUT DD DSB=*.SORTIN
  Topic: DFSORT inlcude generic.
dz

Replies: 3
Views: 1493

PostForum: Utilities   Posted: Thu Jan 11, 2007 10:57 am   Subject: DFSORT inlcude generic.
I know it can be done with SYNCSORT via SS function (assuming 80 is the LRECL):


INCLUDE COND=(1,80,SS,EQ,C'COPY')


The max I believe is 256 bytes
  Topic: Filter records on IF condition using SORT
dz

Replies: 2
Views: 3806

PostForum: Utilities   Posted: Thu Dec 14, 2006 4:43 pm   Subject: Filter records on IF condition using SORT

SORT FIELDS=COPY
INCLUDE COND=((2058,10,EQ,2069,10),AND,(1075,10,LT,2058,10)),
FORMAT=CH
  Topic: Using 'SET' paramaters for JCL OVERRIDES
dz

Replies: 3
Views: 2752

PostForum: Job Control Language(JCL)   Posted: Thu Dec 14, 2006 1:02 pm   Subject: Using 'SET' paramaters for JCL OVERRIDES
If you have Endevor on your system, you can use Endevor-supplied routine
that takes JCL PARM, and writes out to a file:


//STEP002 EXEC PGM=C1PRMGEN,
// ...
  Topic: Reg Sum() Aggregate in CuRsor.
dz

Replies: 2
Views: 1060

PostForum: Database   Posted: Wed Oct 11, 2006 8:16 am   Subject: Reg Sum() Aggregate in CuRsor.
Use a signed field, and either COMP-3 or COMP,
for example: PIC S9(13)V9(2) COMP-3.
  Topic: How to manipulate the numeric edited field from input
dz

Replies: 3
Views: 2022

PostForum: Application Programming   Posted: Mon Oct 09, 2006 9:24 am   Subject: How to manipulate the numeric edited field from input
I believe there is an easier way to do the above. COBOL has so-called "de-editing" capabilities. Just move the edited field
(PIC ZZZZZZZZZZ.99 ) to a numeric field (PIC S9(10)v99 ) before ...
  Topic: SPLIT PDS
dz

Replies: 8
Views: 4209

PostForum: Job Control Language(JCL)   Posted: Wed Oct 04, 2006 3:02 pm   Subject: SPLIT PDS
FileAid Copy option (3.3) contains member name filtering (see "Specify Member Selection Option"):


File-AID ----------------- PDS Processing Options -----------------------------
COMMAN ...
 
Page 1 of 2 Goto page 1, 2  Next
All times are GMT - 5 Hours
Jump to:  


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group