Home > Archive > Cobol > March 2006 > Print Labels using PowerForm/PowerCobol 7.0
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Print Labels using PowerForm/PowerCobol 7.0
|
|
| Daniel 2006-03-28, 6:55 pm |
| Hi, When i'm trying write a Form with PwerCobol I have the following
problem:
Error 9024 during debug of project
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PRINT-FILE ASSIGN TO PRTFILE
FORMAT IS DEFINITION-NAME
GROUP IS GROUP-NAME.
DATA DIVISION.
FILE SECTION.
FD PRINT-FILE.
* Record format defined by PowerFORM
COPY Daniel OF XMDLIB.
WORKING-STORAGE SECTION.
01 DEFINITION-NAME PIC X(8).
01 GROUP-NAME PIC X(8).
01 INPUT-DATA-AREA.
03 ECLIENTNAME PIC X(10).
03 EADDRESS01 PIC X(10).
PROCEDURE DIVISION.
MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
MOVE POW-FALSE TO "Enabled" OF POW-SELF
OPEN OUTPUT PRINT-FILE.
MOVE "Daniel" TO DEFINITION-NAME.
MOVE "BODY" TO GROUP-NAME.
MOVE "Text" OF CM1 TO ECLIENTNAME.
MOVE "Text" OF CM11 TO EADDRESS01.
MOVE ECLIENTNAME TO campo(1).
MOVE EADDRESS01 TO campo1(1).
WRITE Daniel.
CLOSE PRINT-FILE.
MOVE POW-TRUE TO "Enabled" OF POW-SELF.
MOVE POW-MP-DEFAULT TO "MousePointer" OF POW-SELF.
Form :
Daniel.pmd
BODY
Campo X
Campo X
I know that this error occurs because nao I am identifies the name of
the group, but to the best of my knowledge and belief is the BODY, in
this case. Friends necessary of a light, therefore this me seems
simple.
| |
| HeyBub 2006-03-28, 6:55 pm |
| Daniel wrote:
> Hi, When i'm trying write a Form with PwerCobol I have the following
> problem:
> Error 9024 during debug of project
>
> ENVIRONMENT DIVISION.
> INPUT-OUTPUT SECTION.
> FILE-CONTROL.
> SELECT PRINT-FILE ASSIGN TO PRTFILE
> FORMAT IS DEFINITION-NAME
> GROUP IS GROUP-NAME.
>
> DATA DIVISION.
> FILE SECTION.
> FD PRINT-FILE.
> * Record format defined by PowerFORM
> COPY Daniel OF XMDLIB.
> WORKING-STORAGE SECTION.
> 01 DEFINITION-NAME PIC X(8).
> 01 GROUP-NAME PIC X(8).
> 01 INPUT-DATA-AREA.
> 03 ECLIENTNAME PIC X(10).
> 03 EADDRESS01 PIC X(10).
>
> PROCEDURE DIVISION.
> MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
> MOVE POW-FALSE TO "Enabled" OF POW-SELF
>
> OPEN OUTPUT PRINT-FILE.
>
> MOVE "Daniel" TO DEFINITION-NAME.
> MOVE "BODY" TO GROUP-NAME.
>
> MOVE "Text" OF CM1 TO ECLIENTNAME.
> MOVE "Text" OF CM11 TO EADDRESS01.
>
> MOVE ECLIENTNAME TO campo(1).
> MOVE EADDRESS01 TO campo1(1).
> WRITE Daniel.
>
> CLOSE PRINT-FILE.
> MOVE POW-TRUE TO "Enabled" OF POW-SELF.
> MOVE POW-MP-DEFAULT TO "MousePointer" OF POW-SELF.
>
> Form :
>
> Daniel.pmd
> BODY
> Campo X
> Campo X
>
> I know that this error occurs because nao I am identifies the name of
> the group, but to the best of my knowledge and belief is the BODY, in
> this case. Friends necessary of a light, therefore this me seems
> simple.
What you're doing seems correct. Therefore, make sure all the names in use
("Daniel" etc.) are consistent between PowerForm and your program. I
recommend UPPER-CASE, too.
| |
|
| A 9024 is a incorrect PRT-GROUP.
Be sure your POWERFORM group name is "BODY".
JIH
www.pcpayroll.net
"Daniel" <dafmarques@gmail.com> wrote in message
news:1143544840.970530.311980@i39g2000cwa.googlegroups.com...
> Hi, When i'm trying write a Form with PwerCobol I have the following
> problem:
> Error 9024 during debug of project
>
> ENVIRONMENT DIVISION.
> INPUT-OUTPUT SECTION.
> FILE-CONTROL.
> SELECT PRINT-FILE ASSIGN TO PRTFILE
> FORMAT IS DEFINITION-NAME
> GROUP IS GROUP-NAME.
>
> DATA DIVISION.
> FILE SECTION.
> FD PRINT-FILE.
> * Record format defined by PowerFORM
> COPY Daniel OF XMDLIB.
> WORKING-STORAGE SECTION.
> 01 DEFINITION-NAME PIC X(8).
> 01 GROUP-NAME PIC X(8).
> 01 INPUT-DATA-AREA.
> 03 ECLIENTNAME PIC X(10).
> 03 EADDRESS01 PIC X(10).
>
> PROCEDURE DIVISION.
> MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
> MOVE POW-FALSE TO "Enabled" OF POW-SELF
>
> OPEN OUTPUT PRINT-FILE.
>
> MOVE "Daniel" TO DEFINITION-NAME.
> MOVE "BODY" TO GROUP-NAME.
>
> MOVE "Text" OF CM1 TO ECLIENTNAME.
> MOVE "Text" OF CM11 TO EADDRESS01.
>
> MOVE ECLIENTNAME TO campo(1).
> MOVE EADDRESS01 TO campo1(1).
> WRITE Daniel.
>
> CLOSE PRINT-FILE.
> MOVE POW-TRUE TO "Enabled" OF POW-SELF.
> MOVE POW-MP-DEFAULT TO "MousePointer" OF POW-SELF.
>
> Form :
>
> Daniel.pmd
> BODY
> Campo X
> Campo X
>
> I know that this error occurs because nao I am identifies the name of
> the group, but to the best of my knowledge and belief is the BODY, in
> this case. Friends necessary of a light, therefore this me seems
> simple.
>
| |
| Daniel 2006-03-29, 6:55 pm |
| Thank you, for answering, I made the same changes in projet, but not
solution the error.
I sending e-mail for you with the project and form, that using.
Please, analyze this project.
Regards..
Daniel
HeyBub wrote:
> Daniel wrote:
>
> What you're doing seems correct. Therefore, make sure all the names in use
> ("Daniel" etc.) are consistent between PowerForm and your program. I
> recommend UPPER-CASE, too.
|
|
|
|
|