Sample Online Program

Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

Program Painter source:

   NTRY    PSINQY
   /*      BEGIN PROCEDURE DIVISION SOURCE CODE
           IF PF12
              SEND PSMENU
           ELSE-IF PF1
              PSUPDT-EMPLOYEE-NO = PSINQY-EMPLOYEE-NO
              PSUPDT-FUNCTION = '1'
              SEND PSUPDT
           ELSE
              SEND PSINQY
           PERFORM SAMPLE-S-COBOL-PARA
           PERFORM SAMPLE-COBOL-PARA

   PARA    SAMPLE-COBOL-PARA.
           source
   PARA    SAMPLE-S-COBOL-PARA
           source
   STUB    MY-STUB

Generated AMB source:

003700 $TP-ENTRY ("PSINQY", "")                                       
003710     IF TP-TRANSID-INVOKED
003720         PERFORM APS-TRANSID-INV-PARA
003730     ELSE-IF TP-PROGRAM-INVOKED
003740         PERFORM APS-PROGRAM-INV-PARA
003750     ELSE-IF TP-SCREEN-INVOKED
003760         PERFORM APS-SCREEN-INV-PARA
003770     $TP-SEND ( "PSINQY", "")
003780
003790 APS-TRANSID-INV-PARA.
003800     % IF &TP-USER-LEN > 0
003810         MOVE LOW-VALUES TO TP-USERAREA
003820     $SC-CLEAR ( "PSINQY")
003830     EJECT
003840 APS-PROGRAM-INV-PARA.
003850     $SC-CLEAR ( "PSINQY")
003860     EJECT
003870 APS-SCREEN-INV-PARA.
003880     PERFORM APS-USER-CODE-PARA
003890     EJECT
003900 APS-USER-CODE-PARA.
003910 /*  BEGIN PROCEDURE DIVISION SOURCE CODE
003920 IF PF12
003930     $TP-SEND PSMENU
003940 ELSE-IF PF1
003950     PSUPDT-EMPLOYEE-NO = PSINQY-EMPLOYEE-NO
003960     PSUPDT-FUNCTION = '1'
003970     $TP-SEND PSUPDT
003980 ELSE
003990     $TP-SEND PSINQY
004000 PERFORM SAMPLE-COBOL-PARA
004010 PERFORM SAMPLE-S-COBOL-PARA
004020 PERFORM MY-STUB
004030
004040 SAMPLE-COBOL-PARA.
004050     source
004060 SAMPLE S-COBOL-PARA
004070     source
004080 MY-STUB
004090     source

Note: To override the APS-TRANSID-INV-PARA, APS-PROGRAM-INV-PARA, or APS-SCREEN-INV-PARA paragraph, you must also perform it; AMB does not automatically perform it.