/* lee el fichero programa */

/*Arg window self*/
/*aceramiento del listado de unidades*/
/*usado por modify*/

datafile=directory()||'\TheBacks\'||nameprog
k=0;kc=0
DO WHILE LINES(DATAFILE)
La=LINEIN(datafile)
  Select
      When pos('NAMEPROG=',TRANSLATE(La))<>0 then
         do
         /*
         dif=length(La)-9 /* 9 es length de nameprog=*/
         es_nameprog=translate(left(right(la,dif),dif)) 
         */
         poss= pos('"',La)+1
         lastp= lastpos('"',La) - poss
           if poss=0 | lastp=0 then es_nameprog=''
           else
           do
           es_nameprog=substr(La,poss,lastp)
           end
         CALL VpSetItemValue window, 1007,es_nameprog 
         end
      When pos('SYSTEMPFILENAME',translate(La))<>0 then
         do
         poss= pos("'",La)+1
         lastp= lastpos("\",La) - poss
           if poss=0 | lastp=0 then destino=''
           else
           do
           destino=substr(La,poss,lastp)
           CALL VpSetItemValue window, 1001,destino 
           poss=0 ; lastp=0
           end
         
         end
      When pos('POSITIV',TRANSLATE(La))<>0 Then
         do
           if K=0 then
           do
           poss= pos('"',La)+1
           lastp=lastpos('"',La) - poss
           /*say poss 'poss' lastp 'lastp' la*/
           posito=substr(La,poss,lastp)   
/*           say posito 'posito' 'la' la      */
           index=VpAddItem(window, 1009, 'END', posito)
           La=LINEIN(datafile)
           k=1
           /*say pos('"',La) 'pos la' la 'k' k   */
             do while pos('"',La)=1
             /*say 'apa' la*/
             poss=pos('"',La)+1
             lastp=lastpos('"',La) - poss
             posito=substr(La,poss,lastp)
             index=VpAddItem(window, 1009, 'END', posito)
             /*say posito 'posito2'*/
             La=LINEIN(datafile)
             end /* end do */

           end
         k=1; poss=0 ; lastp=0
         end
      When pos('NEGATIV',TRANSLATE(La))<>0 Then
         do
           if KC=0 then
           do
           poss= pos('"',La)+1
           lastp=lastpos('"',La) - poss
/*           say poss 'poss' lastp 'lastp' la*/
                if poss=1 & lastp=-1 then posito=''
                else
		do
                posito=substr(La,poss,lastp)   
                end
                /*say posito 'posito' 'la' la      */
                index=VpAddItem(window, LISTA_FILES, 'END', posito)
           La=LINEIN(datafile)
           kC=1
           /*say pos('"',La) 'pos la' la 'k' k   */
             do while pos('"',La)=1
             poss=pos('"',La)+1
             lastp=lastpos('"',La) - poss
             posito=substr(La,poss,lastp)
             index=VpAddItem(window, LISTA_FILES, 'END', posito)
             /*say posito 'posito2'*/
             La=LINEIN(datafile)
             end /* end do */

           end
         kc=1; poss=0 ; lastp=0
         end
         
         
      Otherwise
  End
     
END /*do*/
call LINEOUT (datafile)

return
