105 Loop

1. 105 Loop DS OH 106 GET TRAN 107 LR R11,R1 108 LA R10,ISRECORD 109 MVC ISKEY,TXKEY 110 PRINT GEN 116 WRITE ECB1, KN, NAMEFILE, ISAMAREA, "S", (R11) 117+ CNOP 0,4 118+ BAL 1,*+30 119+ECB1 DC A(0) 120+ DC BL1"10" 121+ DC BL1"000001000" 122+ DC AL2(0) 123+ DC A(NAMEFILE) 124+ DC A(ISAMAREA) 125+ DC A(0) 126+ DC A(0) 127+ DC AL2(0) 128+ ST R11,20(1,0) 129+ L 15,NAMEFILE+92 130+ BALR 14,15 132 WAIT ECB=ECB1 133+ LA 1,ECB1 134+ LA 0,1(0,0) 135+ SVC 1 132 WAIT ECB=ECB1 133+ LA 1,ECB1 134+ LA 0,1(0,0) 135+ SVC 1 137 CLI ECB1+24,X"00" 138 BE LOOP 139 TM ECB1+24,B"00001100" 140 BNZ HRDWRERR 141 TM ECB1+24,B"00100000" 142 BO NOSPACE 143 TM ECB1+24,B"00000001" 144 BO INVALID 145 B LOOP Exhibit G-1 Assembly Language

2. Logic Type Flowchart Representation Example: Customer listed? NO If the customer is listed in our files Then continue processing Else refer to the program code that details how to add the customer to our records Endif Do While Answer is “Yes” Display the transaction data input screen Store the entered data in transaction file A Ask the user if there is more data Store the user’s response in the variable Answer End Do Post the transaction data to the master file i = 1 For i = 1 to 10 Sum i plus the square root of i Store the sum in the variable Result Add 1 to i End for Display the variable Result ? Add to records If Then Else YES Continue processing Do Loop Get data Store the data in transaction file Ask if more data NO More data? Post ? YES Set i to 1 For Loop Add i + Sq. Rt. of i Result = i Add i + 1 Yes Is i > 10 ? Display Result ? No Exhibit G-2 Sample Program Logic

3. Source code Object code Compiler, interpreter, or assembler Exhibit G-3 Language Translation