RC.

           MOVE PDFLIB RETURN LONG     TO  WS FONT.

           MOVE 24 TO WS FLOAT.

           CALL "PDSETFNT" USING       P,

                                       WS FONT,

                                       WS FLOAT,

                                       RC.

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

      *

PDF                              

*

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

           MOVE 50 TO WS FLOAT.

           MOVE 700 TO WS FLOAT2.

           CALL "PDSETTP" USING        P,

                                       WS FLOAT,

                                       WS FLOAT2,

                                       RC.

           STRING Z Hello, World! 

                   DELIMITED BY SIZE INTO WS STRING.

           CALL "PDSHOW" USING         P,

                                       WS STRING,

                                       RC.

           STRING Z (says COBOL) 

                   DELIMITED BY SIZE INTO WS STRING.

           CALL "PDCONT" USING         P,

                                       WS STRING,

                                       RC.

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

      *

*

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

           CALL "PDENDPAG" USING       P,

                                       WS NULL,

                                       RC.

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

      *

PDF          

*

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

           CALL "PDENDDOC" USING       P,

                                       WS NULL,

                                       RC.

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

      *

PDF                  

*

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

           CALL "PDDELETE" USING       P,

                                       RC.

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

      *

*

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

           MOVE ZERO                   TO RETURN CODE.

           GOBACK.

       END PROGRAM HELLO.

2.2  Cobol                  

25