***********************************************************************<br />* BA200<br />* INITIALIZE SCREEN FIELD ATTRIBUTES<br />*<br />***********************************************************************<br />BA200-INIT-ATTRIBUTES.<br />IF (MAINT-FUNCTION)<br />GO TO BA210-MAINT-SCREEN.<br />BA205-LOCAT-SCREEN.<br />MOVE SPACES TO MSK652-SCOMPL<br />FATAL-ERR.<br />MOVE ATSADRNF TO MSK652-SLISTA.<br />MOVE ATSADHNF TO MSK652-SCOMPLA<br />MSK652-SHDGA<br />MSK652-SERRMSGA.<br />MOVE ATUADRNM TO MSK652-SKEYA<br />MSK652-SFUNCTA.<br />MOVE SPACES TO MSK652-SKEYE<br />MSK652-SCOMPLE<br />MSK652-SERRMSGE.<br />IF (SCN-FUNCTION) OR (FND-FUNCTION)<br />OR (TWA-MSK-PF13-HIT)<br />MOVE ATUADHNM TO MSK652-SDOTMSKA<br />ELSE<br />MOVE ATSANRNF TO MSK652-SDOTMSKA.<br />IF (FND-FUNCTION)<br />MOVE ATSADRNF TO MSK652-SSARGLTA<br />MOVE ATUADHNF TO MSK652-SSEARCHA<br />ELSE<br />MOVE ATSANRNF TO MSK652-SSARGLTA<br />MSK652-SSEARCHA.<br />MOVE ATSADHNF TO MSK652-SHDGA.<br />MOVE HDG-LINE TO MSK652-SHDG.<br />MOVE SPACES TO MSK652-SLIST.<br />MOVE NOT-FOUND-MSG TO MSK652-SLINE (1).<br />GO TO BA299-EXIT.<br />BA210-MAINT-SCREEN.<br />IF (SEE-FUNCTION)<br />MOVE FOUR TO TWA-MSK-CUR-AD-OT<br />ELSE<br />MOVE STD-CUR-AD-OT TO TWA-MSK-CUR-AD-OT.<br />IF TWA-DB-RETURN-CODE EQUAL GA-LIT<br />MOVE SPACES TO TWA-DB-RETURN-CODE<br />ELSE<br />MOVE SPACES TO SCOMPL.<br />MOVE SPACES TO SERRMSG<br />SFUNCTE<br />SKEYE<br />SCOMPLE<br />SERRMSGE.<br />MOVE ATPADHNF TO SCOMPLA<br />SERRMSGA.<br />MOVE ATUADRNM TO SKEYA<br />SFUNCTA.<br />MOVE ATSADRNF<br />TO SYSDATEA.<br />MOVE ATSADRNF<br />TO SYSTIMEA.<br />MOVE ATSADRNF<br />TO SEMPNUMA.<br />MOVE ATSADRNF<br />TO SFIRSTA.<br />MOVE ATSADRNF<br />TO SLAST-NA.<br />MOVE ATUADRNF<br />TO SDATE-HA.<br />MOVE ATUADRNF<br />TO SEARNEDA.<br />MOVE ATUADRNF<br />TO STAKENA.<br />MOVE ATUADRNF<br />TO SEARN07A.<br />MOVE ATUADRNF<br />TO STAKE08A.<br />MOVE ATUADRNF<br />TO SEARN09A.<br />MOVE ATUADRNF<br />TO STAKE10A.<br />MOVE ATUADRNF<br />TO SCOMMENA (001).<br />MOVE ATUADRNF<br />TO SCOMMENA (002).<br />MOVE ATUADRNF<br />TO SCOMMENA (003).<br />* * * DEFAULT ALGORITHM %INITATB STARTS HERE<br />* * * NO STANDARD DEFAULT CODE FOR THIS INSERTION POINT<br />* * * DEFAULT ALGORITHM %INITATB ENDS HERE<br />BA299-EXIT.<br />EXIT.<br />```** <br />The BA200 routine sets all the screen field Atrributes to their initial values. The initial values are the ones the (cont.)<br />Developer specified when he/she painted the Mask (via Automatic Screen Painting or MSKDEF). This routine is performed (cont.)<br />for the Browse as well as the Maintenance Functions but the insertion point named %INITATB only allows you to add (cont.)<br />Customization logic for the Maintenance Functions.<br />| ```<br />**<br />****************************************************************<br />* BA300 NORMALIZE BROWSE KEY(S) *<br />****************************************************************<br />* * * DEFAULT ALGORITHM %NKLOC STARTS HERE<br />BA300-NORMALIZE-KEY.<br />- - - - This routine suppressed - You should never touch it - - -<br />BA399-EXIT.<br />EXIT.<br />* * * DEFAULT ALGORITHM %NKLOC ENDS HERE<br />****************************************************************<br />* BA400 NORMALIZE MAINT KEY *<br />****************************************************************<br />BA400-NORMALIZE-MAINT-KEY.<br />- - - - This routine suppressed - You should never touch it - - -<br />* * * DEFAULT ALGORITHM %NORMKEY STARTS HERE<br />* * * NO STANDARD DEFAULT CODE FOR THIS INSERTION POINT<br />* * * DEFAULT ALGORITHM %NORMKEY ENDS HERE<br />MOVE FILE-KEY TO NORMALIZED-KEY.<br />GO TO BA499-EXIT.<br />- - - - This routine suppressed - You should never touch it - - -<br />BA499-EXIT.<br />EXIT.<br />```** <br />The Normalize Key routines are performed from the Mainlines at the appropriate times. There are two insertion points, (cont.)<br />%NKLOC and %NORMKEY provided. If you wished to write your own Normalize Key logic for the Browse Functions then you (cont.)<br />could use %NKLOC to replace the entire routine. It is not likely that you will often want to do that. The %NORMKEY (cont.)<br />insertion point is positioned immediately before the Maintenance Normalize Key routine moves the key value from (cont.)<br />FILE-KEY to NORMALIZED-KEY and then exits.<br />FILE-KEY contains the completely formatted key, ready to use for reading the file. You might want to insert some of (cont.)<br />your own additional editing here to be sure the key value is within certain ranges, etc.. If there were any errors (cont.)<br />found in the key value entered then your Customization in %NORMKEY will not be executed since the routine will exit (cont.)<br />immediately with the error flag set. Remember, you have an opportunity to intercept the key value before it gets to the (cont.)<br />Normalize Key routine at the %PFKEYM and %PFKEYL insertion points.<br />| ```<br />**<br />****************************************************************<br />* BA500 CHECK FILE STATUS (FSTAT) - *<br />* VERIFY THAT A FILE IS OPEN BEFORE ISSUING A *<br />* READ OR LOCATE, AND RETURN AN ERROR MESSAGE *<br />* IN SCOMPL IF THE FILE IS NOT OPEN. *<br />****************************************************************<br />BA500-CHECK-FSTAT.<br />MOVE FSTAT TO TWA-DB-CMD.<br />MOVE THIS-PGMS-ELEMENTS TO TWA-ELT-LIST.<br />CALL 'MAGECSET' USING TWA-DB-AREA-A<br />VAC01-ELEMENT<br />PERFORM AA840-CALL-MAGEC-IO THRU AA899-EXIT.<br />IF (FILE-CLOSED)<br />MOVE TWA-DB-KEY-NAME TO FILE-CLOSED-NAME<br />MOVE FILE-CLOSED-MSG TO SCOMPL<br />MOVE SPACE TO TWA-LAST-FUNCT.<br />BA599-EXIT. EXIT.<br />```** <br />The BA500 routine is performed from the browse and maintenance mainlines to test whether the file is available and open. The FSTAT command tests File Status.<br />| ```<br />**<br />****************************************************************<br />* BB100 *<br />* CLEAR ALL UNPROTECTED FIELDS TO BLANKS OR DEFAULT VALUE *<br />* EXCEPT SKEY AND SFUNCT *<br />* *<br />****************************************************************<br />BB100-BLANK-SCREEN.<br />MOVE ALL '_' TO UNDERSCORE<br />SDATE-H<br />SEARNED<br />STAKEN<br />SEARN07<br />STAKE08<br />SEARN09<br />STAKE10<br />SCOMMEN (001)<br />SCOMMEN (002)<br />SCOMMEN (003).<br />MOVE SPACE TO SPACE-CHR<br />SYSDATE<br />SEMPNUM<br />SYSTIME<br />SFIRST<br />SLAST-N.<br />IF (ADD-FUNCTION) AND (SCOMPL = SPACES)<br />MOVE ENTER-DATA-TO-ADD TO SCOMPL.<br />* * * DEFAULT ALGORITHM %BLNKSCR STARTS HERE<br />* * * NO STANDARD DEFAULT CODE FOR THIS INSERTION POINT<br />* * * DEFAULT ALGORITHM %BLNKSCR ENDS HERE<br />SKIP2<br />BB199-EXIT.<br />EXIT.<br />```** <br />The BB100 routine initializes all the Unprotected (Enterable) fields on the screen to Underscores. It is performed in (cont.)<br />the New Transaction phase of the ADD Function and when the MMP gets a NOT-FOUND return code for the key value entered (cont.)<br />by the Operator.<br />The %BLNKSCR insertion point is provided so that you might initialize some of your screen fields other than with the default Underscores.<br />| ```<br />**<br />****************************************************************<br />* BB200 *<br />* MOVE APPROPRIATE DATA FIELDS FROM RECORD TO SCREEN *<br />* *<br />****************************************************************<br />BB200-FILL-SCREEN.<br />MOVE TWA-IPL-DATE-MM<br />TO SYSDATE-MM.<br />MOVE SLASH<br /><br />next: genmmp20.md.txt