PROGRAM-ID. CREATE-FILE. CONFIGURATION SECTION. INPUT-OUTPUT SECTION. FILE-CONTROL. select songs assign to "songs" organization is indexed access is dynamic record key is sr-key alternate record key is key2 = sr-artist sr-genre sr-album duplicates alternate record key is key3 = sr-artist sr-album sr-genre duplicates alternate record key is sr-title duplicates file status is file-status. DATA DIVISION. FILE SECTION. fd songs. 01 songs-record. 05 sr-key. 10 sr-id pic 9(5). 05 sr-data. 10 sr-title pic x(30). 10 sr-length pic x(5). 10 sr-artist pic x(20). 10 sr-album pic x(30). 10 sr-genre pic x(15). 10 sr-label pic x(30). 10 sr-year pic 9(4). 10 sr-authors occurs 5. 15 sr-author pic x(20). WORKING-STORAGE SECTION. 01 initial-song-table. *** 03 filler pic x(30) value "Let It Be". 03 filler pic x(5) value "4:03". 03 filler pic x(20) value "Beatles". 03 filler pic x(30) value "Let It Be". 03 filler pic x(15) value "Pop". 03 filler pic x(30) value "Apple Records". 03 filler pic 9(4) value 1970. 03 filler pic x(20) value "Paul McCartney". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Yellow Submarine". 03 filler pic x(5) value "2:40". 03 filler pic x(20) value "Beatles". 03 filler pic x(30) value "Revolver". 03 filler pic x(15) value "Pop". 03 filler pic x(30) value "Apple Records". 03 filler pic 9(4) value 1966. 03 filler pic x(20) value "Paul McCartney". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Help!". 03 filler pic x(5) value "2:21". 03 filler pic x(20) value "Beatles". 03 filler pic x(30) value "Help!". 03 filler pic x(15) value "Pop". 03 filler pic x(30) value "Parlophone". 03 filler pic 9(4) value 1965. 03 filler pic x(20) value "John Lennon". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Yesterday". 03 filler pic x(5) value "2:07". 03 filler pic x(20) value "Beatles". 03 filler pic x(30) value "Help!". 03 filler pic x(15) value "Pop". 03 filler pic x(30) value "Parlophone". 03 filler pic 9(4) value 1965. 03 filler pic x(20) value "John Lennon". 03 filler pic x(20) value "Paul McCartney". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Angie". 03 filler pic x(5) value "4:30". 03 filler pic x(20) value "The Rolling Stones". 03 filler pic x(30) value "Goats Head Soup". 03 filler pic x(15) value "Rock". 03 filler pic x(30) value "R.S.Records". 03 filler pic 9(4) value 1973. 03 filler pic x(20) value "Mick Jagger". 03 filler pic x(20) value "Keith Richards". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Start Me Up". 03 filler pic x(5) value "3:32". 03 filler pic x(20) value "The Rolling Stones". 03 filler pic x(30) value "Tattoo You". 03 filler pic x(15) value "Rock". 03 filler pic x(30) value "Rolling Stones records". 03 filler pic 9(4) value 1981. 03 filler pic x(20) value "Mick Jagger". 03 filler pic x(20) value "Keith Richards". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Satisfaction". 03 filler pic x(5) value "3:45". 03 filler pic x(20) value "The Rolling Stones". 03 filler pic x(30) value "Out of Our Heads". 03 filler pic x(15) value "Rock". 03 filler pic x(30) value "Decca/ABKCO". 03 filler pic 9(4) value 1965. 03 filler pic x(20) value "Mick Jagger". 03 filler pic x(20) value "Keith Richards". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Rain Fall Down". 03 filler pic x(5) value "4:55". 03 filler pic x(20) value "The Rolling Stones". 03 filler pic x(30) value "A Bigger Bang". 03 filler pic x(15) value "Rock". 03 filler pic x(30) value "Polydor Records". 03 filler pic 9(4) value 2005. 03 filler pic x(20) value "Mick Jagger". 03 filler pic x(20) value "Keith Richards". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Maria Maria". 03 filler pic x(5) value "4:19". 03 filler pic x(20) value "Santana". 03 filler pic x(30) value "Supernatural". 03 filler pic x(15) value "Latin Rock". 03 filler pic x(30) value "BMG Arista/Ariola". 03 filler pic 9(4) value 1999. 03 filler pic x(20) value "Raul Rekow". 03 filler pic x(20) value "Jerry Duplessis". 03 filler pic x(20) value "Wyclef Jean". 03 filler pic x(20) value "Carlos Santana". 03 filler pic x(20) value "Karl Perazzo". *** 03 filler pic x(30) value "Oye como va". 03 filler pic x(5) value "4:36". 03 filler pic x(20) value "Santana". 03 filler pic x(30) value "Abraxas". 03 filler pic x(15) value "Latin Rock". 03 filler pic x(30) value "Columbia Records". 03 filler pic 9(4) value 1970. 03 filler pic x(20) value "Tito Puente". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Lightning in the sky". 03 filler pic x(5) value "3:50". 03 filler pic x(20) value "Santana". 03 filler pic x(30) value "Marathon". 03 filler pic x(15) value "Latin Rock". 03 filler pic x(30) value "Columbia Records". 03 filler pic 9(4) value 1979. 03 filler pic x(20) value "Keith Olsen". 03 filler pic x(20) value "Santana". 03 filler pic x(20) value "David De Vore". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Foo Foo". 03 filler pic x(5) value "6:29". 03 filler pic x(20) value "Santana". 03 filler pic x(30) value "Shaman". 03 filler pic x(15) value "Latin Rock". 03 filler pic x(30) value "Arista". 03 filler pic 9(4) value 2002. 03 filler pic x(20) value "Clive Davis". 03 filler pic x(20) value "Carlos Santana". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Money for Nothing". 03 filler pic x(5) value "6:19". 03 filler pic x(20) value "Eric Clapton". 03 filler pic x(30) value "After Midnight Live". 03 filler pic x(15) value "Rock/Pop". 03 filler pic x(30) value "Immortal". 03 filler pic 9(4) value 2006. 03 filler pic x(20) value "Mark Knopfler". 03 filler pic x(20) value "Sting". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "After Midnight". 03 filler pic x(5) value "2:51". 03 filler pic x(20) value "Eric Clapton". 03 filler pic x(30) value "Eric Clapton". 03 filler pic x(15) value "Rock/Pop". 03 filler pic x(30) value "Atco, Polydor Records". 03 filler pic 9(4) value 1970. 03 filler pic x(20) value "J.J. Cale". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Bad Love". 03 filler pic x(5) value "6:25". 03 filler pic x(20) value "Eric Clapton". 03 filler pic x(30) value "24 Nights". 03 filler pic x(15) value "Blues rock". 03 filler pic x(30) value "Duck Records". 03 filler pic 9(4) value 1991. 03 filler pic x(20) value "Eric Clapton". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Next Time You See Her". 03 filler pic x(5) value "4:02". 03 filler pic x(20) value "Eric Clapton". 03 filler pic x(30) value "Slowhand". 03 filler pic x(15) value "Blues". 03 filler pic x(30) value "Polydor". 03 filler pic 9(4) value 1977. 03 filler pic x(20) value "Eric Clapton". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Albachiara". 03 filler pic x(5) value "4:05". 03 filler pic x(20) value "Vasco Rossi". 03 filler pic x(30) value "Non siamo mica gli americani". 03 filler pic x(15) value "Rock". 03 filler pic x(30) value "Lotus LOP". 03 filler pic 9(4) value 1979. 03 filler pic x(20) value "Vasco Rossi". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Tango". 03 filler pic x(5) value "3:07". 03 filler pic x(20) value "Vasco Rossi". 03 filler pic x(30) value "Liberi Liberi". 03 filler pic x(15) value "Rock". 03 filler pic x(30) value "Emi". 03 filler pic 9(4) value 1988. 03 filler pic x(20) value "Vasco Rossi". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "C'e' chi dice no". 03 filler pic x(5) value "4:38". 03 filler pic x(20) value "Vasco Rossi". 03 filler pic x(30) value "C'e' chi dice no". 03 filler pic x(15) value "Rock". 03 filler pic x(30) value "Carosello". 03 filler pic 9(4) value 1987. 03 filler pic x(20) value "Vasco Rossi". 03 filler pic x(20) value "Maurizio Solieri". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". *** 03 filler pic x(30) value "Bollicine". 03 filler pic x(5) value "5:40". 03 filler pic x(20) value "Vasco Rossi". 03 filler pic x(30) value "Bollicine". 03 filler pic x(15) value "Rock". 03 filler pic x(30) value "Carosello". 03 filler pic 9(4) value 1983. 03 filler pic x(20) value "Vasco Rossi". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 03 filler pic x(20) value "". 01 initial-song-table-red redefines initial-song-table. 03 ist-item occurs 20. 05 ist-title pic x(30). 05 ist-length pic x(5). 05 ist-artist pic x(20). 05 ist-album pic x(30). 05 ist-genre pic x(15). 05 ist-label pic x(30). 05 ist-year pic 9(4). 05 ist-authors occurs 5. 10 ist-author pic x(20). 77 file-status pic xx value "00". 01 declaratives-switch pic 9 value 0. 88 declaratives-on value 0. 88 declaratives-off value 1. 77 idx pic 9(9). PROCEDURE DIVISION. INIT. open output songs perform varying idx from 1 by 1 until idx > 20 move idx to sr-id move ist-item(idx) to sr-data write songs-record end-perform. close songs. goback.