The following is a snippet of the code. I get an error on the OUT op code as in the title.
* Next List Number D DS D Get_Next_List 6S 0 DtaAra(INSRLIST)
// Create Header record In *Lock Get_Next_List; // Ge DoU Done = @True; Chain(E) Get_Next_List INSRL100; If %Found; // Inc Get_Next_List = Get_Next_List +1; If Get_Next_List = 999999; Get_Next_List = 1; EndIf; Iter; EndIf; If NOT %Found; SHListNo = Get_Next_List; Get_Next_List = Get_Next_List +1; Out Get_Next_List; // Up EndIf;
February 25, 2010 9:31 PM
February 26, 2010 2:17 PM