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.
