Previous Topic Next topic Print topic


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.
  1. Type NTRY keyword in columns 4 through 7
  2. 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.
    
Previous Topic Next topic Print topic