home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a014 / 1.ddi / CDBINC.EXE / PT.C < prev    next >
Encoding:
Text File  |  1991-11-12  |  1.0 KB  |  37 lines
  1.         fprintf(fp,"\nsele 1\ngo brec\ncctc=0\nactc=0\n");
  2.         i=0;
  3.         root2=root;
  4.         while(root2!=NULL) {
  5.            if(root2->sele=='Y') {
  6.           p2=root2->sstr;
  7.           while(p2!=NULL) {
  8.              if(p2->obj=='Y') {
  9.                 fprintf(fp,"ll%-d=0\n",i);
  10.             i++;          }
  11.              p2=p2->next;  }    }
  12.         root2=root2->next;   }
  13.         fprintf("do while cctc<cnt\nif %s\n",condition);
  14.         i=0;
  15.         root2=root;
  16.         while(root2!=NULL) {
  17.            if(root2->sele=='Y') {
  18.           p2=root2->sstr;
  19.           while(p2!=NULL) {
  20.              if(p2->obj=='Y') {
  21.                 fprintf(fp,"ll%-d=ll%-d+%s\n",i,i,p2->field);
  22.             i++;          }
  23.              p2=p2->next;  }    }
  24.         root2=root2->next;   }
  25.        fprintf(fp,"actc=actc+1\nendif\ncctc=cctc+1\nskip\nenddo\ngo brec\n");
  26.         i=0;
  27.         root2=root;
  28.         while(root2!=NULL) {
  29.            if(root2->sele=='Y') {
  30.           p2=root2->sstr;
  31.           while(p2!=NULL) {
  32.              if(p2->obj=='Y') {
  33.                 fprintf(fp,"ll%-d=ll%-d/actc\n",i);
  34.             i++;          }
  35.              p2=p2->next;  }    }
  36.         root2=root2->next;   }
  37.