*DECK S$GNLG2 
          IDENT  S$GNLG2
          TITLE  S$GNLG2  - GENERATE LONG CODE PART 2 
          COMMENT  GENERATE LONG CODE PART 2. 
  
*CALL LBLPTR
  
  
  
**        S$GNLG2  - GENERATE LONG CODE PART 2
* 
* 
*     CALLING SEQUENCE- 
*         S$GNLG2;
* 
*     DOES- 
*         GENERATE LONG CODE PART 2 
* 
*         GENERATED CODE EXPEXCTS-
*         X6= DESCRIPTOR OF CURRENT RECORD (CR) 
* 
*         GENERATED CODE DOES-
*         IF CR IS END-OF-DATA, GO TO "LONG3" TO COMPUTE NEW INDEX
*           ELSE SET X4 TO DESCRIPTOR OF LAST WINNER
* 
  
  
          ENTRY  S$GNLG2
 S$GNLG2  SUBR               ENTRY/EXIT WORD
  
          NEWLBL LONG3
          GEN    (ZR X6,"LONG3")       *IF CR=EOD 
          GEN    (SA4 "OLDKEY") 
  
          EXIT
          END 
