| View previous topic :: View next topic |
| Author |
Message |
ssd
Beginner
Joined: 24 Mar 2006
Posts: 25
Topics: 10
|
|
| Back to top |
|
 |
semigeezer
Supermod
Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
|
 Posted: Tue Aug 15, 2006 1:54 am Post subject: |
 |
|
| What does "I am not able to" mean? Do you get compile errors? Runtime error messages? Error codes? Abends? Incorrect output? Security violations? Hangs? What research have you done to rule out causes of the problems you see? Without some basic information, no one is going to be able to help you "asap" or otherwise. |
|
| Back to top |
|
|
ssd
Beginner
Joined: 24 Mar 2006
Posts: 25
Topics: 10
|
| Posted: Tue Aug 15, 2006 2:06 am Post subject: |
|
|
hi,
Following is the section of program that i have coded.
| Code: |
01 WS-COMMAND-CNT PIC S9(04) COMP VALUE 1.
01 WS-BPXWDYN-PARMS.
05 WS-BPXWDYN-LEN PIC S9(4) COMP.
05 WS-BPXWDYN-CMD PIC X(500).
STRING 'ALLOC' DELIMITED BY SIZE
' DA(' DELIMITED BY SIZE
WS-DSNAME DELIMITED BY SPACES
')' DELIMITED BY SIZE
' FI(OUTFVAR)' DELIMITED BY SIZE
' MSG(WTP)' DELIMITED BY SIZE
' NEW' DELIMITED BY SIZE
' CATALOG' DELIMITED BY SIZE
' DATACLAS(CTSDASD)' DELIMITED BY SIZE
' STORCLAS(' DELIMITED BY SIZE
WS-STORCLASS DELIMITED BY SPACES
')' DELIMITED BY SIZE
' CYL' DELIMITED BY SIZE
' SPACE(1,5)' DELIMITED BY SIZE
' LRECL(32112)' DELIMITED BY SIZE
' UNIT(SYSDA)' DELIMITED BY SIZE
' RECFM(V,B)' DELIMITED BY SIZE
' DSORG(PS)' DELIMITED BY SIZE
' RELEASE' DELIMITED BY SIZE
INTO WS-BPXWDYN-CMD
POINTER WS-COMMAND-CNT END-STRING.
MOVE WS-COMMAND-CNT TO WS-BPXWDYN-LEN
DISPLAY ' '
DISPLAY WS-BPXWDYN-PARMS
DISPLAY ' '
DISPLAY '*** BPXWDYN COMMAND LEN = ' WS-COMMAND-CNT
CALL WS-BPXWDYN-PGMID USING WS-BPXWDYN-CMD
RETURNING WS-BPXWDYN-RC
END-CALL.
|
the above code works perfectly fine.
BUT,
In the call statement if I use WS-BPXWDYN-PARMS (group variable)instead of WS-BPXWDYN-CMD (character variable) then I am encountering KEY ERROR which is one type of error that BPXWDYN generates.
The key error value that I obtain in the WS-BPXWDYN-RC fiels is
-35 which means the 15th keyword has the error. But as I said before the ALLOC keywords are all fine.
Pls let me know if you need more information.
SSD |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12370
Topics: 75
Location: San Jose
|
| Posted: Tue Aug 15, 2006 8:37 am Post subject: |
|
|
ssd,
Add this line before the STRING statement and your job should run fine with the WS-BPXWDYN-PARMS
| Code: |
INITIALIZE WS-BPXWDYN-PARMS
|
Also make sure that your SELECT and FD statement match your File attributes
| Code: |
FILE-CONTROL.
SELECT OUT-FILE
ASSIGN TO OUTFVAR
ORGANIZATION IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD OUT-FILE
RECORDING MODE IS V
LABEL RECORDS ARE STANDARD
BLOCK CONTAINS 0 RECORDS
DATA RECORD IS OUT-REC.
01 OUT-REC PIC X(32112).
|
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
ssd
Beginner
Joined: 24 Mar 2006
Posts: 25
Topics: 10
|
| Posted: Wed Aug 16, 2006 12:55 am Post subject: |
|
|
Thanks Kolusu,
INITIALIZE WS-BPXWDYN-PARMS
is working perfectly fine.
Can you tell me the reason why BPXWDYN accepts
either a string or a group variable (containing a length and the string) ?
SSD |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12370
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
ssd
Beginner
Joined: 24 Mar 2006
Posts: 25
Topics: 10
|
| Posted: Thu Aug 17, 2006 3:36 am Post subject: |
|
|
Hi,
Thanks for the helpful reply.
One more difficulty that I am experiencing is regarding the space allocation specification to the BPXWDYN .
The BPXWDYN module doesnot allow the use of AVGREC ..
can you suggest a solution for this problem ?
SSD |
|
| Back to top |
|
|
ssd
Beginner
Joined: 24 Mar 2006
Posts: 25
Topics: 10
|
| Posted: Wed Aug 30, 2006 1:51 am Post subject: |
|
|
| Can any one tell me how to use AVGREC parameter with BPXWDYN allocation module ? |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12370
Topics: 75
Location: San Jose
|
| Posted: Wed Aug 30, 2006 7:24 am Post subject: |
|
|
| Quote: |
Can any one tell me how to use AVGREC parameter with BPXWDYN allocation module ?
|
SSD,
BPXWDYN does NOT support AVGREC parameter. It ONLY supports allocation in Cylinders, Tracks and Blocks.
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
ssd
Beginner
Joined: 24 Mar 2006
Posts: 25
Topics: 10
|
| Posted: Wed Aug 30, 2006 9:22 am Post subject: |
|
|
Thanks Kolusu.
Then I think the only way by which I can use the AVGREC parameter is by using the TSO ALLOCATE command
SSD |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
