CASE DataIn<1> = "Organization Contacts"
                    KEYS = DataIn<2>
                    KEYSCNT = DCOUNT(KEYS, VM)
                    FOR X = 1 TO KEYSCNT
                        EXECUTE 'SSELECT ':DICTPORTIONNAME:",":DATAPORTIONNAME:' BY FULLNAME WITH ORGID = "':KEYS<1,X>:'"' CAPTURING OUTPUT
                        EOLIST = 0
                        LOOP
                            READNEXT ID ELSE
                                EOLIST = 1
                            END
                        UNTIL EOLIST DO
                            READ CONTACTDATA FROM CONTACTFILE, ID THEN
                                DATALENGTH = LEN(ID) + LEN(CONTACTDATA) + 1
                                NEWDATA = OCONV(DATALENGTH, "MCDX") "R%5":ID:AM:CONTACTDATA
                                DataOut := NEWDATA
                            END
                        REPEAT
                    NEXT X
                    ActionCompleted = TRUE