To begin the Procedure Division for online programs

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

Type NTRY keyword in columns 4 through 7

Type its arguments, such as the program screen, in column 12. NTRY generates logic to initialize your program when invoked, and to send the screen to the monitor. For example:

   NTRY    PSINQY

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.