MOVE +8 TO RETURN CODE

               GOBACK.

      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

      *

PDF          

*

      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

           STRING Z Creator 

                   DELIMITED BY SIZE INTO WS STRING.

           STRING Z Hello.cbl 

                   DELIMITED BY SIZE INTO WS STRING2.

           CALL "PDSETINF" USING       P,

                                       WS STRING,

                                       WS STRING2,

                                       RC.

           STRING Z Author 

                   DELIMITED BY SIZE INTO WS STRING.

           STRING Z Thomas Merz 

                   DELIMITED BY SIZE INTO WS STRING2.

           CALL "PDSETINF" USING       P,

                                       WS STRING

                                       WS STRING2,

                                       RC.

           STRING Z Title 

                   DELIMITED BY SIZE INTO WS STRING.

           STRING Z Hello, world (COBOL)! 

                   DELIMITED BY SIZE INTO WS STRING2.

           CALL "PDSETINF" USING       P,

                                       WS STRING

                                       WS STRING2,

                                       RC.

      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

      *

*

      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

           CALL "PDBEGPAG" USING       P,

                                       PDFLIB A4 WIDTH,

                                       PDFLIB A4 HEIGHT,

                                       WS NULL,

                                       RC.

      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

      *

*

      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

           MOVE 0 TO WS INT.

           STRING Z Helvetica Bold 

                   DELIMITED BY SIZE INTO WS STRING.

           STRING Z ebcdic 

                   DELIMITED BY SIZE INTO WS STRING2.

           CALL "PDLODFNT" USING       P,

                                       WS STRING

                                       WS INT,

                                       WS STRING2,

                                       WS NULL,

                                       PDFLIB RETURN LONG,

24

2   

:  PDFlib