The Defenders-Miniseries Nsfw Lieldienu Olas Spēlēs Nr Season 2

GCobol identifikācijas nodaļa. PROGRAMMA-ID. PRTCBL. *AUTORS. J C CURREY. ************************************************************ * IZDRUKĀ COBOL AVOTA FAILU AR TĀ KOPIJU GRĀMATĀM * * * * VERSIJA 001--ORIĢINĀLĀ VERSIJA * * 3/26/2009--J C CURREY * * * * 002-PIEBILST.CPY (CAPS) JA., Atrast * * failu un paplašina ievadi līdz 132 rakstzīmēm * * 4/09/2009--J C CURREY * * * * 003-pievieno NOLIST un saraksta atbalstu (piezīme nav * * atbalsta OPENCOBOL kompilators) * * **NOLIST in COL 7-14 izslēdz LISTING * * **saraksts COL 7-12 ieslēdz LISTING * * 4/22/2009--J C CURREY * * * * 004-pievieno atbalstu / testēšana-typeset -1 / copybooks * * Copybooks tiek meklēti numuru 1 indium * * vietējā anestēzijā direktoriju un, ja nav izveidot, tāpēc indium * * / testēšana-typeset -1 / copybooks * * 5/7/2009--J C CURREY * * * * 005-izlabo trūkstošo līnijas problēmu lapas pārtraukumos * * kopēšanas failu drukāšanas sadaļā., * * 1285451--SANDIJS DOSS * * 06/19/2009--DŽEREMIJS MONTOJA * * * * 006-IZMANTO ĀRĒJO PCL KODA FAILU, LAI IEVIETOTU PCL * * KODU DRUKAS FAILĀ FORMATĒŠANAI. * * 1330505--JIM CURREY * * 12/14/2009--PETE MCTHOMPSON * ************************************************************ VIDES NODAĻA. IEEJAS-IZEJAS SADAĻA. FAILU KONTROLE. 121409 izvēlieties formātu-failu piešķirt WS-NAME-FORMAT-FILE 121409 organizācija ir līnija nsfw Lieldienu olas spēlēs secīgi. IZVĒLIETIES PRINT-FILE PIEŠĶIRT WS-NAME-PRINT-FILE ORGANIZĀCIJA IR LĪNIJA SECĪGI., IZVĒLIETIES INPUT-FILE PIEŠĶIRT WS-NAME-INPUT-FILE ORGANIZĀCIJA IR LĪNIJA SECĪGU FAILU STATUSS IR WS-INPUT-FILE-STATUSS. IZVĒLIETIES COPY-FILE PIEŠĶIRT WS-NAME-COPY-FILE ORGANIZĀCIJA IR LĪNIJA SECĪGU FAILU STATUSS IR WS-COPY-FILE-STATUSS. DATU SADALĪJUMS. FAILU SADAĻA. * FD DRUKAS FAILS. 121409 01 FORMĀTS-LINE PIC X(140). 01 DRUKAS LĪNIJA. 05 VAI-LĪNIJAS NUMURS PIC Z (6). 05 OR-FILLER - 1 PIC XX. 05 VAI-TEKSTS PIC X(132). 121409 * 121409 FD FORMĀTS-FAILS. 121409 01 FORMĀTS-IERAKSTĪT PIC X(140). * FD IEVADES FAILS. 01 IEVADE-IERAKSTS. 05 IR-BUFERIS PIC X (132). FD KOPIJA-FAILS. 01 KOPIJA-IERAKSTS. 05 CR-BUFERIS PIC X (132)., ** NOLIST * ŠĪ IR VĒL VIENA LĪNIJA * * SARAKSTS * DARBA UZGLABĀŠANAS SADAĻA. **************************************************** * Konstantes, skaitītāji un darba zonas * **************************************************** 01 WS-NAME-PROGRAM PIC X (12) vērtība 121409 "prtcbl 006". 01 WS-no-punkts PIC S9 (4) COMP. 01 WS-I PIC S9 (4) COMP. 01 WS-J PIC S9 (4) COMP. 01 WS-K PIC S9 (4) COMP. 01 WS-NAME-PRINT-FILE PIC X (64) VĒRTĪBA ATSTARPES. 01 WS-NAME-INPUT-FILE PIC X (64) VĒRTĪBA ATSTARPES. 01 WS-INPUT-FILE-STATUS PIC XX VĒRTĪBA "00". 050709 01 WS-NAME-COPY-FILE PIC X (128) VĒRTĪBA ATSTARPES., 050709 01 WS-HOLD-NAME-COPY-FILE PIC X (128) VĒRTĪBA ATSTARPES. 121409 01 WS-NAME-FORMAT-FILE PIC X (128) VĒRTĪBA ATSTARPES. 01 WS-COPY-FILE-STATUS PIC XX VĒRTĪBA "00". 01 WS-LINE-PRINTER-NAME PIC X (16) VĒRTĪBA ATSTARPES. 01 WS-LINE-numurs PIC S9 (6) COMP vērtība nulle. 01 WS-PAGE-LINE-COUNTER PIC S9 (4) COMP vērtība 999. 01 WS-PAGE-numurs PIC S9 (4) COMP vērtība nulle. 01 WS-PRINT-KOMANDU PIC X (128). * 01 WS-ESCAPE-CHARACTER PIC X VĒRTĪBA X "1B". * 01 WS-POZĪCIJA-LINE PIC X (132). 01 WS-PAŠREIZĒJAIS DATUMS PIC X (21). 01 WS-ED4S PIC ZZZZ-. 042209 01 WS-SLĒDZIS-PRINT PIC X VĒRTĪBA TELPA., **************************************************************** * PROCEDŪRA NODAĻA * **************************************************************** PROCEDŪRA NODAĻA. 0000-GALVENĀ SADAĻA. VEIKT 1000-INICIALIZĀCIJAS THRU 1990-IZIET. VEIKT 2000-PROCESS THRU 2990-IZIET. VEIKT 9000-END-OF-PROGRAMMAS THRU 9990-IZIET. PIETURA PALAIST. **************************************************************** * INICIALIZĀCIJA * **************************************************************** 1000 - INICIALIZĀCIJA. PĀRVIETOT 1000 UZ WS-NO-PUNKTU., DISPLEJS " I)", WS-NAME-PROGRAM," SĀKOT NO-- " FUNKCIJA CURRENT-DATE. 1002-GET-INPUT-FAILS. DISPLEJS "A) IEVADIET IEVADES-FAILA NOSAUKUMU" BEZ PADZIĻINOT. PIEŅEMT WS-NAME-INPUT-FAILU. ATVERIET IEVADES IEVADES FAILU. JA WS-INPUT-FILE-STATUS IR VIENĀDS AR 35 DISPLEJU "W) IEVADES FAILS NAV ATRASTS", DODIETIES UZ 1002-GET-INPUT-FILE. DISPLEJS "A) IEVADIET DRUKAS FAILA (DARBA FAILA) NOSAUKUMU" BEZ PADZIĻINĀŠANAS. PIEŅEMT WS-NAME-PRINT-FAILU. DISPLEJS "A) IEVADIET PRINTERA NOSAUKUMU" BEZ PADZIĻINOT. PIEŅEMT WS-LINE-PRINTER-NAME. ATVERIET IZVADES DRUKAS FAILU. 121409 pārvietot "laserjet_113D.txt" uz WS-NAME-FORMAT-FILE. 121409 ATVĒRT IEVADES FORMĀTS-FAILS., 121409 1010-IZEJA-PCL-KODI. 121409 LASĪŠANAS FORMĀTS-FAILS NĀKAMAIS IERAKSTS BEIGĀS DODIETIES UZ 1020-FORMAT-EOF. 121409 PĀRVIETOT FORMĀTU-IERAKSTĪT FORMĀTĀ-LINE. 121409 RAKSTĪT FORMĀTS-LINE. 121409 IET UZ 1010-IZEJA-PCL-KODI. 121409 1020-FORMĀTS-EOF. 121409 AIZVĒRT FORMĀTS-FAILS. 1990-iziet. IZEJA. ************************************************************** * DETAĻU SADAĻA * ************************************************************** 2000 - PROCESS. PĀRVIETOT 2000 UZ WS-NO-PUNKTU. LASĪT IEVADE-FAILS NĀKAMAIS IERAKSTS BEIGĀS IET UZ 2990-IZIET. PIEVIENOT 1 UZ WS-LINE-NUMURU., JA WS-PAGE-LINE-COUNTER IR LIELĀKS PAR 112 VEIKT 2800-POZĪCIJAS THRU 2890-IZIET. PĀRVIETOT WS-LINE-NUMBER UZ OR-LINE-NUMBER. PĀRVIETOJIET ATSTARPES UZ OR-FILLER-1. PĀRVIETOT INPUT-RECORD UZ OR-TEXT. 042209 JA IR-BUFERIS ( 7: 6 ) IR VIENĀDS AR "**SARAKSTS" 042209 PĀRVIETOT "Y" UZ WS-SWITCH-PRINT. 042209 JA WS-SWITCH-PRINT IR VIENĀDS AR" N " 042209 TAD NĀKAMAIS TEIKUMS 042209 CITS RAKSTĪT PRINT-LINE 042209 PIEVIENOT 1 UZ WS-PAGE-LINE-COUNTER. 042209 JA IR-BUFERIS ( 7: 8 ) IR VIENĀDS AR "**NOLIST" 042209 PĀRVIETOT "N" UZ WS-SWITCH-PRINT. JA IR-BUFERIS (7: 1) IR VIENĀDS AR"*", DODIETIES UZ 2000 - PROCESU. Pārvietot 1 uz WS-I. 2010-salīdzināt-LOOP., JA IR-BUFERIS ( WS - I: 2) IR VIENĀDS AR "* > " IET UZ 2090-ENDER. JA IR-BUFERIS ( WS - I: 6) IR VIENĀDS AR "KOPIJU", DODIETIES UZ 2020-KOPIJU. Pievienojiet 1 WS-I. ja WS-I ir mazāks par 73, dodieties uz 2010-salīdzināt-LOOP. IET UZ 2000-PROCESS. 2020-kopija. ATŅEMIET 1 NO WS-LINE-NUMURA. Pievienojiet 6 WS-I. pārvietojiet 1 uz WS-J. pārvietojiet atstarpes uz WS-NAME-COPY-FILE. 2022-PĀRVIETOT-CILPA. JA IR-BUFERIS (WS-I : 1 ) IR VIENĀDS AR ATSTARPI, DODIETIES UZ 2030 - OPEN-COPYFILE. JA IR-BUFERIS ( WS - I: 1 ) IR VIENĀDS AR"." PĀRVIETOT ".cpy " uz WS-NAME-COPY-FILE (WS-J: 4) dodieties uz 2030 - OPEN-COPYFILE. PĀRVIETOT IR-BUFERI (WS - I : 1 ) UZ WS-NAME-COPY-FILE ( WS-J: 1 )., Pievienojiet 1 WS-I, WS-J. ja WS-I ir lielāks par 73 vai WS-J ir lielāks par 64, tad pārvietojiet " * * problēma ar.KOPĒT PAZIŅOJUMU IEPRIEKŠ**", LAI VAI-TEKSTA RAKSTĪT PRINT-LINE PIEVIENOT 1 UZ WS-PAGE-LINE-COUNTER IET UZ 2000-PROCESS. IET UZ 2022-MOVE-LOOP. 2030-OPEN-COPYFILE. ATVERIET IEVADES KOPIJU-FAILU. JA WS-COPY-FILE-STATUS NAV VIENĀDS AR " 00 "040909 PĀRVIETOT".,CPY "uz WS-NAME-COPY-FILE (WS-J : 4 ) 040909 atvērt ieejas COPY-FILE 040909 ja WS-COPY-FILE-Statuss Nav vienāds ar" 00 "050709 pārvietot WS-NAME-COPY-FILE uz WS-HOLD-NAME-COPY-FILE 050709 STRING" / testēšana-typeset -1 / copybooks/ "050709 WS-HOLD-NAME-COPY-FILE 050709 uz WS-NAME-COPY-FILE * displejs" D) pie.KOPĒT FAILU ATVĒRT NAME=\"