*DECK GENLFN
USETEXT COMCBEG 
USETEXT COMQDEF 
    FUNC GENLFN    C(10); 
      BEGIN      # GENLFN # 
# 
**    GENLFN     GENERATE UNIQUE LOCAL LOGICAL FILE NAME. 
* 
*     GENLFN CREATES A UNIQUE LOCAL LOGICAL FILE NAME FOR USE BY
*     QTF AND QTFS. 
* 
*     FUNC GENLFN     C(10) 
* 
*     ENTRY      LFNNO = SEED FOR LFN.
* 
*     EXIT       GENLFN = UNIQUE LFN. 
* 
*     PROCESS    ADD 1 TO SEED. 
*                RETURN LFN OF FORM *LNNNNN*, 
*                  WHERE NNNNN IS ZERO-FILLED CHARACTER REPRESENTATION
*                  OF SEED. 
# 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        FUNC YCDZ        C(10);    # CONVERT INTEGER TO CHARACTER # 
        END 
  
# 
****  XREF END
# 
  
      ARRAY;
        BEGIN 
        ITEM  LFNC       C(00,00,10); 
        ITEM  $DUM1      C(00,00,01) = ["L"]; 
        ITEM  LFNN       C(00,06,05); 
        ITEM  $DUM2      U(00,36,24) = [0]; 
        END 
  
      LFNNO = (LFNNO + 1) LAN O"777777";
      LFNN = YCDZ(LFNNO, 5);
      GENLFN = LFNC;
  
      END  # GENLFN # 
    TERM
