IDENTIFICATION DIVISION. PROGRAM-ID. LLAMAQST. * * Programa principal; clasifica TABLA-A-CLASIFICAR mediante * una llamada a QUIKSCBL. * La tabla tiene 600 elementos desclasificados, que se muestran * después de la llamada, una vez clasificados (son dos bloques * duplicados de 300 elementos cada uno). * DATA DIVISION. WORKING-STORAGE SECTION. * 01 TECLA-ENTER PIC X. * 01 NUMERO-EL PIC 9(3). * 01 NUM-ELEMENTOS PIC 9(8) COMP VALUE 600. * * Definicion del contenido de la tabla. Se dan los datos de * los elementos de dos en dos (veinte caraceters). 01 TABLA-A-CLASIFICAR. 05 FILLER PIC X(20) VALUE '77665544339988771122'. 05 FILLER PIC X(20) VALUE '98344890412312143312'. 05 FILLER PIC X(20) VALUE '77161459918167151244'. 05 FILLER PIC X(20) VALUE '00916715177181919111'. 05 FILLER PIC X(20) VALUE '41517328938376612628'. 05 FILLER PIC X(20) VALUE '81716154431932043863'. 05 FILLER PIC X(20) VALUE '24736163501675143716'. 05 FILLER PIC X(20) VALUE '00025415878965214421'. 05 FILLER PIC X(20) VALUE '87348774357575245258'. 05 FILLER PIC X(20) VALUE '54654614631204524740'. 05 FILLER PIC X(20) VALUE '78965423169842245789'. 05 FILLER PIC X(20) VALUE '98542132358978455213'. 05 FILLER PIC X(20) VALUE '54567321366548920100'. 05 FILLER PIC X(20) VALUE '78525000100010002145'. 05 FILLER PIC X(20) VALUE '45871000210548750004'. 05 FILLER PIC X(20) VALUE '56852000140108888017'. 05 FILLER PIC X(20) VALUE '12056302154782015201'. 05 FILLER PIC X(20) VALUE '75842215933102101500'. 05 FILLER PIC X(20) VALUE '98520098025460123204'. 05 FILLER PIC X(20) VALUE '53652100215487521001'. 05 FILLER PIC X(20) VALUE '78215496521385652141'. 05 FILLER PIC X(20) VALUE '66521458474320015487'. 05 FILLER PIC X(20) VALUE '26301245787102198742'. 05 FILLER PIC X(20) VALUE '00000545891236541123'. 05 FILLER PIC X(20) VALUE '88541245878365982415'. 05 FILLER PIC X(20) VALUE '54820129987999452105'. 05 FILLER PIC X(20) VALUE '84581202159999991122'. 05 FILLER PIC X(20) VALUE '12345678901234567890'. 05 FILLER PIC X(20) VALUE '45582102154890013654'. 05 FILLER PIC X(20) VALUE '15002102785463221569'. 05 FILLER PIC X(20) VALUE '12002158745896203201'. 05 FILLER PIC X(20) VALUE '78920010215648987321'. 05 FILLER PIC X(20) VALUE '54201010203651010244'. 05 FILLER PIC X(20) VALUE '45895621354895633211'. 05 FILLER PIC X(20) VALUE '11111548952315993122'. 05 FILLER PIC X(20) VALUE '48502021456842564551'. 05 FILLER PIC X(20) VALUE '95623102541589652148'. 05 FILLER PIC X(20) VALUE '12578935214589313288'. 05 FILLER PIC X(20) VALUE '86769764661616462682'. 05 FILLER PIC X(20) VALUE '02578741552325369542'. 05 FILLER PIC X(20) VALUE '45878216555555487521'. 05 FILLER PIC X(20) VALUE '33265321145681484564'. 05 FILLER PIC X(20) VALUE '02586952002154995215'. 05 FILLER PIC X(20) VALUE '46546587844311320217'. 05 FILLER PIC X(20) VALUE '85200100214555620000'. 05 FILLER PIC X(20) VALUE '65698484651300332114'. 05 FILLER PIC X(20) VALUE '97820015320035758889'. 05 FILLER PIC X(20) VALUE '98952003213645100211'. 05 FILLER PIC X(20) VALUE '33652000245121215123'. 05 FILLER PIC X(20) VALUE '30051810545952001451'. 05 FILLER PIC X(20) VALUE '14544565656211155222'. 05 FILLER PIC X(20) VALUE '64864864613332213174'. 05 FILLER PIC X(20) VALUE '88415303156133531692'. 05 FILLER PIC X(20) VALUE '75842025618646332332'. 05 FILLER PIC X(20) VALUE '33651566448610000742'. 05 FILLER PIC X(20) VALUE '36200021548785021454'. 05 FILLER PIC X(20) VALUE '44584545478445455454'. 05 FILLER PIC X(20) VALUE '51200210215465874001'. 05 FILLER PIC X(20) VALUE '65645646661000004452'. 05 FILLER PIC X(20) VALUE '89789432132100044515'. 05 FILLER PIC X(20) VALUE '65498741653061202861'. 05 FILLER PIC X(20) VALUE '67468161202161020237'. 05 FILLER PIC X(20) VALUE '05346154564698779755'. 05 FILLER PIC X(20) VALUE '34653456643463511314'. 05 FILLER PIC X(20) VALUE '34894674564616322222'. 05 FILLER PIC X(20) VALUE '98791356134663463130'. 05 FILLER PIC X(20) VALUE '47694815245236454152'. 05 FILLER PIC X(20) VALUE '21341697944613331333'. 05 FILLER PIC X(20) VALUE '00645613461634353100'. 05 FILLER PIC X(20) VALUE '67464348618960054649'. 05 FILLER PIC X(20) VALUE '43434654694656466472'. 05 FILLER PIC X(20) VALUE '89798456651613331382'. 05 FILLER PIC X(20) VALUE '86461613413160004522'. 05 FILLER PIC X(20) VALUE '05841246153461316412'. 05 FILLER PIC X(20) VALUE '74687496489113030211'. 05 FILLER PIC X(20) VALUE '64564121046134161615'. 05 FILLER PIC X(20) VALUE '55456464664631310046'. 05 FILLER PIC X(20) VALUE '61534121200080120112'. 05 FILLER PIC X(20) VALUE '04565745564564532422'. 05 FILLER PIC X(20) VALUE '64641300006513071122'. 05 FILLER PIC X(20) VALUE '44112564645610000722'. 05 FILLER PIC X(20) VALUE '78643212146164212012'. 05 FILLER PIC X(20) VALUE '54546463002242545462'. 05 FILLER PIC X(20) VALUE '33164410146468478941'. 05 FILLER PIC X(20) VALUE '55645646343212118622'. 05 FILLER PIC X(20) VALUE '66945617845612145656'. 05 FILLER PIC X(20) VALUE '14661616848611589892'. 05 FILLER PIC X(20) VALUE '11115144646464684522'. 05 FILLER PIC X(20) VALUE '74613464684664646642'. 05 FILLER PIC X(20) VALUE '12121564400000161651'. 05 FILLER PIC X(20) VALUE '41222120204015610512'. 05 FILLER PIC X(20) VALUE '16416106032000671122'. 05 FILLER PIC X(20) VALUE '54546464654641646565'. 05 FILLER PIC X(20) VALUE '64651321210002015646'. 05 FILLER PIC X(20) VALUE '64131006102415666462'. 05 FILLER PIC X(20) VALUE '77665567839988564564'. 05 FILLER PIC X(20) VALUE '55554456646101000042'. 05 FILLER PIC X(20) VALUE '56564321541564000222'. 05 FILLER PIC X(20) VALUE '33989798797452121822'. 05 FILLER PIC X(20) VALUE '79894210000402166516'. 05 FILLER PIC X(20) VALUE '97411008910161615012'. 05 FILLER PIC X(20) VALUE '00316106406066560455'. 05 FILLER PIC X(20) VALUE '06604544444064644600'. 05 FILLER PIC X(20) VALUE '77777777643130310363'. 05 FILLER PIC X(20) VALUE '81100341103136023264'. 05 FILLER PIC X(20) VALUE '64000531013340867871'. 05 FILLER PIC X(20) VALUE '55555544339988064646'. 05 FILLER PIC X(20) VALUE '76131360346034604688'. 05 FILLER PIC X(20) VALUE '45478445455465065482'. 05 FILLER PIC X(20) VALUE '71122812205450566008'. 05 FILLER PIC X(20) VALUE '11111164064646466045'. 05 FILLER PIC X(20) VALUE '81064060604650560456'. 05 FILLER PIC X(20) VALUE '44004656460465546666'. 05 FILLER PIC X(20) VALUE '64604608746011002387'. 05 FILLER PIC X(20) VALUE '87490341601320313120'. 05 FILLER PIC X(20) VALUE '46645606556465465772'. 05 FILLER PIC X(20) VALUE '33203034640651313212'. 05 FILLER PIC X(20) VALUE '38406464132132332218'. 05 FILLER PIC X(20) VALUE '98802900401213021452'. 05 FILLER PIC X(20) VALUE '20120156400122456022'. 05 FILLER PIC X(20) VALUE '22220465465453408964'. 05 FILLER PIC X(20) VALUE '79790646406434160608'. 05 FILLER PIC X(20) VALUE '84769046456415645698'. 05 FILLER PIC X(20) VALUE '60464760841654015456'. 05 FILLER PIC X(20) VALUE '74960432465433416353'. 05 FILLER PIC X(20) VALUE '70698476465346040321'. 05 FILLER PIC X(20) VALUE '32130064135413546432'. 05 FILLER PIC X(20) VALUE '01264603464664604647'. 05 FILLER PIC X(20) VALUE '88079840640325413331'. 05 FILLER PIC X(20) VALUE '90521347680451340642'. 05 FILLER PIC X(20) VALUE '69046343403132013232'. 05 FILLER PIC X(20) VALUE '20121354631604664672'. 05 FILLER PIC X(20) VALUE '22222222604640647648'. 05 FILLER PIC X(20) VALUE '35645060654688676465'. 05 FILLER PIC X(20) VALUE '60064646406462223237'. 05 FILLER PIC X(20) VALUE '55704646465410002141'. 05 FILLER PIC X(20) VALUE '61604640664064066777'. 05 FILLER PIC X(20) VALUE '04563060163406603333'. 05 FILLER PIC X(20) VALUE '99999999606464664164'. 05 FILLER PIC X(20) VALUE '56333313131313103138'. 05 FILLER PIC X(20) VALUE '88888806461313131130'. 05 FILLER PIC X(20) VALUE '03406434646467897890'. 05 FILLER PIC X(20) VALUE '81604156340361341312'. 05 FILLER PIC X(20) VALUE '99106354641631061122'. 05 FILLER PIC X(20) VALUE '11012102064904600152'. 05 FILLER PIC X(20) VALUE '22246406704646133133'. 05 FILLER PIC X(20) VALUE '55555558064643113222'. 05 FILLER PIC X(20) VALUE '00640666046066060462'. 05 FILLER PIC X(20) VALUE '69464646465164678892'. 05 FILLER PIC X(20) VALUE '97064646000000000845'. 05 FILLER PIC X(20) VALUE '77665544339988771122'. 05 FILLER PIC X(20) VALUE '98344890412312143312'. 05 FILLER PIC X(20) VALUE '77161459918167151244'. 05 FILLER PIC X(20) VALUE '00916715177181919111'. 05 FILLER PIC X(20) VALUE '41517328938376612628'. 05 FILLER PIC X(20) VALUE '81716154431932043863'. 05 FILLER PIC X(20) VALUE '24736163501675143716'. 05 FILLER PIC X(20) VALUE '00025415878965214421'. 05 FILLER PIC X(20) VALUE '87348774357575245258'. 05 FILLER PIC X(20) VALUE '54654614631204524740'. 05 FILLER PIC X(20) VALUE '78965423169842245789'. 05 FILLER PIC X(20) VALUE '98542132358978455213'. 05 FILLER PIC X(20) VALUE '54567321366548920100'. 05 FILLER PIC X(20) VALUE '78525000100010002145'. 05 FILLER PIC X(20) VALUE '45871000210548750004'. 05 FILLER PIC X(20) VALUE '56852000140108888017'. 05 FILLER PIC X(20) VALUE '12056302154782015201'. 05 FILLER PIC X(20) VALUE '75842215933102101500'. 05 FILLER PIC X(20) VALUE '98520098025460123204'. 05 FILLER PIC X(20) VALUE '53652100215487521001'. 05 FILLER PIC X(20) VALUE '78215496521385652141'. 05 FILLER PIC X(20) VALUE '66521458474320015487'. 05 FILLER PIC X(20) VALUE '26301245787102198742'. 05 FILLER PIC X(20) VALUE '00000545891236541123'. 05 FILLER PIC X(20) VALUE '88541245878365982415'. 05 FILLER PIC X(20) VALUE '54820129987999452105'. 05 FILLER PIC X(20) VALUE '84581202159999991122'. 05 FILLER PIC X(20) VALUE '12345678901234567890'. 05 FILLER PIC X(20) VALUE '45582102154890013654'. 05 FILLER PIC X(20) VALUE '15002102785463221569'. 05 FILLER PIC X(20) VALUE '12002158745896203201'. 05 FILLER PIC X(20) VALUE '78920010215648987321'. 05 FILLER PIC X(20) VALUE '54201010203651010244'. 05 FILLER PIC X(20) VALUE '45895621354895633211'. 05 FILLER PIC X(20) VALUE '11111548952315993122'. 05 FILLER PIC X(20) VALUE '48502021456842564551'. 05 FILLER PIC X(20) VALUE '95623102541589652148'. 05 FILLER PIC X(20) VALUE '12578935214589313288'. 05 FILLER PIC X(20) VALUE '86769764661616462682'. 05 FILLER PIC X(20) VALUE '02578741552325369542'. 05 FILLER PIC X(20) VALUE '45878216555555487521'. 05 FILLER PIC X(20) VALUE '33265321145681484564'. 05 FILLER PIC X(20) VALUE '02586952002154995215'. 05 FILLER PIC X(20) VALUE '46546587844311320217'. 05 FILLER PIC X(20) VALUE '85200100214555620000'. 05 FILLER PIC X(20) VALUE '65698484651300332114'. 05 FILLER PIC X(20) VALUE '97820015320035758889'. 05 FILLER PIC X(20) VALUE '98952003213645100211'. 05 FILLER PIC X(20) VALUE '33652000245121215123'. 05 FILLER PIC X(20) VALUE '30051810545952001451'. 05 FILLER PIC X(20) VALUE '14544565656211155222'. 05 FILLER PIC X(20) VALUE '64864864613332213174'. 05 FILLER PIC X(20) VALUE '88415303156133531692'. 05 FILLER PIC X(20) VALUE '75842025618646332332'. 05 FILLER PIC X(20) VALUE '33651566448610000742'. 05 FILLER PIC X(20) VALUE '36200021548785021454'. 05 FILLER PIC X(20) VALUE '44584545478445455454'. 05 FILLER PIC X(20) VALUE '51200210215465874001'. 05 FILLER PIC X(20) VALUE '65645646661000004452'. 05 FILLER PIC X(20) VALUE '89789432132100044515'. 05 FILLER PIC X(20) VALUE '65498741653061202861'. 05 FILLER PIC X(20) VALUE '67468161202161020237'. 05 FILLER PIC X(20) VALUE '05346154564698779755'. 05 FILLER PIC X(20) VALUE '34653456643463511314'. 05 FILLER PIC X(20) VALUE '34894674564616322222'. 05 FILLER PIC X(20) VALUE '98791356134663463130'. 05 FILLER PIC X(20) VALUE '47694815245236454152'. 05 FILLER PIC X(20) VALUE '21341697944613331333'. 05 FILLER PIC X(20) VALUE '00645613461634353100'. 05 FILLER PIC X(20) VALUE '67464348618960054649'. 05 FILLER PIC X(20) VALUE '43434654694656466472'. 05 FILLER PIC X(20) VALUE '89798456651613331382'. 05 FILLER PIC X(20) VALUE '86461613413160004522'. 05 FILLER PIC X(20) VALUE '05841246153461316412'. 05 FILLER PIC X(20) VALUE '74687496489113030211'. 05 FILLER PIC X(20) VALUE '64564121046134161615'. 05 FILLER PIC X(20) VALUE '55456464664631310046'. 05 FILLER PIC X(20) VALUE '61534121200080120112'. 05 FILLER PIC X(20) VALUE '04565745564564532422'. 05 FILLER PIC X(20) VALUE '64641300006513071122'. 05 FILLER PIC X(20) VALUE '44112564645610000722'. 05 FILLER PIC X(20) VALUE '78643212146164212012'. 05 FILLER PIC X(20) VALUE '54546463002242545462'. 05 FILLER PIC X(20) VALUE '33164410146468478941'. 05 FILLER PIC X(20) VALUE '55645646343212118622'. 05 FILLER PIC X(20) VALUE '66945617845612145656'. 05 FILLER PIC X(20) VALUE '14661616848611589892'. 05 FILLER PIC X(20) VALUE '11115144646464684522'. 05 FILLER PIC X(20) VALUE '74613464684664646642'. 05 FILLER PIC X(20) VALUE '12121564400000161651'. 05 FILLER PIC X(20) VALUE '41222120204015610512'. 05 FILLER PIC X(20) VALUE '16416106032000671122'. 05 FILLER PIC X(20) VALUE '54546464654641646565'. 05 FILLER PIC X(20) VALUE '64651321210002015646'. 05 FILLER PIC X(20) VALUE '64131006102415666462'. 05 FILLER PIC X(20) VALUE '77665567839988564564'. 05 FILLER PIC X(20) VALUE '55554456646101000042'. 05 FILLER PIC X(20) VALUE '56564321541564000222'. 05 FILLER PIC X(20) VALUE '33989798797452121822'. 05 FILLER PIC X(20) VALUE '79894210000402166516'. 05 FILLER PIC X(20) VALUE '97411008910161615012'. 05 FILLER PIC X(20) VALUE '00316106406066560455'. 05 FILLER PIC X(20) VALUE '06604544444064644600'. 05 FILLER PIC X(20) VALUE '77777777643130310363'. 05 FILLER PIC X(20) VALUE '81100341103136023264'. 05 FILLER PIC X(20) VALUE '64000531013340867871'. 05 FILLER PIC X(20) VALUE '55555544339988064646'. 05 FILLER PIC X(20) VALUE '76131360346034604688'. 05 FILLER PIC X(20) VALUE '45478445455465065482'. 05 FILLER PIC X(20) VALUE '71122812205450566008'. 05 FILLER PIC X(20) VALUE '11111164064646466045'. 05 FILLER PIC X(20) VALUE '81064060604650560456'. 05 FILLER PIC X(20) VALUE '44004656460465546666'. 05 FILLER PIC X(20) VALUE '64604608746011002387'. 05 FILLER PIC X(20) VALUE '87490341601320313120'. 05 FILLER PIC X(20) VALUE '46645606556465465772'. 05 FILLER PIC X(20) VALUE '33203034640651313212'. 05 FILLER PIC X(20) VALUE '38406464132132332218'. 05 FILLER PIC X(20) VALUE '98802900401213021452'. 05 FILLER PIC X(20) VALUE '20120156400122456022'. 05 FILLER PIC X(20) VALUE '22220465465453408964'. 05 FILLER PIC X(20) VALUE '79790646406434160608'. 05 FILLER PIC X(20) VALUE '84769046456415645698'. 05 FILLER PIC X(20) VALUE '60464760841654015456'. 05 FILLER PIC X(20) VALUE '74960432465433416353'. 05 FILLER PIC X(20) VALUE '70698476465346040321'. 05 FILLER PIC X(20) VALUE '32130064135413546432'. 05 FILLER PIC X(20) VALUE '01264603464664604647'. 05 FILLER PIC X(20) VALUE '88079840640325413331'. 05 FILLER PIC X(20) VALUE '90521347680451340642'. 05 FILLER PIC X(20) VALUE '69046343403132013232'. 05 FILLER PIC X(20) VALUE '20121354631604664672'. 05 FILLER PIC X(20) VALUE '22222222604640647648'. 05 FILLER PIC X(20) VALUE '35645060654688676465'. 05 FILLER PIC X(20) VALUE '60064646406462223237'. 05 FILLER PIC X(20) VALUE '55704646465410002141'. 05 FILLER PIC X(20) VALUE '61604640664064066777'. 05 FILLER PIC X(20) VALUE '04563060163406603333'. 05 FILLER PIC X(20) VALUE '99999999606464664164'. 05 FILLER PIC X(20) VALUE '56333313131313103138'. 05 FILLER PIC X(20) VALUE '88888806461313131130'. 05 FILLER PIC X(20) VALUE '03406434646467897890'. 05 FILLER PIC X(20) VALUE '81604156340361341312'. 05 FILLER PIC X(20) VALUE '99106354641631061122'. 05 FILLER PIC X(20) VALUE '11012102064904600152'. 05 FILLER PIC X(20) VALUE '22246406704646133133'. 05 FILLER PIC X(20) VALUE '55555558064643113222'. 05 FILLER PIC X(20) VALUE '00640666046066060462'. 05 FILLER PIC X(20) VALUE '69464646465164678892'. 05 FILLER PIC X(20) VALUE '97064646000000000845'. 05 FILLER PIC X(10) VALUE SPACES. * 01 FILLER REDEFINES TABLA-A-CLASIFICAR. 05 ELEMENTO OCCURS 601, INDEXED BY INDICE. 10 CLAVE PIC X(5). 10 FILLER PIC X(5). *************************************************** * PROCEDURE DIVISION. MAIN SECTION. COMIENZO. * DISPLAY '*** Llamada para clasificar la tabla'. * CALL 'QUIKSCBL' USING NUM-ELEMENTOS, TABLA-A-CLASIFICAR. * DISPLAY '*** Lista clasificada. Pulse Enter para continuar'. ACCEPT TECLA-ENTER. * SET INDICE TO 1. MOVE 1 TO NUMERO-EL. * PERFORM LISTAR-ELEMENTO UNTIL INDICE GREATER 600. * STOP RUN. * * LISTAR-ELEMENTO. DISPLAY NUMERO-EL, '-' CLAVE (INDICE). * SET INDICE UP BY 1. ADD 1 TO NUMERO-EL.