Print Labels using PowerForm/PowerCobol 7.0

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 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.
>

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.