Author |
Message |
Topic: Dynamic define of size of array in COBOL batch program |
dz
Replies: 7
Views: 9535
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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
|
Forum: 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 ... |
|